Detail: AG-VIP_SQL - Prüfung eines Feldes vom Typ DatumZeit

28.07.2009 - AG-VIP_SQL - Prüfung eines Feldes vom Typ DatumZeit

' Heiko Jendreck - personal helpdesk & webdesign
' http://www.phw-jendreck.de
' 2009.07.28 Vers1.0 USticker
' In diesem Makro soll ein Pflichtfeld vom Typ "DatumZeit" geprüft werden, ob es leer ist.
' wichtig hierbei ist, dass sowohl Datum als auch die Zeit geprüft werden muss.

MsgBox CheckDate(ActiveAddress.Fields("Appointment").value)

' Prüfen auf korrekte Datum/Zeitangabe
Function CheckDate(myDate)
If IsDate(CDate(myDate)) Then
Select Case True
Case Not CBool(myDate)
CheckDate = "Sie haben für den Termin kein Datum und keine Zeit angegeben"
Case CLng(myDate) = myDate
CheckDate = "Sie haben Nur ein Datum, aber keine Zeit für den Termin eingegeben"
Case Not CBool(Fix(myDate))
CheckDate = "Sie haben Nur eine Zeit, aber kein Datum für den Termin eingegeben"
Case Else
CheckDate = "Der Termin wurde mit Zeit und Datum erfasst"
End Select
End If
End Function

Makro-Sample:
Makro - Prüfung eines Feldes vom Typ DateTime als Pflichtfeld

zurück

Copyright © 2003 - 2011, Heiko Jendreck, All rights reserved
http://www.phw-jendreck.de / Heiko Jendreck; Friedrichstrasse 20; 68782 Brühl