Go to record where date field = today

[boblarson]

I figured out which form myself

This line should work:

rs.FindFirst "[Find_Date] = #" & Format(Date, "mm/dd/yyyy") & "#"

Here's what works for sure (just tested it - in fact I got it by adding a combo box for find a record option and just converted the combo reference to DATE.

Private Sub Find_Today_Click()
   Dim rs As Object
 
    Set rs = Me.Recordset.Clone

    rs.FindFirst "[Date_Worked] = #" & Format(Date, "mm\/dd\/yyyy") & "#"

    If Not rs.EOF Then 
         Me.Bookmark = rs.Bookmark
    Else
         MsgBox "No Match"
    End If

End Sub

 

[Alan Forman]

Wow, I'd have never got that.

Thanks very much, much appreiciated.

Alan