4.7 删除功能的添加
相对于新增功能和修改功能而言，删除功能的制作就显得相当简单了。
进入 frmyg_child 窗体的设计视图，之后直接进入该窗体的代码页面，如下图所示：
新起一行，输入以下代码：
Public Sub btnDel()
If MsgBox("您确认要删除吗?", vbYesNo + vbInformation, Forms!usysfrmLogin.Caption) = vbYes Then
DoCmd.Echo False
Call AccHelp_DeleteFldstrRow ("tblCodeyg", "ygId", selectstr)
Forms!usysfrmMain!frmChild.SourceObject = "frmyg_child"
DoCmd.Echo True
End If
End Sub
确认无误之后，保存修改，之后再如前所述，添加导航按钮的删除属性，之后再赋予管理员组删除权限。
