Convert FindIt recordset from DAO to ADO

Topic

New Reply

Convert FindIt recordset from DAO to ADO

i want to convert from DAO to ADO the

following code:

Private Sub CboCompany_AfterUpdate()
Dim rs As Recordset
Set rs = Me.RecordsetClone
rs.FindFirst “[ClientID] = ” &

CboCompany.Value
If rs.NoMatch Then
MsgBox “Client Not Found”
Else
Me.Bookmark = rs.Bookmark

End If
End Sub
Can somebody help me?

Reply | Quote

Replies

Try this (make sure to add a reference to one of the Microsoft ActiveX Data Objects libraries; I used 2.1):

Private Sub CboCompany_AfterUpdate()
Dim rs As ADODB.Recordset
Set rs = Me.RecordsetClone ‘I don’t know what this does
rs.Find “[ClientID] = ” & CboCompany.Value, 0, adSearchForward
If rs.EOF Then
MsgBox “Client Not Found”
Else
Me.Bookmark = rs.Bookmark
End If
End Sub

Reply | Quote

The recordsetclone makes a copy of the recordset collection the form uses. This allows one to search (for example) and move to an explicit record in the form or to warn that it has not been found. If you tried to do that with the records the form is based on directly it will become very comlicated.

Reply | Quote

Keep in mind, though, that recordset clones in ADO are different from DAO recordsetclones and aren’t even created the same way. In ADO, they’re full independent instances of the recordset object, not just temporary copies of it, and any changes made to the recordsetclone are the real thing.

Reply | Quote