R
RobUCSD
With the below I'm checking the qryVisitList to see if there are records. If
no records exist, I want the date picker to display today's date, but not
initiate a new record. What happens now is if I go to a patient who has no
visit date, the date form the previous patient's visit is displayed by the
date picker rather than today's date. So, no visits, date picker display
today's date only, don't initiate a new record.
Hope this is clear, as always your help is greatly appreciated.
Thanks, Rob
Dim MyDate As Date
MyDate = Date
If (DCount("*", "[qryVisitList]") < 1) Then
frmVisitNewEdit.Form!DTPicker7.Format = "@;" & MyDate
End If
no records exist, I want the date picker to display today's date, but not
initiate a new record. What happens now is if I go to a patient who has no
visit date, the date form the previous patient's visit is displayed by the
date picker rather than today's date. So, no visits, date picker display
today's date only, don't initiate a new record.
Hope this is clear, as always your help is greatly appreciated.
Thanks, Rob
Dim MyDate As Date
MyDate = Date
If (DCount("*", "[qryVisitList]") < 1) Then
frmVisitNewEdit.Form!DTPicker7.Format = "@;" & MyDate
End If