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

我试图在Access 2010中为multiselect listbox创建VBA代码，这样当用户单击命令按钮时，程序将选择输入到数组中，然后用户为每个选择生成每个真值，打印出选择的名称，在本例中，该选择是一个主题以及链接到该选择的任何项目。我有两个表：主题和项目。每个项目最多链接到主题表中的三个主题

我的问题是我一直在获取运行时错误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是我的列表框的名称。错误似乎出现在以下行中： 对于TopicsL.ListCount-1的I=0

是否需要进一步修改TopicsL.ListCount

---

感谢您抽出时间。

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

您确定列表框的命名/拼写正确吗？要确保引用的列表框正确，请使用我。当你打我的时候。然后，表单可用的所有控件、属性和方法都将列出，当您开始键入top时，它将显示列表框名称。如果没有，现在你知道有一些问题。如果有，请确保列表框的属性设置正确

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

---

我得到了我自己。工作-它找到了我的列表框。当我运行代码时，一个弹出框出现了——宏带有一个用于宏名称的文本框，还有一些按钮“运行”、“取消”、“单步执行”等等。。我似乎在两个地方创建了代码——一部分代码在Microsoft Access类下，另一部分在模块下。我不记得我是怎么做的，为什么这么做的，但这似乎在制造问题。我不知道如何删除我创建的类和/或模块页面，尽管我可以从页面中删除代码。我不确定我需要什么-一个类或模块或两者兼而有之。我读了一些关于它们的文章，但还是感到困惑。当你描述它们时，我会感到非常困惑。您所说的第一部分是“调试”的，听起来您遇到了运行时错误。只需单击“调试”，它就会将您带到导致问题的代码行。弹出框中出现的所有按钮都是灰色/非活动的。我可以将文本放入宏名称文本框并按下按钮，但我不确定要放入什么文本，也不确定在我尝试运行代码时为什么会出现此弹出框。基本上，发生的情况是，当我在VBA编辑器中运行代码时，我按下run，会出现一个宏框，我不知道为什么。当您转到VBA编辑器顶部的“工具”菜单并选择“宏”时，会出现同一个框。。。。即使我的代码现在只是打印一个简单的Hello World当我去运行代码时，除了出现宏弹出框外，什么都没有发生。你能帮忙吗？