【新手入门】之十九：从“书与女友恕不外借”谈起——浅谈“Bookmark”的使用

smilingkiss

roych 发表于 2013-2-5 15:05
对呀。找到书的页码之后，是不是应该根据页码去翻到目标页呢？^_^
首先，我们要确定，到底哪本是“书”，哪 ...

谢谢啊,版主
对了,关于bookmark这个属性,可以用msgbox来立即显示其值的吗?
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.Recordset.FindFirst "id=30"
MsgBox rst2.Bookmark
MsgBox Me.Parent.Form.frm_Tab_查档资料_sub1.Form.Recordset.Bookmark
rst2.Bookmark = Me.Parent.Form.frm_Tab_查档资料_sub1.Form.Recordset.Bookmark
End Sub

我在这里插入了两个msgbox,打算看看bookmark赋值前的值,不过显示是"?",bookmark有没有具体值可以显示出来的?

另外,烦请版主再帮我解释一下:
Set rst2 = Me.Form.Parent.Form.frm_Tab_查档资料_sub1.Form.Recordset
rst2.Bookmark = Me.Parent.Form.frm_Tab_查档资料_sub1.Form.Recordset.Bookmark
第一句已经把frm_Tab_查档资料_sub1赋给rst2了,那么就本身意味着frm_Tab_查档资料_sub1.bookmark就等于rst2.bookmark了吗?为什么下面那句还要重复赋一次bookmark呢?

小弟理解能力有限,望版主多多体谅,这个问题也不急的,望版主有空的时候再指点一二,我会认真学习的,谢谢!

fnsmydyang

学习一下，谢谢分享。

shawncharly

什么屌东西这么贵

roych

shawncharly 发表于 2015-7-16 14:49
什么屌东西这么贵

不少实例转到了源码，都要扣2个点，我下载也是一样的。

purplerose

#书与女友恕不外借” ROYCH  您真有创意了

newglord

回复并下载

pyh512

有点意思

玉树TMD临风

正好在写档案系统，拿来学习一下