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