Can anyone help. I have a combo box in a form header which searches for a particular record based on the ID in the combo. This was working previously and I don't know what has changed to stop it working but now when I select something in the combo box nothing happens.
Dim rs As DAO.Recordset
If Not IsNull(Me.cboSearchID) Then
'Save before move.
If Me.Dirty Then
Me.Dirty = False
End If
'Search in the clone set.
Set rs = Me.RecordsetClone
rs.FindFirst "[ID] = " & Me.cboSearchID
If rs.NoMatch Then
MsgBox "Not found: filtered?"
Else
'Display the found record in the form.
Me.Bookmark = rs.Bookmark
End If
Set rs = Nothing
End If
I tried adding Microsoft DAO 3.6 object Library to the references but it said that caused a conflict - however I don't know with what or even if this is the issue
Dim rs As DAO.Recordset
If Not IsNull(Me.cboSearchID) Then
'Save before move.
If Me.Dirty Then
Me.Dirty = False
End If
'Search in the clone set.
Set rs = Me.RecordsetClone
rs.FindFirst "[ID] = " & Me.cboSearchID
If rs.NoMatch Then
MsgBox "Not found: filtered?"
Else
'Display the found record in the form.
Me.Bookmark = rs.Bookmark
End If
Set rs = Nothing
End If
I tried adding Microsoft DAO 3.6 object Library to the references but it said that caused a conflict - however I don't know with what or even if this is the issue