Ms access 错误VBA函数

Ms access 错误VBA函数,ms-access,vba,Ms Access,Vba,我试图在access查询中调用上述函数,但如果说编译错误 Access query具有以下格式的此功能 Function CC1(BP As short, CC As short) As String If BP = 1 Then cc = "B*" Else cc = "C*" End If End Function VBA没有数据类型short 如前所述,Short不存在 声明为Long,可轻松满足值范围从-32768到32767的有符号16位(2

我试图在access查询中调用上述函数,但如果说编译错误

Access query具有以下格式的此功能

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

VBA没有数据类型
short


如前所述,Short不存在

声明为Long,可轻松满足值范围从-32768到32767的有符号16位(2字节)整数的需要

为什么这么久?请参阅此处的详细讨论:

字节适合您定义的函数

选择CC1([BP],[CC])作为n

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

  • 必须将要返回的值分配给具有 与函数同名
  • CC As Byte
    未使用

  • 声明为Long。谢谢:-)但我在查询中调用同一函数时看到空值?上面没有函数。这是一个名为Long的数据类型。如果你能在问题部分看到我的函数
    Function CC1(BP As Byte, CC As Byte) As String
        If BP = 1 Then
        CC1 = "B*"
          Else
        CC1 = "C*"
       End If
    End Function