一、下载示例Simple04.mdb
点击下载该文件
二、将Simple04.mdb中的下面两个对象导入到AccDev.mdb中:
1.窗体 frm销售明细_child_Edit
2.模块sysModCode
三、在 frm销售明细_child 窗体模块中写代码:
1、在 序号 的获得焦点事件中写下述代码
Private Sub 序号_GotFocus()
SelectID = Me.序号
Forms!usysfrmMain!btnEdit.Tag = 999
Exit_序号_GotFocus:
Exit Sub
Err_序号_GotFocus:
Resume Exit_序号_GotFocus
End Sub
2、添加删除子程序
Public Sub btnDel()
If MsgBox("您确认要删除吗?", vbYesNo + vbInformation, Forms!usysfrmLogin.Caption) = vbYes Then
DoCmd.Echo False
Call AccHelp_DeleteFldNumRow("tbl销售明细", "序号", SelectID)
Forms!usysfrmMain!frmChild.SourceObject = "frm销售明细_child"
DoCmd.Echo True
End If
End Sub
四、设置修改与删除权限,请下载演示文件:
点击下载该文件