I am supporting an Access 2003 database application and I am looking at code I don't understand. I am realitively new to VBA and most of my programming experience is way before OOP. Anyway, can anyone tell me what this code is doing?
Private Sub Combo223_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[DateReported] = #" & Format(Me![Combo223], "mm\/dd\/yyyy") & "#"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Combo223 is a drop down menu in a form. The record source for this drop down is a query that selects the DateReported fields in all the records of a ODBC table. Any help to demystify this for me would be greatly appreciated.
Private Sub Combo223_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[DateReported] = #" & Format(Me![Combo223], "mm\/dd\/yyyy") & "#"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Combo223 is a drop down menu in a form. The record source for this drop down is a query that selects the DateReported fields in all the records of a ODBC table. Any help to demystify this for me would be greatly appreciated.