奇怪的VBA预期声明结束错误

Question

我开始使用VBA编辑器在Access 2010中创建自定义函数,但我一直收到预期的语句结束错误.

这是代码:

Public Function getPayTotal(ByVal StudentID As Long) As Long

Return StudentID

End Function

我完全不知道为什么这不起作用.调试不断将我发送回Return StudentID行.我看起来非常简单吗？

谢谢.

Answer 1

不归还:

Public Function getPayTotal(ByVal StudentID As Long) As Long

   getPayTotal = StudentID

End Function

您可以像这样调用函数:

Sub theFunction
   getPayTotal 21

   ''Or
   Call getPayTotal(21)

   ''Or
   r = getPayTotal(21)
End Sub

换句话说,要小心括号.