ACCESS 2010 ;)
Hi Leute ;D
Private Sub Form_Error(DataErr As Integer, Response As Integer)
On Error Resume Next
Select Case DataErr
Case 3022
Response = acDataErrContinue
MsgBox " Doppelte Datensätzte sind nich zulässig"
Me.Undo
Case Else
Response = acDataErrDisplay
' Me.Undo
End Select
End Sub
Private Sub Kombinationsfeld99_AfterUpdate()
'On Error MsgBox Text100
'On Error GoTo error_melder
'On Error Resume Next
'On Error GoTo Form_Error
Call Form_Angebote.alle_proceduren_starten
'Me.Requery 'geht ohne Fehlerformular
'DoCmd.GoToRecord , , acNewRec 'geht ohne Fehlerformular
DoCmd.RunCommand acCmdRecordsGoToNew
End Sub
Das ist mein Code
Die Fehlermeldung die ich gebaut habe Funktioniert soweit ....
aber mein AfterUpdate Prozedure ignoriert das einfach
DoCmd.RunCommand acCmdRecordsGoToNew
wenn ich das hinschreibe geht die Fehlermeldung nicht richtig, wenn ich es weck lasse komme ich nicht in den nächsten Datensatzt
ich muss aber automatisch in den Datensatzt springen ....
Danke für die Hilfe :P
Hallo,
siehe auch:
http://www.ms-office-forum.net/forum/showthread.php?t=274207 (http://www.ms-office-forum.net/forum/showthread.php?t=274207)
Grossposting (gleichzeitiges Fragen in mehreren Foren) ist hier unerwünscht, im anderen Forum auch. Kannst Du in den Regeln nachlesen.
Ja sry :'(
aber das Problem lässt sich ja nicht lösen und ich dachte bzw. denke hier in dem Forum sind mehr leute die mir helfen können
;)
Sry nochmal für das Grossposting ;)
ich konnte mein problem selbst beheben
für alle die ein gleiches Problem haben
http://www.ms-office-forum.net/forum/showthread.php?p=1355663 (http://www.ms-office-forum.net/forum/showthread.php?p=1355663)