奇怪的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

换句话说，请注意括号。