Hello,
The following codes are not work for access2000.
No "FindFirst" in access200?? Please help me out.
Thanks
Jeannia
Private Sub Combo18_AfterUpdate()
Dim rs As Recordset
'Dim rs As Object
Set rs = Me.Recordset.Clone
'rs.FindFirst "[MC_NUM] =" & Me!Combo18
rs.FindFirst "[MC_NUM] = " & Str(Me!Combo18)
Me.Bookmark = rs.Bookmark
End Sub
The following codes are not work for access2000.
No "FindFirst" in access200?? Please help me out.
Thanks
Jeannia
Private Sub Combo18_AfterUpdate()
Dim rs As Recordset
'Dim rs As Object
Set rs = Me.Recordset.Clone
'rs.FindFirst "[MC_NUM] =" & Me!Combo18
rs.FindFirst "[MC_NUM] = " & Str(Me!Combo18)
Me.Bookmark = rs.Bookmark
End Sub