Error VBA function

Question

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

I tried to call the above function in access query, but if says compile error

Access query has this function in below format

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

score 2 · Accepted Answer · answered Aug 01 '18 at 05:43

2

VBA doesn't have a data type short.

answered Aug 01 '18 at 05:43

Andre

score 1 · Answer 2 · answered Aug 01 '18 at 05:46

1

As mentioned Short doesn't exist.

Declare as Long which can easily cater for signed 16-bit (2-byte) integers that range in value from -32,768 through 32,767.

Why Long? See the lengthy discussion here: Why Use Integer Instead of Long?

answered Aug 01 '18 at 05:46

QHarr

thank you :-) But I see null value when I call the same function in query – Archana Aug 01 '18 at 06:09
? There is no function above. It is a datatype called Long. – QHarr Aug 01 '18 at 06:10
If you can see my function in the question section – Archana Aug 01 '18 at 06:16

Santosh · Answer 3 · 2018-08-01T15:30:18.317

0

Byte is suitable for your function defined

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

Note:

The value to be returned must be assigned to a variable having the same name as the Function
CC As Byte is not used.

edited Aug 01 '18 at 15:30

answered Aug 01 '18 at 06:21

Santosh

3 Answers3