Access VBA中VarType()与TypeName()对未绑定ComboBox.Value识别失效问题

Access里的控件（比如文本框）本质是文本输入容器，不管绑定的字段类型是什么，它的Value属性返回的Variant值默认都是字符串子类型（vbString，VarType返回8）。哪怕绑定的是长整型主键字段，用户输入的数字也会被控件以文本形式存储，所以直接调用VarType(ctl.Value)必然返回8——这不是函数识别错误，是控件本身的特性导致的。

针对这个问题，有三种可行的处理方式：

1. 调用函数时强制转换类型 #

在传入参数前，先把控件值转换为目标类型（长整型），同时处理空值或非法输入的情况：

' 调用示例
If Not IsNull(ctl.Value) And IsNumeric(ctl.Value) Then
    strCriterion = CriterionCreate(strFieldName, CLng(ctl.Value))
Else
    strCriterion = CriterionCreate(strFieldName, ctl.Value)
End If

转换完成后，VarType就能正确识别为vbLong（3）。

2. 改进CriterionCreate函数，内部自动判断转换 #

在函数内部尝试将字符串转换为长整型，无需外部额外处理：

Private Function CriterionCreate(ByVal strFieldName As String, varValue As Variant) As String
    Dim strCriterion As String
    
    If IsNull(varValue) Then
        strCriterion = ""
    ElseIf IsNumeric(varValue) Then
        ' 判断是否符合长整型范围，避免非整数数值误判
        If CLng(varValue) = varValue Then
            strCriterion = strFieldName & " = " & CLng(varValue)
        Else
            strCriterion = strFieldName & mLikeThis(varValue)
        End If
    Else
        strCriterion = strFieldName & mLikeThis(varValue)
    End If
    
    CriterionCreate = strCriterion
End Function

这种方式更健壮，函数会自动识别可转换为长整型的字符串值。

3. 利用控件绑定的字段类型判断 #

如果控件绑定到数据表字段，可以直接获取字段的原始类型，完全不受控件Value的类型影响：

Private Function CriterionCreate(ByVal ctl As Control) As String
    Dim strFieldName As String
    Dim varValue As Variant
    Dim fieldType As DataTypeEnum
    
    strFieldName = ctl.ControlSource
    varValue = ctl.Value
    
    ' 解析绑定字段的类型
    Dim tableName As String, fieldName As String
    tableName = Left(strFieldName, InStr(strFieldName, ".") - 1)
    fieldName = Mid(strFieldName, InStr(strFieldName, ".") + 1)
    fieldType = CurrentDb.TableDefs(tableName).Fields(fieldName).Type
    
    Dim strCriterion As String
    Select Case fieldType
        Case dbLong ' 长整型字段
            strCriterion = IIf(IsNull(varValue), "", strFieldName & " = " & CLng(varValue))
        Case dbText ' 文本字段
            strCriterion = IIf(IsNull(varValue), "", strFieldName & mLikeThis(varValue))
        ' 可根据需求扩展其他字段类型
    End Select
    
    CriterionCreate = strCriterion
End Function

内容的提问来源于stack exchange，提问作者ebsf