Hallo,
in einem Accessformular (Access 2000) habe ich ein Kombinationsfeld, dessen Inhalt aus Spalte "Name" einer Tabelle mit den Feldnamen (ID, Name) stammt.
Es sollen aber nicht nur vorhandene Einträge auswählbar sein, sondern bei nichtvorhandenem Namen soll der neue Name einfach eingeben werden und in der Datenbank ein neuer Eintrag vorgenommen werden.
Laut Microsoft-Support soll das durch ein Ereignis "Bei nicht in Liste" welches wie folgt zu implementieren ist, funktionieren:
Ich bekomme aber bei
Dim db As Database
Die Meldung, dass der "Benutzerdefnierte Typ nicht definiert" ist.
Gibt es a) eine andere Möglichkeit mein Vorhaben umzusetzen oder b) wo liegt der Fehler?
edit:
Man muss im VBA-Editor unter Extras->Verweise die "[SIZE=-1]Microsoft DAO X.X Object Library" ( X.X steht dabei für die Versionsnummer)
Je nach anderen eingebundenen Verweisen kann es zu Konflikten bei der Zuordnung von Database und Recordset kommen. Um dem ganzen aus dem Weg zu gehen, kann man auch direkt DAO.Database bzw. DAO.Recordset verwenden.
[/SIZE]
in einem Accessformular (Access 2000) habe ich ein Kombinationsfeld, dessen Inhalt aus Spalte "Name" einer Tabelle mit den Feldnamen (ID, Name) stammt.
Es sollen aber nicht nur vorhandene Einträge auswählbar sein, sondern bei nichtvorhandenem Namen soll der neue Name einfach eingeben werden und in der Datenbank ein neuer Eintrag vorgenommen werden.
Laut Microsoft-Support soll das durch ein Ereignis "Bei nicht in Liste" welches wie folgt zu implementieren ist, funktionieren:
Code:
Response = acDataErrAdded ' verhindert die Standardmeldung
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Tabellenname", DB_OPEN_DYNASET)
rs.AddNew
rs!Feldname = NewData ' neu eingegebenen Wert in die Tabelle übernehmen
rs.Update
rs.Close : Set rs = Nothing
db.CloseDim db As Database
Die Meldung, dass der "Benutzerdefnierte Typ nicht definiert" ist.
Gibt es a) eine andere Möglichkeit mein Vorhaben umzusetzen oder b) wo liegt der Fehler?
edit:
Man muss im VBA-Editor unter Extras->Verweise die "[SIZE=-1]Microsoft DAO X.X Object Library" ( X.X steht dabei für die Versionsnummer)
Je nach anderen eingebundenen Verweisen kann es zu Konflikten bei der Zuordnung von Database und Recordset kommen. Um dem ganzen aus dem Weg zu gehen, kann man auch direkt DAO.Database bzw. DAO.Recordset verwenden.
[/SIZE]
Zuletzt bearbeitet: