主题：[求助]这个自定义登陆界面的代码该怎么写

楼主的意思还要把其他的表隐藏起来吧？比如顾客，不能看到其他的表。怎么隐藏？

Select Case User.Name

    Case “张三”

         Forms("订单表窗口名称").Open()

         MainTable = Tables(“订单”)

tables(“销售”).visible=false

    Case “李四”

       Forms("销售表窗口名称").Open()

       MainTable = Tables(“销售”)

tables(“订单”).visible=false

End Select