ACCESS VBAの独学を始めました。テキストどうりにコードを入力しているのですが、以下のエラーがでていまいます。
プロシージャの宣言がイベントまたはプロシージャの定義と一致していません
入力内容は以下のとおりです
Private Sub 閉じる_Click(cancel As Integer)
Dim sts As Integer
sts = MsgBox("終了しますか?", vbYesNo)
If (sts = vbNo) Then
cancel = True
Else
DoCmd.Close
End If
End Sub
(cancel as ・・・)を消去すると、エラーはでません。
なぜなのか分からず質問しました。
すみませんが、よろしくお願いいたします。
No.2ベストアンサー
- 回答日時:
ボタンのクリックイベントにcancelパラメータは、ありません。
コードの内容からすると"Form_Unload"イベントに記載すべきと思われます。
以下の様にすればフォームを閉じる際に確認のメッセージが表示されます。
恐らくDoCmd.Closeは、必要ないはずです。
Private Sub 閉じる_Click()
DoCmd.Close
end sub
Private Sub Form_Unload(Cancel As Integer)
Dim sts As Integer
sts = MsgBox("終了しますか?", vbYesNo)
If (sts = vbNo) Then
cancel = True
End If
End Sub
丁寧な解説をいただき、ありがとうございました。
テキストの誤植でしょうか。
サイトで検索しても、上のように書いてあるところがあったりしたので
混乱してしまいました。
ありがとうございました。
No.3
- 回答日時:
コントロールのイベントのプロシージュアーの引数(の名前・数とデータタイプ)は決ってますよ。
勝手にcancel As Integer などしてはいけない。
http://www.asahi-net.or.jp/~ef2o-inue/vba_o/sub0 …
の
フォームを閉じられた時のイベント(閉じるボタン)
など参照。
閉じるとCaptionで表示されたコマンドボタンではなく、フォームの閉じるボタン(X)との違いを考えること。
ーー
http://www.accessclub.jp/bbs5/0007/vba1720.html
参照
ーー
エクセルでは
http://www.ken3.org/vba/backno/vba061.html
ユーザーフォームに(閉じるを担わせた)ボタンがある場合
Private Sub btnCLOSE_Click()
Unload Me '自分自身を閉じます
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) 【追加】ファイルを閉じてダイアログで保存した時だけ処理の実行をする 3 2022/03/23 15:43
- Visual Basic(VBA) 【VBA】写真の貼り付けコードがうまく機能しません。 5 2022/09/01 18:43
- Visual Basic(VBA) 【Excel VBA】自動メール送信の機能追加 5 2022/09/29 12:53
- Visual Basic(VBA) ①ExcelVBAでカレンダーを作り、別のユザーフォームで日付を入力したいのですがエラーになります。 1 2023/02/17 18:39
- Excel(エクセル) 2つのVBAを一緒にしたら機能しなくなりました(エクセル) 7 2022/06/02 12:41
- Visual Basic(VBA) 【変更】ファイルを閉じてダイアログで保存した時、更新したシートだけの処理の実行をする 5 2022/03/26 18:31
- Excel(エクセル) エクセルVBAでオブジェクトが必要です 2 2022/09/10 16:37
- Visual Basic(VBA) エクセルVBA ダブルクリックしたら色反転を指定したセルのみにしたい 2 2022/04/06 12:52
- Access(アクセス) Accessのテキストボックスの入力文字制限 1 2023/01/18 20:43
- Visual Basic(VBA) 標準モジュール Public mOnTime As Date Sub sample() '実行プロシ 1 2023/02/22 15:44
このQ&Aを見た人はこんなQ&Aも見ています
-
外出時に「待たせる妻」vs イライラする「待つ夫」は日本だけ?見習いたい海外事情
夫の家事参加に積極的なイメージのある海外でも、同様の事例はあるのか。結婚カウンセラーの佐竹悦子さんに伺ってみた。
-
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
アクセス VBAについて FROM句の構文エラー
Access(アクセス)
-
エクセルのエラーメッセージ「400」って?
Visual Basic(VBA)
-
-
4
エクセルのラベルの値(文字列)を垂直方向で中央揃えにするには?
Excel(エクセル)
-
5
VBAで保存しないで閉じると空のBookが残る
Excel(エクセル)
-
6
エクセルでエラーが出て困っています。
Excel(エクセル)
-
7
Access サブフォームでの選択行の取得
その他(データベース)
-
8
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
9
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
10
VBAでループ内で使う変数名を可変にできないか。
Visual Basic(VBA)
-
11
EXCEL VBAのユーザーフォームに引数を渡す方法について
Excel(エクセル)
-
12
YES/NO型の値
Excel(エクセル)
-
13
実行時エラー 438になった時の対処法を教えて下さい。
Visual Basic(VBA)
-
14
Accessを開きなおすとテキストボックスの値がエラー#Name?になる
その他(データベース)
-
15
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
16
Access VBAで行ラベルが定義されていないというエラーが出ます
Access(アクセス)
-
17
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
18
VBA シートのボタン名を変更したい
Visual Basic(VBA)
-
19
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
20
アクセスVBAのMe!と[ ]
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルVBAでmeに相当するもの...
-
コモンダイアログエラー
-
【マクロ】その時、その時で変...
-
フォルダ内の全ブックのシート...
-
VBAに詳しい方教えてください。
-
【ExcelVBA】クエリの更新とピ...
-
「開いているすべてのブック」...
-
エクセルファイルを自身のファ...
-
エクセルのマクロについて教え...
-
Powerpointでランダムな数字の...
-
cellsで特定の離れた範囲を選択...
-
AccessからExcelマ...
-
マクロの有効化するダイヤログ...
-
ExcelVBAで今開いているユーザ...
-
エクセルでツールバーに「縮小...
-
Excelファイルがxslからxslmに??
-
Pictures.Insertメソッド⇒Shape...
-
エクセル終了時の保存確認メッ...
-
エクセルのマクロについて教え...
-
コマンドボタンでマクロを起動...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エラー内容が分かりません
-
エクセルVBAでmeに相当するもの...
-
Excel VBAで、実行時にsheet上...
-
オプションボタン
-
EXCEL VBA テキストボックスの...
-
コモンダイアログエラー
-
キーボードでコマンドボタンを...
-
EXCEL VBA カレンダーコントロ...
-
VBAのコントロールなんかをコレ...
-
エクセルのコマンドボタンの使...
-
複数のデータ系列の線の太さを...
-
フォルダ内の全ブックのシート...
-
エクセル終了時の保存確認メッ...
-
エクセルでツールバーに「縮小...
-
ExcelVBAで今開いているユーザ...
-
エクセルVBA Workbook変数に変...
-
VBAを一度起動するとずっと出て...
-
VBAに詳しい方教えてください。
-
コピーしたファイルのマクロを...
-
ファイル名を今日の日付、時刻...
おすすめ情報