Public Function IsEdit(TheForm As Form) As Boolean '是否允许编辑窗体内容,不提示相关信息
On Error GoTo Err:
If Not IsLoaded("用户登陆") Then
IsEdit = False
Else
IsEdit = DLookup("编辑", "权限表", "用户名='" & Forms("用户登陆").cboUserName.Value & "' and 窗体名='" & TheForm.Name & "'")
End If
Err:
Exit Function