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