Private Sub cmbFindSatf_AfterUpdate()
Dim rs As Object
'Me.FilterOn = False
Set rs = Me.Recordset.Clone
rs.FindFirst "[SATF_NO] = " & Me![cmbFindSatf].Column(1)
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Me.Refresh
End Sub
' if the field [SATF_NO] is Text use this codes
Private Sub cmbFindSatf_AfterUpdate()
Dim rs As Object
'Me.FilterOn = False
Set rs = Me.Recordset.Clone
rs.FindFirst "[SATF_NO] = '" & Me![cmbFindSatf].Column(1) & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Me.Refresh
End Sub
|