5

VBAエディターを使用してAccess2010でカスタム関数の作成に取り組み始めましたが、予期されるステートメントの終了エラーが発生し続けます。

コードは次のとおりです。

Public Function getPayTotal(ByVal StudentID As Long) As Long

Return StudentID

End Function

なぜこれが機能しないのか、私にはまったくわかりません。デバッグは私をReturnStudentID行に送り返し続けます。私は信じられないほど単純なものを見過ぎていますか?

4

1 に答える 1

9

戻らない:

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

つまり、括弧に注意してください。

于 2013-03-13T20:04:57.193 に答える