title image


Smiley ...weiter ausprobiert
Ich habe den Code wieder umgeschrieben und das Ergebnis ist gar nicht so Schlecht.









Private Sub Datum_der_Schicht_BeforeUpdate(Cancel As Integer)

On Error GoTo Datum_der_Schicht_Err

Dim Ende As Date

Dim Beginn As Date

Dim Meldung As String



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

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



If Not IsNull(Beginn And Ende) Then

    If Me!Datum_der_Schicht <= Ende Then

        If Me!Datum_der_Schicht < Beginn Then

            Meldung = MsgBox("Das eingegebene Datum liegt außerhalb des gültigen Bereiches" & Chr(13) & _

            "Bitte wiederholen Sie Ihre Eingabe", vbOKOnly, "Datum der Schicht")

            Me.Undo

        End If

    End If



    If Me!Datum_der_Schicht >= Beginn Then

        If Me!Datum_der_Schicht > Ende Then

            Meldung = MsgBox("Das eingegebene Datum liegt außerhalb des gültigen Bereiches" & Chr(13) & _

            "Bitte wiederholen Sie Ihre Eingabe", vbOKOnly, "Datum der Schicht")

            Me.Undo

        End If

    End If

End If



If IsNull(Ende) Then

    If Me!Datum_der_Schicht < Beginn Then

        Meldung = MsgBox("Das eingegebene Datum liegt außerhalb des gültigen Bereiches" & Chr(13) & _

        "Bitte wiederholen Sie Ihre Eingabe", vbOKOnly, "Datum der Schicht")

        Me.Undo

    End If

End If



Datum_der_Schicht_Exit:

    Exit Sub

Datum_der_Schicht_Err:

    MsgBox Error$

    Resume Datum_der_Schicht_Exit

End Sub



Die Gültigkeitsregel funktioniert jetzt wenn Beginn und Ende nicht leer sind.

Ist dies jetzt ein typischer Fall von "Nasser Lappen" oder einsetzbar?? Was jetzt nur noch nicht klappt, ist die Situation wenn Ende Leer ist...
Meine Beiträge beziehen sich auf Access 2003

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: