在 VBA 中使用按钮启用/禁用文本框

Question

我有一个带有名为 Contract_Applying_for 的文本框的表单，它在表单加载时被禁用，但我想要一个允许我编辑文本框内容的按钮。

当我添加一个按钮时，我会看到命令按钮向导，因此我创建了一个名为 ToggleEnableButton 的宏，其中包含以下指令

RunCode Function Name "=ToggleEnableButton()"

那我写了函数

Function ToggleEnableButton()

    If Me.Contract_Applying_for.Enabled = True Then
        Me.Contract_Applying_for.Enabled = False
    Else
        Me.Contract_Applying_for.Enabled = True
    End If
End Function

这似乎会产生错误“成员已存在于该对象模块所派生的对象模块中。”

ToggleEnableButton_Click 的代码由命令按钮向导自动创建，并且是

Private Sub ToggleEnableButton_Click()
On Error GoTo Err_ToggleEnableButton_Click

    Dim stDocName As String

    stDocName = "ToggleEnableMacro"
    DoCmd.RunMacro stDocName

Exit_ToggleEnableButton_Click:
    Exit Sub

Err_ToggleEnableButton_Click:
    MsgBox Err.Description
    Resume Exit_ToggleEnableButton_Click

End Sub

任何关于我做错了什么或解决此问题的更好方法的建议。

我正在尝试做一件非常简单的事情，但方法相当冗长。

根据 Peekay 在 cmets 中的建议，我尝试使用复选框代替，我写道

Private Sub chbToggleEdit_Click()
If Me.chbToggleEdit.Value = False Then
    Me.Contract_Applying_for.Enabled = False
Else
    Me.Contract_Applying_for.Enabled = True
End If
End Sub

这会给出错误：“Microsoft Access 与 OLE 服务器或 ActiveX 控件通信时出现问题。”

Answer 1

你能不能简单地拥有：

Private Sub ToggleEnableButton_Click()
On Error GoTo Err_ToggleEnableButton_Click

ToggleEnableButton()


Exit_ToggleEnableButton_Click:
Exit Sub

Err_ToggleEnableButton_Click:
MsgBox Err.Description
Resume Exit_ToggleEnableButton_Click

End Sub

您可以使用表单后面的代码声明您的函数。

让我知道这是否有效，

灰