[ACCESS] Not in List - Ereignis

[Pittiplatsch]

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?

[Pittiplatsch]

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]