教えてください。
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(アクセス)
-
アクセスのレポートを印刷すると白紙がでてきます。改ページついて教えてください。
その他(データベース)
-
-
4
アクセスのレポートでレコード数をカウントしたい
その他(データベース)
-
5
アクセスのレポートのヘッダーを2ページ以降にもつけるには?
Access(アクセス)
-
6
アクセスのレポートで空白のテキストボックスを印刷しない方法
Access(アクセス)
-
7
ACCESSでクエリを作成したら「式が複雑すぎます。」の表記が…
その他(データベース)
-
8
Accessのレポート機能で空白になる2ページ目を印刷したくない
Access(アクセス)
-
9
Access レポートの文字間を設定したい
PowerPoint(パワーポイント)
-
10
ACCESSのフォームで次のレコードに移動しない方法を教えてください
その他(データベース)
-
11
falseとtrue 0,1,-1 の意味が知りたいです
PowerPoint(パワーポイント)
-
12
ACCESSでデータゼロ件の時レポートが#エラーに
Access(アクセス)
-
13
Access VBA Me.Requery レコードは削除されています エラー
その他(データベース)
-
14
【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには
Access(アクセス)
-
15
ACCESS 「パラメータの入力」を消したい!!
Access(アクセス)
-
16
Access サブフォームでの選択行の取得
その他(データベース)
-
17
Accessのテーブルのフィールドに式を入れる方法
Access(アクセス)
-
18
ACCESSのVBで、エクセルファイルの最終行を取得
Excel(エクセル)
-
19
アクセスで『0の値以外』を表示する方法
Access(アクセス)
-
20
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
ExcelVBAでPDFを閉じるソース
-
Excel VBAからAccessマクロを実...
-
エクセルのマクロについて教え...
-
エクセルで別のセルにあるふり...
-
Word VBA 表中の空白行を削除す...
-
サクラエディタ・マクロ → VSCo...
-
■EXCELの表で一行おきに行削除...
-
Excelマクロで印刷設定
-
特定のPCだけ動作しないVBAマク...
-
テニス(ダブルス)乱数表 Exc...
-
マクロのクリア設定がシートの...
-
レポートで空データ時に印刷しない
-
OnTimeを使ったのですが「エラ...
-
VBAで離れたセルの値を一括で代...
-
エクセルでリンク元の名前って...
-
Windows2000でのマクロの起動
-
エクセルのマクロについて教え...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Excel・Word リサーチ機能を無...
-
特定のPCだけ動作しないVBAマク...
-
エクセルで特定の列が0表示の場...
-
Excel マクロ VBA プロシー...
-
メッセージボックスのOKボタ...
-
一つのTeratermのマクロで複数...
-
ExcelのVBA。public変数の値が...
-
Excel VBAからAccessマクロを実...
-
TERA TERMを隠す方法
-
ExcelVBAでPDFを閉じるソース
-
エクセルに張り付けた写真のフ...
-
EXCELのVBAでRange("A1:C4")を...
-
エクセルで別のセルにあるふり...
-
ソース内の行末に\\
-
マクロ実行時、ユーザーフォー...
-
特定文字のある行の前に空白行...
-
エクセルVBA
-
マクロの記録を使用したマクロ...
-
wordを起動した際に特定のペー...
-
ダブルクリックで貼り付けた画...
おすすめ情報