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

Question

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

我的问题是我不断收到“需要运行时错误 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 是我的列表框的名称。错误似乎在以下行中： For I = 0 To TopicsL.ListCount-1

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

感谢您的宝贵时间。

Answer 1

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

Answer 2

您确定您已正确命名/拼写列表框吗？要确保您引用了正确的列表框，请使用 Me。当您键入我时。然后将列出该表单可用的所有控件、属性、方法，并且当您开始键入“top”时，它将是 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