Question

我正在尝试为Access 2010中的多选列表框创建VBA代码 - 以便当用户单击命令按钮时，程序将选择输入到数组中，然后输入用户所做的每个选择（每个“true”value），打印出选择的名称（在本例中是一个主题）以及链接到该选择的任何项目。我有两个表：主题和项目。每个项目都链接到主题表中最多三个主题。

我的问题是我继续得到“运行时错误424对象必需”。我大大简化了代码，以便缩小当前问题的来源。我目前正在使用的代码是：

Private Sub Command1_Click()

Dim I As Integer

For I = 0 To TopicsL.ListCount-1
     If TopicsL.Selected(I) Then
     Debug.Print “Hello”
 End If
Next I
End Sub

TopicsL是我的列表框名称。错误似乎在以下行中：对于I = 0 To TopicsL.ListCount-1

我是否需要进一步修改“TopicsL.ListCount”？

感谢您的时间。

Answer 1

指定列表框的完整路径，例如form1.TopicsL.ListCount - 1

Answer 2

您确定已正确命名/拼写了列表框吗？要确保您引用了正确的列表框，请使用我。当你输入我。然后将列出表格可用的所有控制，属性，方法，以及当您开始键入＆＃34; top＆＃34;它会lsit ListBox名称。如果没有，现在你知道有一些问题。如果是这样，请确保ListBox的属性设置正确。

Private Sub Command1_Click()
    Dim iCtr As Integer
    For iCtr = 0 To Me.TopicsL.ListCount - 1
        If Me.TopicsL.Selected(iCtr) Then _
            Debug.Print "Hello World !!"
    Next
End Sub

424错误访问2010 - 多选列表框

2 个答案: