教えてください。
VBA「Private Sub コマンドボタン_Click()」で 「Docmd.OpenReport "レポート名"」の1文があるのですが、レポートプロパティで空データの時は印刷しないようなマクロ「全マクロの中止」を組んであります。
確かに、空データ時は中止がかかり印刷はされないのですが、実行時エラー2001 直前の操作はキャンセルされました。とエラーメッセージが帰ってきます。デバックをクリックすると、「Docmd.OpenReport "レポート名"」の一文が黄色くなっています。
どうしたら、綺麗に処理を終了する事ができるのでしょうか?教えてください。
A 回答 (1件)
- 最新から表示
- 回答順に表示
No.1
- 回答日時:
こんにちは。
maruru01です。アプリケーションとバージョンは何でしょうか。
アプリケーションはおそらくAccessでしょうが、バージョンがわかりません。
とりあえず、2000で。
データがない場合の印刷のキャンセルは、マクロの「全マクロの中止」アクションではなく、レポートの空データ時イベントに処理を書きます。
Private Sub Report_NoData(Cancel As Integer)
MsgBox "データがありません。"
Cancel = True
End Sub
この回答への補足
ごめんなさい。Access2000です。
ご指導、ありがとうございます。
やってみたのですが、ダメでした。レポートプロパティの空データ時に「イベントプロシージャ」として記述したのですが、やはりデバックが掛かってしまいます。さらに空白(レポートヘッダ)のみの印刷物が1枚出力されました。う~ん、わかりません。またまたご指導お願いします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- Excel(エクセル) 【マクロ】スクショ印刷がうまく動かない件 5 2022/12/06 17:37
- Visual Basic(VBA) DisplayAlertsブロパティで ”実行時エラー424オブジェクトが必要です” 5 2022/05/15 18:02
- Excel(エクセル) エクセルでキーリストからデータを取り出して1枚1枚印刷するには? 11 2022/06/27 09:52
- その他(Microsoft Office) Excelのマクロについて教えてください。 1 2022/03/25 10:03
- Visual Basic(VBA) VBAで不特定枚数印刷をしたいです。 4 2022/08/02 07:30
- Excel(エクセル) エクセルの印刷マクロについて質問があります。 現在、下記のマクロで印刷しています。Sheet1のD6 5 2023/06/12 10:59
- UNIX・Linux Ubuntu22.04、nanoエディタの使い方について 2 2022/10/24 19:50
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- PDF 2つのPDFを重ねる方法はありますか? 4 2023/01/30 14:04
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
レコード件数が0件なら印刷をしない。
Access(アクセス)
-
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
アクセスのレポートのヘッダーを2ページ以降にもつけるには?
Access(アクセス)
-
-
4
アクセスのレポートで空白のテキストボックスを印刷しない方法
Access(アクセス)
-
5
アクセスのレポートでレコード数をカウントしたい
その他(データベース)
-
6
アクセスのレポートを印刷すると白紙がでてきます。改ページついて教えてください。
その他(データベース)
-
7
ACCESSのフォームで次のレコードに移動しない方法を教えてください
その他(データベース)
-
8
Access レポートの文字間を設定したい
PowerPoint(パワーポイント)
-
9
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
10
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
-
11
ACCESS レポートでグループごとのページ数表示
その他(データベース)
-
12
カレントレコードが無い事を判定させる方法
Visual Basic(VBA)
-
13
【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには
Access(アクセス)
-
14
【Access】クエリで抽出したデータをCSV形式でエクスポートできますか?
Access(アクセス)
-
15
フォームウィンドウを最前面に表示したい(ACCESS)
Microsoft ASP
-
16
「#エラー」の回避
Access(アクセス)
-
17
アクセスで#エラーを表示させない方法は?
Access(アクセス)
-
18
Access サブフォームでの選択行の取得
その他(データベース)
-
19
Accessの画面更新を一時的に停止する方法。
その他(データベース)
-
20
ACCESSのVBで、エクセルファイルの最終行を取得
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
エクセルで別のセルにあるふり...
-
ExcelのVBA。public変数の値が...
-
エクセルのマクロについて教え...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
Excel・Word リサーチ機能を無...
-
エクセル VBA実行中のApplicati...
-
ファイルが見つからない時、ス...
-
ユーザーフォームを起動しなが...
-
エクセル マクロの同時実行に...
-
ExcelのVBAを使ってタイトル行...
-
Excelのマクロについて教えてく...
-
エクセルのマクロについて教え...
-
Excel VBAからAccessマクロを実...
-
ExcelVBAでPDFを閉じるソース
-
VBAマクロ非表示が遅いので早く...
-
非表示の列をすべて削除するマクロ
-
一つのTeratermのマクロで複数...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
エクセルで別のセルにあるふり...
-
ExcelのVBA。public変数の値が...
-
エクセルに張り付けた写真のフ...
-
ExcelVBAでPDFを閉じるソース
-
EXCELのVBAでRange("A1:C4")を...
-
Excel VBAからAccessマクロを実...
-
TERA TERMを隠す方法
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
マクロ実行時、ユーザーフォー...
-
Excelのマクロについて教えてく...
-
ソース内の行末に\\
おすすめ情報