教えてください。
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も見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
レコード件数が0件なら印刷をしない。
Access(アクセス)
-
アクセスのレポートを印刷すると白紙がでてきます。改ページついて教えてください。
その他(データベース)
-
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
-
4
アクセスのレポートのヘッダーを2ページ以降にもつけるには?
Access(アクセス)
-
5
アクセスのレポートで空白のテキストボックスを印刷しない方法
Access(アクセス)
-
6
ACCESSでテーブルにあるチェックボックスを一括でYesにする方法を教えてください
Access(アクセス)
-
7
ACCESS レポートでグループごとのページ数表示
その他(データベース)
-
8
Access レポートの文字間を設定したい
PowerPoint(パワーポイント)
-
9
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
-
10
【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには
Access(アクセス)
-
11
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
12
アクセスVBAのMe!と[ ]
Access(アクセス)
-
13
データの二重表示の原因
その他(データベース)
-
14
エクセルをACCESSのレポートに変換する方法
その他(Microsoft Office)
-
15
サブレポートのレポートフッターが印刷されず困っています。
Access(アクセス)
-
16
Accessレポートのチェックボックスを大きくする方法
Access(アクセス)
-
17
ACCESS──メインフォームでサブフォームのレコード件数をカウントしたい
Access(アクセス)
-
18
Accessでデータシートに同じデータがいくつもでてしまいます。
その他(データベース)
-
19
Access印刷プレビューでデータが表示されない
PowerPoint(パワーポイント)
-
20
アクセスのフィルタ nullについて。
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
2つのマクロでチェックボックス...
-
Excel・Word リサーチ機能を無...
-
Excel マクロ VBA プロシー...
-
一つのTeratermのマクロで複数...
-
特定文字のある行の前に空白行...
-
特定のPCだけ動作しないVBAマク...
-
メッセージボックスのOKボタ...
-
VBAでカタカナ→ローマ字の変換...
-
エクセルで別のセルにあるふり...
-
エクセルに張り付けた写真のフ...
-
Excelでボタン(フォームコント...
-
TERA TERMを隠す方法
-
エクセルで特定の列が0表示の場...
-
マクロ実行時、ユーザーフォー...
-
VC++ 2008 EXPRESS "_T"識別子...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
ExcelVBA 図形をクリックした...
-
EXCELのVBAでRange("A1:C4")を...
-
Excelのマクロについて教えてく...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
エクセルに張り付けた写真のフ...
-
他人が作ったマクロの理解
-
ExcelVBAでPDFを閉じるソース
-
TERA TERMを隠す方法
-
エクセルで別のセルにあるふり...
-
マクロ実行時、ユーザーフォー...
-
Excel VBAからAccessマクロを実...
-
EXCELのVBAでRange("A1:C4")を...
-
TeraTermマクロの文字列結合
-
PDF出力マクロについて。マクロ...
-
#defineの定数を文字列として読...
-
エクセルのマクロをセルの値に...
-
wordを起動した際に特定のペー...
おすすめ情報