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
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!
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.
ich könnte dir mein Gebiss leihen, aber nur bis zum Essen, dann brauche ich es wieder (es sei denn, es gibt Suppe
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.
du hast in der Haupttabelle jeweils eine ID_RB (Autowert) für jedes RB?
Du hast das UFO per ID_RB an das Hauptformular gebunden?
Ich vermute mal du hast irgendeine Abfrage wo die Beziehungen
falsch(herum) gesetzt sind!?
Aber dann dürfte doch nicht, wenn ich im UFo ein Leerzeichen bei AgenturNr eingebe, der Datensatz angezeigt werden.
Es sollte/muss also meines Erachtens mit den Nullwerten zusammen hängen, oder habe ich einen Denkfehler.
Ich glaube, ich habe einen Lösungsansatz wie ich das Problem umgehen kann, und zwar direkt in der Tabelle, würde jedoch gerne das Problem mittels VBA lösen.
Diese Form greift direkt auf die beiden Tabellen zu, nicht auf eine Abfrage!
Aber dann dürfte doch nicht, wenn ich im UFo ein Leerzeichen
bei AgenturNr eingebe, der Datensatz angezeigt werden.
Wenn du eine Beziehung hast:
Agenturnummer -> RB
wir das RB nur angezeigt, wenn in Agenturnummer ein Wert vorhanden ist!
Es sollte/muss also meines Erachtens mit den Nullwerten
zusammen hängen, oder habe ich einen Denkfehler.
ja, ich verstehe immer noch nicht deine „NUllwerte“. Dein Reisebüro hat eine ID. Diese ist auch in der Tabelle Agentur_NR drin.
Das Hauptformular verknüpfst du über diese ID mit dem UFO. Fertig
Deinen VBA-Code solltest du natürlich deaktivieren!
Solltest du irgendwo zusätzliche Beziehungen definiert haben -> überprüfe diese. Dort hast du einen Fehler drin!
Zum Testen lösche mal alle Beziehungen und teste dann dein Formular.
