Object Required

[btrini10]

If Me![searchstartreviseddate] Is Null And Me![searchendreviseddate] Is Null Then
strFilter10 = "[Latest_Date] Like '*' OR [Latest_Date] Is Null"
Else
If Me![searchstartreviseddate] Is Null Then
strFilter10 = "[Latest_Date] <= #" & Me![searchendreviseddate] & "#"
Else
If Me![searchendreviseddate] Is Null Then
strFilter10 = "[Latest_Date] >= #" & Me![searchstartreviseddate] & "#"
Else
strFilter10 = "[Latest_Date] >= #" & Me![searchstartreviseddate] & "# And [Latest_Date] <= #" & Me![searchendreviseddate] & "#"
End If
End If
End If

Above is my code for which I keep getting an object required message. I am thinking it is something with the Me![searchendreviseddate] statement. Can anyone offer some advice?
Thanks

 

[BuilderSpec]

what sort of object is "searchendreviseddate" ?

On your form are there any blank white boxes that should have something else in them...?

Hope this helps!

Regards

BuilderSpec

 

[ZmrAbdulla]

Is that the syntax starts like
[tt]
If IsNull(Me![searchstartreviseddate]) Then
...........[/tt]


continue...

________________________________________________________
Zameer Abdulla
Help to find Missing people

 

[TheAceMan1]

How are ya btrini10 . . .

. . . and your logic needs to be checked! . . .

See Ya! . . . . . .

 

[btrini10]

Thanks ZMR Abdullah, it works. AceMan, I will check the logic.

 

[PHV]

I'd use syntax like this:
If IsDate(Me![searchstartreviseddate]) Then

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ181-2886

 

[ZmrAbdulla]

PHV rocks again..

________________________________________________________
Zameer Abdulla
Help to find Missing people

 

[TheAceMan1]

btrini10 . . .

Actually its not the logic as much as its the way its written. Should be more like:

[blue]   Dim SSRD As Date, SERD As Date
   
   SSRD = Me![[u]s[/u]earch[u]s[/u]tart[u]r[/u]evised[u]d[/u]ate]
   SERD = Me![[u]s[/u]earch[u]e[/u]nd[u]r[/u]evised[u]d[/u]ate]
   
   If SSRD Is Null And SERD Is Null Then
      strFilter10 = "[Latest_Date] Like '*' OR " & _
                    "[Latest_Date] Is Null"
   ElseIf SSRD Is Null Then
      strFilter10 = "[Latest_Date] <= #" & SERD & "#"
   ElseIf SERD Is Null Then
      strFilter10 = "[Latest_Date] >= #" & SSRD & "#"
   Else
      strFilter10 = "[Latest_Date] >= #" & SSRD & "# And " & _
                    "[Latest_Date] <= #" & SERD & "#"
   End If
   
   Set SERD = Nothing
   Set SSRD = Nothing[/blue]

See Ya! . . . . . .

 

[PHV]

If SSRD Is Null And SERD Is Null Then
Sorry, but only Variants may be null ...

 

[TheAceMan1]

PHV . . .

Just giving an idea of what the code should look like . . . not the actual . . .

See Ya! . . . . . .