59、创建直观表单的实用技巧与方法

最新推荐文章于 2025-10-25 04:33:32 发布

c6d7e8f9g

最新推荐文章于 2025-10-25 04:33:32 发布

阅读量25

点赞数

CC 4.0 BY-SA版权

分类专栏： Access 2013编程精髓文章标签： Access表单设计只读字段设置图像控件使用

本文链接：https://blog.youkuaiyun.com/c6d7e8f9g/article/details/150985057

Access 2013编程精髓专栏收录该内容

75 篇文章 ¥499.90

订阅专栏¥69.90

会员秒杀 ¥9.9 重磅福利

超级会员免费看

创建直观表单的实用技巧与方法

1. 根据用户角色设置只读字段

在某些情况下，我们需要根据当前用户的角色来设置表单中字段的只读属性。以 frmDemoTagReadOnly 表单为例，它使用组合框来模拟确定用户角色的过程，并在表单的 Open 事件中使用以下代码根据所选角色设置只读字段：

Private Sub Form_Open(Cancel As Integer)
    'Initiate the user's role in memory based on the combobox value
    TempVars.Add "UserRole", Me.cboUserRole.Value
    'Set read-only fields based on current user's role
    Dim ctl As Control
    Dim blnAdmin As Boolean
    'Check user's role
    If Nz(TempVars("UserRole"), "User") = "Admin" Then
        blnAdmin = True
    Else
        blnAdmin = False
    End If
    For Each ctl In Me.Controls
        If ctl.Tag = "readonly" Then
            Select Case ctl.ControlType
                Case acTextBox