访问VBA：如何在焦点有焦点时控制元素

Question

我在点击按钮时尝试禁用按钮：

Private Sub submitButton_Click()

    Me.submitButton.Enabled = False
    If dataPath = "" Or skuPath = "" Then
        MsgBox "Please enter spreadsheet locations."
    Else

        Call importExcelData(dataPath, "data")
        Call importExcelData(skuPath, "skus")

        If validate = True Then
            Call generateReports
        End If
    End If

End Sub

我遇到了一个运行时错误：“当它有焦点时你无法禁用它”。 你知道这个方法吗？

谢谢！

Answer 1

您必须先将焦点设置为其他控件。

那就是说，如果你真的没有其他控制权来发送焦点（我很难相信），那就是“解决方法”。您可以添加一个命令按钮并将其TabStop属性设置为False，将其Transparent属性设置为True，并将焦点设置为该控件。