MS Access:我的表格在vba中出现错误 [英] MS Access: An error in vba of my form
问题描述
我有一个简单的MS Access表单,其中包含3个对象:一个文本框,一个列表框和一个按钮.表单的预期用途如下:用户在文本框中输入名称,从列表框中选择一个项目,然后单击按钮以将数据添加到表中.
I have a simple MS Access form that has 3 objects: a text box, a list box, and a button. The intended use of the form is as follows: the user enters a name in the text box, selects an item from the list box, then clicks the button to add the data to a table.
但是,当我单击按钮时,我不断收到错误消息,除非控件具有焦点,否则您不能引用控件的属性或方法."
However, when I click on the button, I keep getting the error message, "You can't reference property or a method for a control unless the control has the focus."
下面是我的代码.谢谢!
Below is my code. Thanks!
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
推荐答案
仅当TextBox具有焦点时,才能使用.Text
属性.尝试改用.Value
属性.
The .Text
property can only be used when the TextBox has focus. Try using the .Value
property instead.
尝试替换下面的行
CustomerName = Customer_TextBox.Text
与
CustomerName = Customer_TextBox.Value
这篇关于MS Access:我的表格在vba中出现错误的文章就介绍到这了,希望我们推荐的答案对大家有所帮助,也希望大家多多支持IT屋!