MS Access:通过 VBA 设置子窗体的 .enabled 和 .allowits 属性

Question

我希望创建一个单独的VBA子过程来更改多个主窗体的所有子窗体的.enabled和.allowedit属性。这个想法是我有一个子过程，可以通过应用程序中任何窗体上的按钮调用。

单击该按钮将设置我用来引用按钮所在的任何主窗体的变量。我目前让它适用于 .enable 部分，但是我不断收到有关 .allowedits 属性的错误。下面是我使用的代码。我得到的错误是

对象不支持此属性或方法

它仅在运行.allowedits行后发生。任何帮助将不胜感激。谢谢！

cmdbutton_on_click_event

Private Sub cmdEditAll_Click()
strFormName = Me.Name
Call ToggleEdit
end sub

调用的子过程：

Option Compare Database
Public strFormName As String
Sub ToggleEdit()
Dim ctrlControl As Control

On Error GoTo err:
For Each ctrlControl In Forms(strFormName).Controls
    Debug.Print ctrlControl.Name
    If booEnabled = False Then
        Forms!frmfullcourseinfo.cmdEditAll.Caption = "Edit"
        Forms!frmfullcourseinfo.lblMode.Caption = "[Read Only]"
        If ctrlControl.ControlType = acTabCtl Or ctrlControl.Name = "Command9" Or ctrlControl.Name = "cmdeditall" Then
        Else
        ctrlControl.Enabled = False
        ctrlControl.AllowEdits = False
        End If
    Else
        Forms!frmfullcourseinfo.cmdEditAll.Caption = "Stop Edit"
        Forms!frmfullcourseinfo.lblMode.Caption = "[Edit Mode]"
        If ctrlControl.ControlType = acTabCtl Or ctrlControl.Name = "Command9" Or ctrlControl.Name = "cmdeditall" Then
        Else
        ctrlControl.Enabled = True
        ctrlControl.AllowEdits = True
        End If
    End If
Continue:
Next
booEnabled = Not (booEnabled)
Exit Sub
err:
    Debug.Print err.Description
    Resume Continue
End Sub

Answer 1

我总是给子窗体容器控件一个与它所持有的对象不同的名称，比如 ctrOrders。子窗体容器控件没有 AllowEdits 属性，窗体具有，因此必须引用容器包含的窗体对象。

Me.ctrOrders.Form.AllowEdits = False

所以这可能会起作用：

ctrlControl.Form.AllowEdits = False