![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
No.4
- 回答日時:
No.3
- 回答日時:
Aテーブルを対象に作成したレコードセットを myRSとおいた場合、
IF myRS.Recordcount=0 then
印刷しない
Else
印刷する
End IF
でいける気がしますが、、、
No.1
- 回答日時:
> 件数が0件の時、印刷をさせたくないのです
'******** Form ********
Private Sub cmdPrint_Click()
On Error Goto ErrLine
DoCmd.OpenReport "ReportName", Args......
Exit Sub
ErrLine:
DoCmd.Hourglass False
Select Case Err.Number
'2212 プリンタが無効。
'2501 印刷中止。
Case 2212, 2501
DoCmd.CancelEvent
Case Else 'その他のエラー。
Beep
Call MsgBox(CStr(Err.Number) & ":" _
& vbCrLf & Err.Description _
& vbCrLf & vbCrLf & "エラーが発生しました。", _
vbCritical, "エラー")
End If
End Sub
'******** Report ********
Private Sub Report_NoData(Cancel As Integer)
Beep
Call MsgBox("印刷対象となるレコードがありません。", vbExclamation)
Cancel = True
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) アクセスの更新クエリでカレントレコードのみ更新したい 1 2022/06/02 23:32
- 経営情報システム accessでの請求管理について 12 2022/06/11 16:20
- 年賀状作成・はがき作成 Wordによる宛名印刷 2 2023/01/04 15:36
- Access(アクセス) アクセス 削除するレコードを含んだテーブルを指定してくださいのエラー対処方法 1 2022/11/24 15:01
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- SQL Server ACCESSで表が作りたく、そのためのSQL文や設定方法を教えてください。 1 2022/08/15 12:28
- Oracle sqlで質問です。 aテーブルとbテーブルがあり、下記のsqlで取得したidとnameに一致しないレ 1 2022/04/20 20:34
- Ruby pandasでsqlite3にテーブル作成・追加・読み出しでindexの取り扱い方教えてください 5 2023/03/08 09:57
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- その他(データベース) accessについて 2 2022/05/31 16:58
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
レポートで空データ時に印刷しない
Access(アクセス)
-
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
-
4
アクセスのレポートのヘッダーを2ページ以降にもつけるには?
Access(アクセス)
-
5
クエリ実行結果0件の場合のフォーム展開中止とメッセージ表示
Access(アクセス)
-
6
カレントレコードが無い事を判定させる方法
Visual Basic(VBA)
-
7
アクセスのレポートでレコード数をカウントしたい
その他(データベース)
-
8
Accessのフォーム上にレコード数とレコード番号の表示
その他(データベース)
-
9
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
10
access マクロでのフィルタの解除の方法
Access(アクセス)
-
11
フィルタ後のフォームの件数の取得の仕方
Access(アクセス)
-
12
サブレポートのレポートフッターが印刷されず困っています。
Access(アクセス)
-
13
access・カウント結果がゼロでも、「0」を表示させるには?
その他(データベース)
-
14
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
15
新規レコード行を非表示にしたい
Access(アクセス)
-
16
ACCESSで値を代入できないとは?
Visual Basic(VBA)
-
17
DATE型変数を初期化する方法
Visual Basic(VBA)
-
18
ACCESS2000のレポートのコントロールソース内で文字列を結合したい
Access(アクセス)
-
19
Access フォームのテキストボックスに半角英字のみで入力する設定は
Access(アクセス)
-
20
Accessのフォーマット時イベント
その他(データベース)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
ACCESSでテーブルにあるチェッ...
-
Accessの最大レコード数
-
ACCESS2010 フィルタ後のエク...
-
レコード件数が0件なら印刷を...
-
クエリの結果が文字化け(Access...
-
Accessのオートナンバーについて
-
Accessの保存のタイミングについて
-
Accessでレポート内の繰り返し...
-
ACCESSでのひとつ前レコードの...
-
Accessで、フォームに情報を入...
-
Access 「主キーにはnull値を...
-
アクセスの追加クエリについて
-
ACCESSでの関数について
-
Accessでの宛名ラベル出しについて
-
mdbの破損「データベース形式・...
-
データシートビューをコピーす...
-
ACCESS 各テーブルのレコード中...
-
日付型のフィールドに空白を入...
-
差込印刷での全角表示について...
-
SQL文で パラメータが少なすぎ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
クエリの結果が文字化け(Access...
-
ACCESSでテーブルにあるチェッ...
-
Accessの最大レコード数
-
Access 「主キーにはnull値を...
-
ACCESS2010 フィルタ後のエク...
-
ACCESS2000 更新クエリで文字...
-
データシートビューをコピーす...
-
Accessのオートナンバーについて
-
Accessでレポート内の繰り返し...
-
ACCESSでのひとつ前レコードの...
-
ACCESSでの関数について
-
Accessで、フォームに情報を入...
-
Accessのテーブルを開いたとき...
-
アクセスでの追加クエリでのエ...
-
フォーム内のデータをすべて更...
-
レコード件数が0件なら印刷を...
-
アクセス レポートの行数を固...
-
文字を含むIDの自動採番
-
ACCESSでの追加クエリについて。
-
アクセスのフォームで入力した...
おすすめ情報