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も見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
レポートで空データ時に印刷しない
Access(アクセス)
-
アクセスのレポートでレコード数をカウントしたい
その他(データベース)
-
クエリ実行結果0件の場合のフォーム展開中止とメッセージ表示
Access(アクセス)
-
-
4
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
5
カレントレコードが無い事を判定させる方法
Visual Basic(VBA)
-
6
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
7
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
-
8
access マクロでのフィルタの解除の方法
Access(アクセス)
-
9
access・カウント結果がゼロでも、「0」を表示させるには?
その他(データベース)
-
10
空白はダメというエラーの表示(アクセス)
その他(データベース)
-
11
クエリのデータをテーブルに入れたい
Access(アクセス)
-
12
ACCESSのレポートで、指定した数だけラベル印刷を行うには?
その他(データベース)
-
13
アクセスのレポートのヘッダーを2ページ以降にもつけるには?
Access(アクセス)
-
14
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
15
Accessでコードを入れると名前がでるようにしたい
Access(アクセス)
-
16
ACCESSの複数レポートの印刷について。
Access(アクセス)
-
17
ACCESS2000 クエリをテーブル化するマクロ(VBA)おしえてください
Word(ワード)
-
18
Accessのフォーム上にレコード数とレコード番号の表示
その他(データベース)
-
19
AccessのOLEオブジェクトについて
Access(アクセス)
-
20
Access VBAでクエリーのレコード件数を取得したいのですが
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access 「主キーにはnull値を...
-
レコード件数が0件なら印刷を...
-
Accessで、フォームに情報を入...
-
ACCESS2000 更新クエリで文字...
-
ACCESSでテーブルにあるチェッ...
-
Accessの最大レコード数
-
フォーム内のデータをすべて更...
-
データシートビューをコピーす...
-
ACCESS2010 フィルタ後のエク...
-
Accessのクエリのパラメーター
-
ACCESSでの関数について
-
アクセス レポートの行数を固...
-
Access:リンクテーブルでの参...
-
差込印刷での全角表示について...
-
日付型のフィールドに空白を入...
-
SQL文で パラメータが少なすぎ...
-
アクセスのエラー「クエリには...
-
ACCESS 「パラメータの入力」...
-
アクセスで追加した項目に全て...
-
更新クエリをリンクデータベー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ACCESSでテーブルにあるチェッ...
-
Accessの最大レコード数
-
クエリの結果が文字化け(Access...
-
Access 「主キーにはnull値を...
-
Accessで、フォームに情報を入...
-
ACCESS2010 フィルタ後のエク...
-
ACCESSでのひとつ前レコードの...
-
ACCESSでの関数について
-
Accessのテーブルを開いたとき...
-
Accessでレポート内の繰り返し...
-
フォーム内のデータをすべて更...
-
アクセスでの追加クエリでのエ...
-
ACCESS2000 更新クエリで文字...
-
レコード件数が0件なら印刷を...
-
Accessのオートナンバーについて
-
アクセス レポートの行数を固...
-
mdbの破損「データベース形式・...
-
文字を含むIDの自動採番
-
Accessの保存のタイミングについて
-
Access:リンクテーブルでの参...
おすすめ情報