0
我想添加一些数据到'列表'形式(完全复制)。 以下是我的代码。将数据添加到列表VBA
Option Compare Database
Private Sub addToListSample_Click()
Dim introw As Integer
introw = ListSample.ListIndex + 1
ListSample.Column(0, introw) = TextP11.Value
ListSample.Column(1, introw) = TextP12.Value
ListSample.Column(2, introw) = TextP13.Value
ListSample.Column(3, introw) = TextP14.Value
ListSample.Column(4, introw) = TextP15.Value
ListSample.Column(5, introw) = TextP16.Value
ListSample.Column(6, introw) = TextP17.Value
End Sub
但是,当我执行它,我得到以下错误。 “运行时错误”424“:所需的对象”
为什么我会收到此错误?我觉得这是很容易的代码,但我不知道为什么这个错误继续讨厌我....
对象名称错误。它在模块中还是直接在表单中? – UGP
我做了一个List表单,当我点击它时,上面的代码将被执行。它不在模块中。它在'Microsft Access Class Obejcts'中。 –
这是一个列表框? – wazz