Question

Function CC1(BP As short, CC As short) As String
    If BP = 1 Then
    cc = "B*"
      Else
    cc = "C*"
   End If
End Function

我试图在访问查询中调用上述函数，但是如果显示编译错误

访问查询具有以下格式的功能

n: CC1([BP],[CC])

Answer 1

VBA没有数据类型short。

Answer 2

如前所述，Short不存在。

声明为Long可以很容易地满足带符号的16位（2字节）整数，值的范围从-32,768到32,767。

为什么长？在这里查看冗长的讨论：Why Use Integer Instead of Long?

Answer 3

字节适合您定义的函数

SELECT CC1([BP],[CC]) as n

Function CC1(BP As Byte, CC As Byte) As String
    If BP = 1 Then
    CC1 = "B*"
      Else
    CC1 = "C*"
   End If
End Function

注意：