I'm not really familiar with Access, but after update the database from Office 1997 to office 2010 i got an error everytime i click a button. The error is:
This object doesn't contain the automation object 'RecordsetClone'.
Please help me.
This is the code:
Private Sub Knop148_Click()
On Error GoTo Err_Knop148_Click
DoCmd.Close
Exit_Knop148_Click:
Exit Sub
Err_Knop148_Click:
MsgBox Err.Description
Resume Exit_Knop148_Click
End Sub
Private Sub Clientselectie_Click()
On Error GoTo Err_Clientselectie_Click
Dim stDocName As String
Dim stLinkCriteria As String
stDocName = "Klanten"
stLinkCriteria = "[Klant-ID]=" & Me![Klant-ID]
DoCmd.Close
DoCmd.OpenForm stDocName, , , stLinkCriteria
Exit_Clientselectie_Click:
Exit Sub
Err_Clientselectie_Click:
MsgBox Err.Description
Resume Exit_Clientselectie_Click
End Sub
Private Sub Nieuweklant_Click()
On Error GoTo Err_Nieuweklant_Click
Dim stDocName As String
stDocName = "Client"
DoCmd.Close
DoCmd.OpenForm stDocName
DoCmd.GoToRecord , , acNewRec
Exit_Nieuweklant_Click:
Exit Sub
Err_Nieuweklant_Click:
MsgBox Err.Description
Resume Exit_Nieuweklant_Click
End Sub
Sub Keuzelijst_met_invoervak153_AfterUpdate()
' De record zoeken die overeenkomt met het besturingselement
Me.RecordsetClone.FindFirst "[NAAM] = " & Me!["Keuzelijst met invoervak153"]
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub
Private Sub CLIENTNAAM_ZOEKEN_Click()
On Error GoTo Err_CLIENTNAAM_ZOEKEN_Click
Screen.PreviousControl.SetFocus
DoCmd.DoMenuItem acFormBar, acEditMenu, 10, , acMenuVer70
Exit_CLIENTNAAM_ZOEKEN_Click:
Exit Sub
Err_CLIENTNAAM_ZOEKEN_Click:
MsgBox Err.Description
Resume Exit_CLIENTNAAM_ZOEKEN_Click
End Sub
Sub Keuzelijst_met_invoervak159_AfterUpdate()
' De record zoeken die overeenkomt met het besturingselement
Me.RecordsetClone.FindFirst "[Klant-ID] = " & Me![Keuzelijst met invoervak159]
Me.Bookmark = Me.RecordsetClone.Bookmark
End Sub
Private Sub Nieuwe_Client_Toevogen_Click()
On Error GoTo Err_Nieuwe_Client_Toevogen_Click
Dim stDocName As String
stDocName = "Nieuwe Klanten"
DoCmd.Close
DoCmd.OpenForm stDocName
DoCmd.GoToRecord , , acNewRec
Exit_Nieuwe_Client_Toevogen_Click:
Exit Sub
Err_Nieuwe_Client_Toevogen_Click:
MsgBox Err.Description
Resume Exit_Nieuwe_Client_Toevogen_Click
End Sub