Hallo,
ich habe hier folgendes Problem. Über mein Formular wähle ich in einem Combo-Feld einen Datensatz aus. wähle ich einen, der nicht in der liste ist (wenn ich ein zeichen anfüge, weglasse...etc) kommt folgende Funktion zum Einsatz. Die aber noch nicht ganz Funktioniert.ich hatte es zuvor mit recordset probiert, das ist das auskommentierte... ds problem ist halt evtl. meinen tabellen struktur. In der Tabelle wo 'Kategorie' gespeichert ist, hat 2 Datenfelder. ID und Kategorie.
Also, wie bekomm ich das denn nun hin, das er wenn der eintrag nicht in der Tabelle ist, das er den einfach hinzufügt.
mfg drldoom^^
ich habe hier folgendes Problem. Über mein Formular wähle ich in einem Combo-Feld einen Datensatz aus. wähle ich einen, der nicht in der liste ist (wenn ich ein zeichen anfüge, weglasse...etc) kommt folgende Funktion zum Einsatz. Die aber noch nicht ganz Funktioniert.ich hatte es zuvor mit recordset probiert, das ist das auskommentierte... ds problem ist halt evtl. meinen tabellen struktur. In der Tabelle wo 'Kategorie' gespeichert ist, hat 2 Datenfelder. ID und Kategorie.
Code:
Private Sub FID_Kategorie_NotInList(NewData As String, Response As Integer)
Dim StrMessage As String
'Dim db
'Dim rs As ADODB.Recordset
Dim sql As String
StrMessage = "Möchten Sie '" & NewData & "' als neue Kategorie einfügen?"
If MsgBox(StrMessage, vbOKCancel, "Daten anfügen") = vbOK Then
sql = "INSERT INTO T_Kategorie (Bezeichnung) values('" & NewData & "');"
DoCmd.RunSQL sql
' Set db = CurrentDb()
' Set rs = db.OpenRecordset("T_Kategorie")
' rs.AddNew
' rs!Bezeichnung = NewData
' rs.Update
' Response = acDataErrAdded
' DoCmd.OpenForm "F_Filme", , , , , acDialog
Else
Response = acDataErrDisplay
End If
End SubAlso, wie bekomm ich das denn nun hin, das er wenn der eintrag nicht in der Tabelle ist, das er den einfach hinzufügt.
mfg drldoom^^
