[5分]按钮运行

代码写重复了  请把如下代码删除

Private Sub ygId_GotFocus()
On Error GoTo Err_ygId_GotFocus:
selectstr = Me.ygId
Forms!usysfrmMain!btnEdit.Tag = 999
Exit_ygId_GotFocus:
 Exit Sub
Err_ygId_GotFocus:
    Resume Exit_ygId_GotFocus
End Sub

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 = "frmCodeyg_child"
        DoCmd.Echo True
    End If
End Sub