G
Guest
I have an Access 2002 application that was working fine on my computer but
now is not. The program works just fine on other computers. I get the above
error when selecting a record from a combo box. The code is below. I'm not
sure if I installed another program or not - I know I installed a COM called
REDEMPTION and then uninstalled it. I tried using Windows Restore to go back
a few weeks but that did not work. The error occurs on the line : Set rs
= Me.Recordset.Clone
Can you help???
Private Sub Combo32_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[ID] = " & Str(Nz(Me![Combo32], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub
now is not. The program works just fine on other computers. I get the above
error when selecting a record from a combo box. The code is below. I'm not
sure if I installed another program or not - I know I installed a COM called
REDEMPTION and then uninstalled it. I tried using Windows Restore to go back
a few weeks but that did not work. The error occurs on the line : Set rs
= Me.Recordset.Clone
Can you help???
Private Sub Combo32_AfterUpdate()
' Find the record that matches the control.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[ID] = " & Str(Nz(Me![Combo32], 0))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub