【新手入门】之二十：“书与书签”——bookmark属性答疑

smilingkiss

有幸拜读,并且抢到板凳,谢谢,辛苦roy版主了

smilingkiss

Private Sub 编号_Click()
Dim MyNum As Long
Dim rst As DAO.Recordset, rst2 As DAO.Recordset
Set rst = Me.Form.Recordset
Set rst2 = Me.Form.Parent.Form.frm_Tab_查档资料_sub1.Form.Recordset
MyNum = rst("编号")
rst2.FindFirst "编号=" & MyNum

Me.Parent.Form.frm_Tab_查档资料_sub1.Form.Recordset.Bookmark = rst2.Bookmark

End Sub

版主,我把代码改成这样也可以正常运行喔,就是bookmark的赋值反过来了(倒数第二行代码)