E
EmOxon
Hi everyone
I wrote a simple function that picks the value based on the selection
criteria (See below)
When I try to use it by putting it with field values as arguments e.g.
GetLevel([SerialNumber]), Access gives me a compile error.
Any help would be very appreciated.
Thanks
EM
Public Function GetLevel(lngSerialNumber as Long) As String
If lngSerialNumber = 1113 Or lngSerialNumber = 1713 Then
GetLevel = "Iron"
ElseIf lngSerialNumber >= 1200 And lngSerialNumber <= 1300 Then
GetLevel = "Copper"
ElseIf lngSerialNumber >= 1000 And lngSerialNumber <= 2000 Then
GetLevel = "Gold
Else
GetLevel = Null 'Or whatever you want to return if it is
anything else
End If
End Function
I wrote a simple function that picks the value based on the selection
criteria (See below)
When I try to use it by putting it with field values as arguments e.g.
GetLevel([SerialNumber]), Access gives me a compile error.
Any help would be very appreciated.
Thanks
EM
Public Function GetLevel(lngSerialNumber as Long) As String
If lngSerialNumber = 1113 Or lngSerialNumber = 1713 Then
GetLevel = "Iron"
ElseIf lngSerialNumber >= 1200 And lngSerialNumber <= 1300 Then
GetLevel = "Copper"
ElseIf lngSerialNumber >= 1000 And lngSerialNumber <= 2000 Then
GetLevel = "Gold
Else
GetLevel = Null 'Or whatever you want to return if it is
anything else
End If
End Function