|
Hi,
I have a subform, In my list (subform) I have set a button to display the
data of that record into the form.
But I do not succeed in doing so.
Any help would be appreciated
TNGgroup
Code
Private Sub CmdTop
Dim RS as variant
Set RS = me.recordset.clone
Sfilter = "[frmTop].[Id] = '" & me![id] & "'"
rs.find Sfilter
if rs.EOF = True then
Msgbox "No info"
Else
me.bookmark = rs.bookmark
End if
RS.close
set RS = nothing
end Sub
Error
Run time error 3001
----------------------------------------------------------------------------
----
| 
