メッセージを表示する関数の引数について

質問

はじめましてよろしくお願いします。
現在、Access2002でメッセージを表示する関数を作成していますが、
引数を増やしたらどうしてもコンパイルが通らず困っています。
やっていることは標準モジュールに

Public Sub ExcMsgBox(MSG As String, Title As String)
　　MsgBox MSG, vbOKOnly + vbExclamation, Title
End Sub

という関数をつくってフォームから

ExcMsgBox ("入力必須項目が全て入力済でないため、" & _
　　　　　　vbCrLf & "編集内容を保存できません。","入力必須項目")
という形で呼び出していますが、
これだと「コンパイルエラー、修正候補　=」と出ます。

SUBで関数宣言しているので、戻り値は無いはずなのですが

TEST = ExcMsgBox ("入力必須項目が全て入力済でないため、" & _
　　　　　　vbCrLf & "編集内容を保存できません。","入力必須項目")

とするとその場のコンパイルエラーは避けられるのですが、実際に実行すると
やはり「コンパイルエラー　Functionまたは変数が必要です」というエラーがでます。

関数を
Public Sub ExcMsgBox(MSG As String)
　　MsgBox MSG, vbOKOnly + vbExclamation
End Sub

のように引数を一つ減らして、フォームから

ExcMsgBox ("入力必須項目が全て入力済でないため、" & _
　　　　　　vbCrLf & "編集内容を保存できません。")
のようにして呼ぶと正しくメッセージボックスが表示されるのですが。

基本的なことで何か勘違いしているかもしれませんが、何かお気づきの点が
ありましたらご教授ください。よろしくお願いします。

回答No.1

taka_tetsu · ベストアンサー

>これだと「コンパイルエラー、修正候補　=」と出ます。

引数につける括弧を省略する必要があります。
ExcMsgBox "入力必須項目が全て入力済でないため、" & _
　　　　　　vbCrLf & "編集内容を保存できません。","入力必須項目"

もしくは、Callを先頭につけます。

Call ExcMsgBox("入力必須項目が全て入力済でないため、" & _
　　　　　　vbCrLf & "編集内容を保存できません。","入力必須項目")