Wie kann ich einen neuen Datensatz anlegen, wenn der Benutzer einen nicht existierenden Eintrag in ein Kombinationsfeld eingibt?

Ein Beispiel zum NotInList-Ereignis

Private SubKunde_Name_NotInList(NewData As String, Response As Integer) 
If MsgBox("Kunde existiert nicht!" & vbCr& "Neu anlegen?", _
VbQuestion + vbYesNo) = vbYes Then
Kunden.DialogNeu
DoEvents
Kunden.g_frmKundenDialog!Ansprechpartner.SetFocus
Kunden.g_frmKundenDialog!Firmenname.Value = NewData
End If
Response = acDataErrContinue
End Sub

Häufig wird als Datenquelle für Kombinationsfelder eine Tabelle oder Abfrage einer übergeordneten Tabelle verwendet. Zum Beispiel könnte ein Formular "Rechnungen" ein Kombinationsfeld zur Auswahl des Kunden aus der Kundentabelle enthalten.