主题：表达式

用常朝宏登录提示没有采购明细X表,用李丽梅登录提示没有采购明细表，我也是瞎猜，不知是不是这个原因。刚才我连接到数据库，还提示表达式不对，然后我把表达式删除，用户可以登录，但再输入表达式，就提示表达式不对。常朝宏和李丽梅是采购员。周敏是总经理

用常朝宏登录提示没有采购明细X表,用李丽梅登录提示没有采购明细表，我也是瞎猜，不知是不是这个原因。刚才我连接到数据库，还提示表达式不对，然后我把表达式删除，用户可以登录，但再输入表达式，就提示表达式不对。常朝宏和李丽梅是采购员。周敏是总经理

加入上边的两行代码后出现的提示

此主题相关图片如下：123.png

 

这两段代码要删除，不然表不存在，自然就关联不了

 

Select Case e.DataTableName
    Case "供应商资料","产品资料","采购明细"
        e.Cancel = (e.User.Name = "李丽梅")
   End Select

Select Case e.DataTableName
    Case "供应商资料X","产品资料X","采购明细X"
        e.Cancel = (e.User.Name = "常朝宏")
   End Select

 

如果想隐藏，可以在LoadUserSetting事件写代码

 

If User.Name = "李丽梅" Then
    Tables("供应商资料x").visible = True
    Tables("产品资料x").visilble = True
    Tables("采购明细x").visible = True
    Tables("供应商资料").visible = False
    Tables("产品资料").visilble = False
    Tables("采购明细").visible = False
ElseIf User.Name = "常朝宏"
    Tables("供应商资料").visible = True
    Tables("产品资料").visilble = True
    Tables("采购明细").visible = True
    Tables("供应商资料x").visible = False
    Tables("产品资料x").visilble = False
    Tables("采购明细x").visible = False
End If

 

把14楼的代码，删除，就没这个问题了