title image


Smiley Eingabevalidierung
Hallo (Access2003),



ich lerne aus Erfahrung. Daher meine Frage, warum läuft dieser Code nicht ?



Private Sub Liefertermin_BeforeUpdate(Cancel As Integer)

If Not IsNull(Me!Bestelldatum) And Not IsNull(Me!Liefertermin) Then

If Me!Bestelldatum > Me!Liefertermin Then

MsgBox "Das Lieferdatum kann nicht vor dem Bestelldatum liegen.", _

vbOKOnly + vbExclamation, "Falsche Datumsangabe !"

Me!Liefertermin.SetFocus

Exit Sub

End If

End If



End Sub
Gruß aus dem Emsland!

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: