MS Access：我的表单中的 vba 错误

Question

我有一个简单的 MS Access 表单，它有 3 个对象：一个文本框、一个列表框和一个按钮。表单的预期用途如下：用户在文本框中输入名称，从列表框中选择一个项目，然后单击按钮将数据添加到表中。

但是，当我单击按钮时，我不断收到错误消息，“除非控件具有焦点，否则您无法引用控件的属性或方法。”

下面是我的代码。谢谢！

Private Sub addRecord_button_Click()
    Dim CustomerName As String
    Dim CustomerType As String

    On Error GoTo Errhandler

    CustomerName = "[name not selected]"
    CustomerType = "[type not selected]"

    CustomerName = Customer_TextBox.Text

    Select Case Type_ListBox.ListIndex
        Case 0
            CustomerType = "Type 1"
        Case 1
            CustomerType = "Type 2"
        Case 2
            CustomerType = "Type 3"
    End Select

    'MsgBox ("Name: " & CustomerName & " and Type: " & CustomerType)

    DoCmd.RunSQL "INSERT INTO Customer VALUES (CustomerName, CustomerType);"

Errhandler:
    MsgBox ("The following error has occured: " & Err & " - " & Error(Err))
End Sub

Answer 1

.Text 属性只能在 TextBox 具有焦点时使用。请尝试改用 .Value 属性。

尝试替换下面的行

CustomerName = Customer_TextBox.Text

与

CustomerName = Customer_TextBox.Value