- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 掩藏控件问题：为什么开发者没有被排除出去？ (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=124107)
-- 发布时间：2018/8/30 18:42:00
-- 掩藏控件问题：为什么开发者没有被排除出去？
1、排序窗口中Afterload这段代码有错吗？为什么开发者没有被排除在处，控件textBox1对开发者也不可见？
2、如果针对用户组，或某角色，该怎么写代码掩藏控件？
Dim _UserName As String
If _UserName = "开发者" Then
Forms("排序表").Controls("TextBox1").Visible = True
Else
Forms("排序表").Controls("TextBox1").Visible = False
End If
此主题相关图片如下：3.png
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:test1.table |
[此贴子已经被作者于2018/8/30 18:44:30编辑过]
-- 发布时间：2018/8/30 19:48:00
--
If User.Name = "开发者" Then
Forms("排序表").Controls("TextBox1").Visible = True
Else
Forms("排序表").Controls("TextBox1").Visible = False
End If
或者
Forms("排序表").Controls("TextBox1").Visible = User.Name = "开发者"