daninthemix
Registered User.
- Local time
- Today, 12:50
- Joined
- Nov 25, 2005
- Messages
- 41
I have this combo box:
----------------------
Private Sub Combo33_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Customer] = '" & Me![Combo33] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
cmdViewOpen.SetFocus
End Sub
-----------------------
...which works fine, except when I come into this form after bouncing around several others.
The box just stops working! Any ideas why?
----------------------
Private Sub Combo33_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[Customer] = '" & Me![Combo33] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
cmdViewOpen.SetFocus
End Sub
-----------------------
...which works fine, except when I come into this form after bouncing around several others.
The box just stops working! Any ideas why?
