Pittiplatsch Geschrieben 4. Mai 2005 Teilen Geschrieben 4. Mai 2005 Hab hier einen Code - Schnipsel: Private Sub Kombinationsfeld18_NotInList(NewData As String, Response As Integer) 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 End Sub Soweit ist das ja auch ganz OK, aber wie umgeh ich diese unnötige Abfrage, von wegen nicht in Liste und ob ich die Daten in die entsprechende Tabelle übernehmen will? Zitieren Link zu diesem Kommentar Auf anderen Seiten teilen Mehr Optionen zum Teilen...
Pittiplatsch Geschrieben 10. Mai 2005 Autor Teilen Geschrieben 10. Mai 2005 Hab jetzt selbst 'ne Lösung Option Compare Database Private Sub vo_ansprechpartner_NotInList(NewData As String, Response As Integer) On Error GoTo fehler Dim db As DAO.Database Dim rs As DAO.Recordset Response = acDataErrAdded Set db = CurrentDb Set rs = db.OpenRecordset("tbl_Ansprechpartnerdaten", dbOpenDynaset) rs.AddNew rs!nachname = NewData rs.Update rs.Close Set rs = Nothing db.Close ende: Exit Sub fehler: MsgBox Err.Description, 16, "Fehler" Resume ende End Sub [/PHP] Zitieren Link zu diesem Kommentar Auf anderen Seiten teilen Mehr Optionen zum Teilen...
Empfohlene Beiträge
Dein Kommentar
Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.