时间戳

首页 > 解决方案 > 确定列表框绑定列 VBA 的类型

ms-access - 确定列表框绑定列 VBA 的类型

问题描述

我正在基于多选列表框中的选择构建一个 SQL 字符串，为了实现这一点，我试图确定我的列表框的绑定列的类型是否是字符串。我写了以下代码：

    If lstBox.ItemsSelected.Count > 0 Then
    lstVar = lstBox.ItemData(i)
    Debug.Print VarType(lstVar)
    For Each varItem In lstBox.ItemsSelected
        strCrit = strCrit & "," & "'" & lstBox.ItemData(varItem) & "'"
    Next varItem

    ' remove first comma
    strCrit = Mid(strCrit, 2)

在 debug.print VarType 语句中，它总是产生字符串类型，即使列表框的绑定列是自动编号字段。我想知道类型是否是数字而不是字符串，以便稍后在我的 SQL 语句中

 SELECT … FROM … WHERE … IN (x,y,z)

我可以编写正确的 WHERE ... IN 标准，以后不会导致类型不匹配。有没有办法准确确定列表框绑定列的变量类型？也许我应该通过查看列表框的行源的类型来解决这个问题。因为我使用这个函数来遍历构建 where 条件的多个列表框，所以我需要它是动态和灵活的，因为某些列表框绑定的列将是数字，而其他列将是字符串，所以我不能只是将其硬编码到循环中。

标签： ms-accessvbams-access-2016

解决方案

对于绑定列表框，可以通过底层记录集获取绑定列的类型。

请参阅以下代码：

Dim rs As Object 'most likely DAO.Recordset but could be ADODB.Recordset
With lstBox
    Set rs = .Recordset
    Debug.Print rs.Fields(.BoundColumn - 1).Type
End With

DAO.DataTypeEnum如果您正在使用 DAO 记录集，或者ADODB.DataTypeEnum您正在使用 ADODB记录集，这将打印一个。这些很容易转换为 VBA 数据类型。

尽管如此，Mathieu Guindon 关于使用参数的观点仍然存在。我强烈推荐它。

推荐阅读