title image


Smiley Re: Eingabevalidierung - Bin ratlos
Hallo,



es sind beides Textfelder im Format tt.mm.jjjj. Sie werden bei Doppelclick über einen PopUpKalender befüllt (=PopUpCalendar(Screen.ActiveControl).



Bei Eingabe von z.Bsp 24.03.2006 im Textfeld [Bestelldatum] und 09.03.2006 im Feld [Liefertermin] soll er meckern, tut's aber nicht.



Ich habe den u.a. Code, wie von Dir vorgeschlagen mit Cancel = True getestet: Ohne Erfolg.

Dann habe ich einen modifizierten Code (siehe weiter unten) auf After Update gelegt: Auch ohne Erfolg.





Bin ratlos.

xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Private Sub Liefertermin_BeforeUpdate(Cancel As Integer)

If Not IsNull(Me!AngebAnfrage) And Not IsNull(Me!AngebAntwort) Then

If Me!AngebAnfrage > Me!AngebAntwort Then

MsgBox "Das Antwortdatum kann nicht vor dem Anfragedatum liegen.", _

vbOKOnly + vbExclamation, "Falsche Datumsangabe !"

Me!Liefertermin.SetFocus

Cancel = True

End If

End If

End Sub



xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx

Private Sub Liefertermin_AfterUpdate()



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 = null

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: