标题: 求助:自动复制上笔记录的实例完善 [打印本页] 作者: 明镜 时间: 2009-1-23 23:45 标题: 求助:自动复制上笔记录的实例完善 在输入式窗体中,有一个"添加"按钮,要求点击这个"添加"按钮后,出现对话框,提示是否复制上笔记录,选择是则自动复制,选择否则取消,但上传的例子只能出现对话框,而无法使用"否"的选项,就是选择"否"这个选项后仍复制了上笔,现把这个上传上来,请高手鼎力帮助,完善一下.谢谢.作者: Henry D. Sy 时间: 2009-1-24 07:11
Private Sub Form_Current() '窗体成为当前事件代码
If Me.NewRecord = True Then '如果新增记录
If MsgBox("是否复制上笔记录？", vbYesNo) = vbNo Then '提示是否复制
Exit Sub
End If
Dim rsClone As Recordset '定义记录集
Set rsClone = Me.RecordsetClone
rsClone.MoveLast '移动到最后一条记录
Me!科目编号 = rsClone!科目编号
Me!学号 = rsClone!学号
Me!姓名 = rsClone!姓名
Me!考试日期 = rsClone!考试日期
Me!单元 = rsClone!单元
Me!考试类别 = rsClone!考试类别
Me!成绩 = rsClone!成绩
Set rsClone = Nothing '关闭记录集
End If
End Sub