title image


Smiley Laufzeitfehler in VBA nur warum?
Hallo Leute,



vielleicht könnte sich einer mal kurz folgenden Code anschaun. Ich komm nicht weiter. Die Zeile mit dem Fehler ist kommentiert.



Danke

----------------------------------------------------------------------------

Private Sub suche_NotInList(NewData As String, Response As Integer)



Dim antwort

Response = 0

antwort = MsgBox("'" & NewData & "' wurde nicht gefunden. Möchten Sie diesen Kunde anlegen?", vbYesNo + vbQuestion, "Nicht gefunden")

If antwort = vbNo Then suche.Undo: Exit Sub

suche.Undo

DoCmd.GoToRecord , , acNewRec '###in dieser Zeile meldet er den Laufzeitfehler###

Me.Nachname.Value = NewData

Anrede.SetFocus

suche.Requery

End Sub

----------------------------------------------------------------------------



mfg



d-neo

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: