access的窗体??
能调用,但是调用的时候必须启动access

解决方案 »

  1.   

    建立一个窗体权限表吧
    表的字段大概如下(比如等于则没有任何权限访问)
      FormName Permission
      frmMain    1
      frmSell    2
      frmProduce 0然后在一个全局函数中进行那个:
    (比如你想对frmSell进行权限判断)
    Dim intPermission As Integer
    intPermission = GetPermission(strSellFormName)
    If intPermission > 0 Then
      frmSell.Show
    End If不过我现在还没有好的“动态”方法
    不知道大家有吗?
      

  2.   

    我要求是动态的方法来达到动态调用:
    比如说:
    我有FrmShell窗体,当有语句:
    dim RsP as adodb.recordset
    set rsp=cn.execute("select * from 权限表名")
    if 用户有这个权限值 then
       forms("FrmShell").show'这句是不能使用的
    end if
    好像这样不太明白,但就是要用动态的如:
          forms("FrmShell").show'这句是不能使用的
    来实现.