Office中国论坛/Access中国论坛

标题: 有高手来看看 权限管理窗口 设置不了权限 [打印本页]

作者: 不想读书    时间: 2012-5-16 13:46
标题: 有高手来看看 权限管理窗口 设置不了权限
我在权限管理窗体上  设置可选用户 怎么都设置不了     是论文要用的  有高手帮我一把
                      谢谢了....
作者: chuang0321    时间: 2012-5-16 15:30
我可以选择用户哇
作者: chuang0321    时间: 2012-5-16 15:36
看了你的登录界面的代码,有问题:
Private Sub cmdOK_Click()
   
    If IsNull(Me.cboUserName) Then
        MsgBox "请输入您的用户名!", vbQuestion, "注意"
        Exit Sub
    End If

    If login = True Then
       DoCmd.OpenForm "menu"
        Me.TimerInterval = 0
        Me.Visible = False
      
      
       TxtPwd.Value = ""
    Else
        MsgBox "用户名或密码不正确!", vbCritical, "注意"
      
         TxtPwd.Value = ""
        Exit Sub
    End If


其中的“       DoCmd.OpenForm "menu"”  menu窗体在什么地方,应该是“主界面”才对。


引用了一个不存在的“menu”窗体,当然什么也看不见了
作者: 不想读书    时间: 2012-5-16 15:50
chuang0321 发表于 2012-5-16 15:36
看了你的登录界面的代码,有问题:
Private Sub cmdOK_Click()
   

登陆的东西  我已经解决了
  谢谢了   
      权限管理那块  搞不定
作者: 不想读书    时间: 2012-5-16 15:51
chuang0321 发表于 2012-5-16 15:30
我可以选择用户哇

我选择不了啊   怎么改都只有一个用户...

作者: 不想读书    时间: 2012-5-16 15:52
chuang0321 发表于 2012-5-16 15:30
我可以选择用户哇

我属于 菜鸟中的菜鸟  还没入门
          什么不懂
     
作者: chuang0321    时间: 2012-5-16 16:27
为什么你选不了用户,你能看见的用户是什么?

作者: 不想读书    时间: 2012-5-16 16:29
chuang0321 发表于 2012-5-16 16:27
为什么你选不了用户,你能看见的用户是什么?

我登录时看得到用户
      在用户权限管理中  只有一个user用户啊
  
作者: chuang0321    时间: 2012-5-16 16:38
不能下拉进行选择吗?

作者: 不想读书    时间: 2012-5-16 17:01
chuang0321 发表于 2012-5-16 16:38
不能下拉进行选择吗?

是没有显示吧....
作者: chuang0321    时间: 2012-5-16 17:23
看看我的
作者: 不想读书    时间: 2012-5-16 18:02
不是这   
   是权限管理   可选用户
作者: 不想读书    时间: 2012-5-16 18:03
chuang0321 发表于 2012-5-16 17:23
看看我的

不是登陆界面
作者: roych    时间: 2012-5-16 18:53
不想读书 发表于 2012-5-16 18:02
不是这   
   是权限管理   可选用户

又是单双引号问题。把RunSQL的语句改改:
DoCmd.RunSQL "update 权限表  set 权限表.打开=" & Check8.Value & ",编辑=" & Check10.Value & " where 用户名='" & List0.Value & "' and 窗体名='" & List2.Value & " '"
貌似你的系统有蛮多这类型的语句问题,这里不一一调试了,不清楚之处再发帖上来。
作者: 不想读书    时间: 2012-5-17 00:23
roych 发表于 2012-5-16 18:53
又是单双引号问题。把RunSQL的语句改改:
DoCmd.RunSQL "update 权限表  set 权限表.打开=" & Check8.Va ...

嗯,谢谢了啊
   .......
作者: 不想读书    时间: 2012-5-17 16:56
roych 发表于 2012-5-16 18:53
又是单双引号问题。把RunSQL的语句改改:
DoCmd.RunSQL "update 权限表  set 权限表.打开=" & Check8.Va ...

你好啊,我把查询界面做好了 但是不晓得写代码  
             网上查了蛮多  因为没什么基础刚刚接触 也很难看懂
     希望你能百忙之中帮下忙....   
                                   麻烦你了  非常感谢!!!!!!!~~~~~@
                       




欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/) Powered by Discuz! X3.3