大家看看这段代码哪出错了，谢谢

dijing　发表于：2009-08-07 09:28:41 　

Private Sub Image11_Click()

    If Nz(DLookup("[选择]", "权限管理", "[用户名]=" & "'" & Forms!用户登陆!Combo用户名 & "' and [模块ID]='11' ")) = -1 Then
    'docmd.OpenForm "窗体11"

     DoCmd.OpenForm "业主信息窗体"
          Me.AllowAdditions = False
    Else
    MsgBox "权限受限！"
    End If
End Sub

已经Me.AllowAdditions = False 为什么还能添加呢？是代码谢错了吗？

Top

蟹仔发表于：2009-08-07 20:34:13

你的意思是打开不可编辑的 "业主信息窗体" ？那么打开的时候后面加上，，，acFormReadOnly
如果你要的是本窗体不可编辑。就用 Me.form.AllowAdditions = False

Top

总记录：1篇页次：1/1 9 1 :

Access交流中心

大家看看这段代码哪出错了，谢谢