title image


Smiley Etwa so




Private Sub Datum_der_Schicht_BeforeUpdate(Cancel As Integer)



Dim strMeldung As String



strMeldung = ""



If IsDate(Me.ActiveControl.Value) Then

If IsDate(Me!Datum_Beginn_Maßnahme) Then

If DateDiff("d", Me.ActiveControl.Value, Me!Datum_Beginn_Maßnahme) > 0 Then

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

Else

If IsDate(Me!Datum_Ende_Maßnahme) Then

If DateDiff("d", Me.ActiveControl.Value, Me!Datum_Ende_Maßnahme) < 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



End Sub







Schönen Gruß,

Eric

Spotlight-Kicktipp gestartet!

Steig ein und trete mit Deinem Bundesliga-Tipp gegen die Besten an! :o)

http://www.kicktipp.de/spotlight/



geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: