G
gabrielho
Guest
Please Help,
The Error Message is :"'Run-time Error '7951':' 'You entered an expression that has an invalid reference to the RecordsetClone property.'
I DON"T KNOW WHY
Private Sub Combo2_AfterUpdate()
Dim rst As Recordset
'Dim rst As Recordset
Dim strCriteria As String
Set rst = Me.RecordsetClone
strCriteria = " NAME_PTYCODE = " & Me!Combo2
rst.FindFirst strCriteria
Me.Bookmark = rst.Bookmark
rst.Close
Set rst = Nothing
End Sub
The Error Message is :"'Run-time Error '7951':' 'You entered an expression that has an invalid reference to the RecordsetClone property.'
I DON"T KNOW WHY
Private Sub Combo2_AfterUpdate()
Dim rst As Recordset
'Dim rst As Recordset
Dim strCriteria As String
Set rst = Me.RecordsetClone
strCriteria = " NAME_PTYCODE = " & Me!Combo2
rst.FindFirst strCriteria
Me.Bookmark = rst.Bookmark
rst.Close
Set rst = Nothing
End Sub