title image


Smiley Mein Code...






Private Sub Datum_der_Schicht_BeforeUpdate(Cancel As Integer)

On Error GoTo ErrHandler

Dim strMeldung As String

Dim Ende As Date

Dim Beginn As Date

Beginn = Forms("F_D_Auftrag").Datum_Beginn_Maßnahme

Ende = Forms("F_D_Auftrag").Datum_Ende_Maßnahme



strMeldung = ""

If IsDate(Me.ActiveControl.Value) Then

    If IsDate(Beginn) Then

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

            strMeldung = "Das eingegebene Datum liegt vor dem Beginn der Maßnahme!"

        Else

            If IsDate(Ende) Then

                If DateDiff("d", Me.ActiveControl.Value, Ende) < 0 Then

                    strMeldung = "Das eingegebene Datum liegt nach dem Ende der Maßnahme!"

                End If

            End If

        End If

    End If

Else

        strMeldung = "Der eingegebene Wert '" & Me.ActiveControl.Value & "' ist kein gültiges Datum."

End If



If strMeldung <> "" Then

    strMeldung = strMeldung & vbCrLf & "Bitte wiederholen Sie Ihre Eingabe!"

    MsgBox strMeldung, vbCritical + vbOKOnly, "Datum der Schicht"

    Cancel = True

End If



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
Meine Beiträge beziehen sich auf Access 2003

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: