title image


Smiley Re: Hab Dein Coding 1:1 in mein Beispiel-Formular kopiert...
Ich habe die Haltepunkte gesetzt und mir ist dabei aufgefallen das ein Falsches Datum im ErrHandler Case 94 abgefangen wurde und im Exit Sub von ErrExit geendet hat!!









ErrExit:

    On Error Resume Next

    Exit Sub



ErrHandler:

 Select Case Err.Number

    Case 94 ' Unzulässige Verwendung von Null

    Resume ErrExit

 Case Else

    MsgBox Err.Description, vbCritical, "Fehler " & Err.Number & " aufgetreten!"

    Cancel = True

    Resume ErrExit

 End Select



Nun habe ich einfach meinen alten Weg dort eingebaut(ich weiß das dies der falsche ist) und es hat funktioniert!









ErrExit:

    On Error Resume Next

    Exit Sub



ErrHandler:

    Select Case Err.Number

        Case 94 ' Unzulässige Verwendung von Null

            If DateDiff("d", Me.ActiveControl.Value, Beginn) > 0 Then

                MsgBox "Das eingegebene Datum liegt außerhalb des gültigen Bereiches", vbOKOnly, "Datum der Schicht"

                Me.Undo

            Else

                Resume ErrExit

            End If

        Case Else

            MsgBox Err.Description, vbCritical, "Fehler " & Err.Number & " aufgetreten!"

            Cancel = True

            Resume ErrExit

    End Select



Soll ich das so lassen oder gibt es für me.undo eine elegantere Lösung??
Meine Beiträge beziehen sich auf Access 2003

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: