Query Criteria ... VBA code

[soupisgood84]

I have a text_box in a form that will fill a query criteria but when it's blank I want it to insert the following (see below) but I cant seem to get it to work.

Can anyone tell me what I am doing wrong?

    If Me.txtStartDate = "" Then
    Me.txtStartDate = "1/1/" & Year(Now)
    End If
    If Me.txtEndDate = "" Then
    Me.txtEndDate = Now()
    End If

 

[PHV]

What about this ?
If Not IsDate(Me!txtStartDate) Then
Me!txtStartDate = CDate("1/1/" & Year(Now))
End If
If Not IsDate(Me!txtEndDate) Then
Me!txtEndDate = Date
End If

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886