datensatz aus Konbinationselement im anderen Formular anzeigen

[tismo]

Hallo,

in meinem Haupformular (Daten) kann ich über ein Kombinationsfeld (KurzzeichenKunde) mir die Kurzzeichen aus der Kundendatei anzeigen lassen. Nun möchte ich per Doppelklick, dass der ausgewähle Datensatz im Formular (Kunde) angezeigt wird oder sofern das Kombinationsfeld leer ist eine neuer Datensatz erstellt wird.

Wie lautet so eine vba?

[Lachtaube]

Code [Auswählen] Erweitern

Private EinKombifeld_DblClivk(Cancel As Integer)
   Const ZielFormular As String = "NameDesFormulars"

   If IsNull(Me.EinKombifeld) Then
      DoCmd.OpenForm ZielFormular, DataMode:=acFormAdd
   Else
      DoCmd.OpenForm ZielFormular, , , BuildCriteria("Primaerschluesselfeld", dbLong, Me.EinKombifeld)
   End If
End Sub