将列表框名称作为参数传递以在函数中使用 - ACCESS VBA

Question

我正在尝试创建一个函数来删除列表框中列出的所有项目。但是，当我尝试传递 ListBox 的名称时，它 returns 出现错误：Inavlid Parameters.

代码如下：

Public Function CleanList(ListName As ListBox)
Dim intItemsInList As Integer
Dim intCounter As Integer

intItemsInList = ListName.ListCount

For intCounter = 0 To intItemsInList - 1
    ListName.RemoveItem 0
Next

End Function

下面是我调用函数的方式：

Call CleanList(List_List1.Name)

我使用的列表框名称是List_List1

如果我不键入方法 .Name，它会显示列表的第一个项目。我试过没有括号，但没有成功。

你能帮帮我吗？

感谢和问候！

Answer 1

您的函数不接受字符串（列表框名称），而是接受列表框对象。

对于这样的函数，哪个是最好的方法。

所以调用函数时，只传递对象，不传递名称：

Call CleanList(Me!List_List1)

将列表框名称作为参数传递以在函数中使用 - ACCESS VBA

Pass ListBox Name as Parameter to use in a Function - ACCESS VBA

vba

function

ms-access

listbox