[5分]数据字典中使用保存和删除按钮无效

改好了

请先在模块里面声明一个数字型变量

'定义数值型变量
Public NumSelectID As Long

然后在frm_setdictionary窗体里面写代码

Private Sub 分组序号_GotFocus()
On Error GoTo Err_分组序号_GotFocus:
        NumSelectID = Me.分组序号
        Forms!usysfrmMain!labFind.Tag = 1
        Forms!usysfrmMain!btnEdit.Tag = 999
Exit_分组序号_GotFocus:
        Exit Sub
Err_分组序号_GotFocus:
        Resume Exit_分组序号_GotFocus
End Sub
Public Sub btnDel()
If MsgBox("您确认要删除吗?", vbYesNo + vbInformation, Forms!usysfrmLogin.Caption) = vbYes Then
    DoCmd.SetWarnings False
    DoCmd.RunSQL "DELETE FROM tbl_ItemDictionary WHERE 数据项='" & Me.数据子窗体!数据项 & "' AND 分组序号=" & Me.数据子窗体!分组序号
    DoCmd.SetWarnings True
    Me!数据子窗体.Requery
End If
End Sub