[求助]记录更新问题

flijgw · 发表于 2008-7-26 18:55

我有一个窗体，利用RECORDSET.CLONE实现查询并修改记录，希望在修改完后有个提示，如果点击确定，程序没有问题，如果点击否，程序会出现问题。问题记录如下：“运行时错误：3426，该操作被关联对象取消”，进入调试界面里，代码里 Me.Bookmark = rs.Bookmark 会出现黄色。请问我该如何解决？这个问题，谢谢！
代码如下：
Private Sub Form_BeforeUpdate(Cancel As Integer)
If MsgBox("该生的学历记录已被修改，是否要保存？", vbDefaultButton2 + vbNoYes) = vbNoThen
Cancel = True
End If
End Sub

Private Sub 学号_AfterUpdate()
Dim rs As Object
Set rs = Me.Recordset
rs.FindFirst "[学号] = '" & Me![学号] & "'"
Me.Bookmark = rs.Bookmark
End Sub

zhengjialon · 发表于 2008-7-29 11:23

试试:Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
rs.FindFirst "[学号] = '" & Me![学号] & "'"
Me.Recordset.Bookmark = rs.Bookmark

flijgw · 发表于 2008-7-30 12:06

还是不行，我上传数据库给你看看。

yYnVKEHA.rar (249.26 KB, 下载次数: 10)

[此贴子已经被作者于2008-7-30 12:12:42编辑过]

		自动登录	找回密码
密码			免费注册