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在评论中所建议的，我试图使用复选框，我写了

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

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

如果有效，请告诉我，

灰

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

1 个答案: