添加窗体修改与删除功能[平台开发007]

时　间:2006-03-03 00:00:00
作　者:UMVsoft整理   ID：8  城市：上海  QQ：3059255
摘　要:添加窗体修改与删除功能[平台开发007] 
正　文:

二、将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

四、设置修改与删除权限，请下载演示文件：

   点击下载该文件