Hallo,
ich hab ein Problem, an dem ich mir gerade die Zähne ausbeisse. Damit ich nicht völlig ohne Gebiss dastehen muss, wäre es schön, wenn mir jemand helfen könnte.
Kurz geschildert:
Ein Form zur Eingabe eines neuen Rsb (Reisebüro)
Jedes Reisebüro kann mehrere oder auch keine Agenturnummer besitzen. Diese Agenturnummern werden über das Unterformular eingetragen.
Das Problem. Wenn ich ein neues Rsb anlege und nicht gleichzeitig eine AgenturNr. vergebe, wird der Datensatz nicht angezeigt. Hängt mit den Nullwerten zusammen.
Habe jetzt in einem Modul eine Public Function geschrieben:
Public Function NullWech(ByVal var_EingFeld As Variant) As Variant
If isnull(var_EingFeld) Then
NullWech = 0
Else
NullWech = var_EingFeld
End If
End Function
Im HF hab ich nun folgenden Code geschrieben:
Private Sub cmdNew_Click()
On Error GoTo Err_cmdNew_Click
DoCmd.GoToRecord , , acNewRec
Exit_cmdNew_Click:
Exit Sub
If Me!Form_02_UF_Rsb_neu.AgenturNr Is Null Then
NullWech [Me!Form_02_UF_Rsb_neu.AgenturNr]
End If
Err_cmdNew_Click:
MsgBox Err.Description
Resume Exit_cmdNew_Click
End Sub
Aber es funktioniert nicht. Wenn ich den Datensatz über eine Suchmaske finden will, taucht er nicht auf, obwohl er in den Tabellen vorhanden ist.
Vielen Dank schon mal!
