在加载时禁用对访问表单的控制

Question

我正在尝试创建一个允许我控制对输入数据的人的访问权限的表单。这个想法是在加载表单时禁用所有控件，并且当它们 select 不同的主题时，各个字段将相应地 selected。我知道如何逐个字段执行此操作的长期方法，但我希望批量执行此操作，但我尝试的一切都失败了。

这是我目前拥有的

Dim control As control
Dim formName As String
Dim fieldName As String
Dim fieldParse As String


strFormName = "frm_Outfalls_Profile_Events"
For Each control In Forms(strFormName)
fieldName = control.Name
fieldParse = Left(fieldName, 5)
If fieldParse = "event" Then
    Me.fieldName.Enabled = False
End If
Next

Answer 1

代码的简化版本，它暂停错误以避免 Enabled 属性不存在的情况。

On Error Resume Next
For Each ctl In Forms.frm_Outfalls_Profile_Events.Controls
    ctl.Enabled = Not Left(ctl.Name, 5) = "event"
Next ctl
On Error GoTo 0

在加载时禁用对访问表单的控制

Disable Controls on Access Forms on Load

ms-access

vba

ms-access-2007

ms-access-2010