アプリ版:「スタンプのみでお礼する」機能のリリースについて

はじめましてよろしくお願いします。
現在、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 & "編集内容を保存できません。")
のようにして呼ぶと正しくメッセージボックスが表示されるのですが。

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

A 回答 (1件)

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



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


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

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

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!