vba - 奇怪的 VBA 预期语句结束错误

Question

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

这是代码:

Public Function getPayTotal(ByVal StudentID As Long) As Long

Return StudentID

End Function

我完全不知道为什么这不起作用。调试不断将我发送回返回学生 ID 行。我是不是在看一些非常简单的东西？

谢谢。

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

换句话说，要小心括号。