Kombinationsfeld und "Bei nicht in Liste"

Mit dem Ereignis "Bei nicht in Liste" ("NotInList") dem Kombinationsfeld einen Eintrag hinzufügen. Sie möchten, dass ein Wert, der in einem Kombinationsfeld eingegeben wird und dort noch nicht vorhanden ist, sofort in die Liste der Werte des Kombifeldes aufgenommen wird und danach zur Auswahl bereit steht.

Nachfolgend wird Step bei Step eine Beispieldatenbank erstellt die eine Datentabelle, ein Formular mit Kombifeld und dem entsprechenden VBA-Code zur Lösung der Anforderung zur Verfügung stellt.

1. Starten Sie Access und erstellen eine neue leere Datenbank
2. Legen Sie eine neue Tabelle mit einem Feld "NamNr" als Autowert und Primarykey und ein Feld mit dem Namen "NamTxt" als Textfeld an. Speichern Sie die Tabelle unter dem Namen "Daten".
3. Legen Sie eine neues Formular mit dem Namen "TestForm" an
4. Fügen Sie ein Kombifeld in das Formular ein
5. Setzen Sie nun die Eigenschaft "Nur Listeneinträge" des Kombinationsfeldes auf "Ja".
6. Stellen Sie in der Eigenschaft "Datensatzherkunft des Kombinationsfeldes" folgenden SQL-String ein "SELECT NamTxt FROM Daten;"
6. Schreiben Sie folgenden Code in das Ereignis "Bei nicht in Liste" des Kombinationsfeldes.

Code:

On Error GoTo fehler   Dim db As Database Dim rs As Recordset Dim erg As Integer   Response = acDataErrAdded erg = MsgBox("Der eingegebene Wert '" & NewData & _ "' ist nicht in der Liste vorhanden. Möchten Sie " & _ "den Wert in die Tabelle übernehmen?", 52, "Neuer Wert") If erg = 6 Then Set db = CurrentDb Set rs = db.OpenRecordset("Daten", dbOpenDynaset) rs.AddNew rs!NamTxt = NewData rs.Update rs.Close Set rs = Nothing db.Close Else Response = acDataErrContinue End If   ende: Exit Sub   fehler: MsgBox Err.Description, 16, "Fehler" Resume ende

Viele weitere Tipps & Tricks aus der Praxis für die Praxis finden Sie auf unserer AP-Access-Tools Vol.1

Auf der AP-Access-Tools Vol.1 finden Sie weitere 320 Tipps & Tricks sowie 250 Access-Beispiel/Anwendungen mit offenen Quellcode! Die Access-Tools-CD mit über 400 MByte Inhalt - für Access- und VB-Entwickler 256 Access-Beispiele mit offenem Code 45 Add-Ins und ActiveX-Komponenten (Freeware) 16 VB-Projekt inkl. Source 321 Tipps & Tricks für Access und VB Plus 11 Entwicklerversionen (9 davon mit Source!) Plus 3 Vollversionen und Plus riesiger Datenpool Holen Sie sich jetzt Ihre AP-Access-Tools-CD zum Superpreis von nur EUR 24,95!