住所ラベルを必要分だけデータ型yes/no形式でチェックを入れ、レポートで印刷と思っています。
打ち出し方としては、フォーム上にデータとして住所・氏名・チェックと並んでおり、コマンドボタンで「印刷」を設定し、ほぼ上手くいきました。
しかしフォームを一度閉じて印刷しないと全てのチェックが反映されません。
10人中1~5をチェックし、印刷しても4までしか印刷されず、一度閉じてレポートから直接印刷すると5まで反映されている状態です。
フォームを閉じなくても5まで印刷する方法は無いでしょうか。
なにぶん初心者につき、説明の表現が適切ではないかもしれませんが宜しくお願いいたします。
No.1ベストアンサー
- 回答日時:
<改善前>
Private Sub コマンド10_Click()
On Error Resume Next
DoCmd.OpenReport "tab1 クエリ", acPreview
End Sub
<改善後>
Private Sub コマンド10_Click()
On Error Resume Next
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
DoCmd.OpenReport "tab1 クエリ", acPreview
End Sub
{Shift}{Enter}を押せば、フォームとレポートとが一致すると思います。
同じ効果を得るには、{Shift}{Enter}同様にレコードを保存するコードを付加すればいいです。
これで、最後に押したチェックボタンのみが反映されないという不具合は回避されます。
この回答への補足
ご解答ありがとうございます。
なにぶん初心者で、まだまだ分からないことが多く、上記のご解答くださったものを、下記のどの部分に挿入していいか分かりません・・・。
お手数ですが教えていただけないでしょうか。
よろしくお願いします。
Private Sub cmd住所ラベル印刷対象者_Click()
On Error GoTo Err_cmd住所ラベル印刷対象者_Click
Dim stDocName As String
stDocName = ChrW(12521) & ChrW(12505) & ChrW(12523) & ChrW(32) & ChrW(20303) & ChrW(25152) & ChrW(12521) & ChrW(12505) & ChrW(12523) & ChrW(20316) & ChrW(25104) & ChrW(23550) & ChrW(-29599) & ChrW(-32763)
DoCmd.OpenReport stDocName, acNormal
Exit_cmd住所ラベル印刷対象者_Click:
Exit Sub
Err_cmd住所ラベル印刷対象者_Click:
MsgBox Err.Description
Resume Exit_cmd住所ラベル印刷対象者_Click
すみません、できました。
印刷をするコマンドボタンではなく、プレビューのコマンドボタンに上記を挿入してできました。
ありがとうございました。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- 年賀状作成・はがき作成 Wordによる宛名印刷 2 2023/01/04 15:36
- PDF PDF印刷後に「変更を保存しますか?」と訊かれる 2 2023/04/28 17:35
- プリンタ・スキャナー PDFが両面印刷されてしまう初期設定を変更したい 1 2022/04/10 11:44
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- プリンタ・スキャナー Wordで作った宛名ラベルを印刷しようと思って、プリンターの上のところにある、手差しトレイ的なところ 3 2022/11/17 18:40
- プリンタ・スキャナー 印刷ができない 6 2022/04/01 20:47
- Excel(エクセル) Excelであるシートだけ印刷できない 1 2022/04/01 09:04
- Excel(エクセル) エクセルのマクロで複数シートを両面印刷するには? 2 2022/12/08 23:23
- Excel(エクセル) エクセルでキーリストからデータを取り出して1枚1枚印刷するには? 11 2022/06/27 09:52
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Access レポート印刷するときに...
-
ボタン1つで1度に複数枚印刷す...
-
ACCESS フォームをそのまま印刷...
-
ACCESSからVBAでWORDの印刷を..
-
Accessフォームからパラメータ...
-
【Access】フォームのプロパテ...
-
アクセスのフォーム画面の印刷...
-
アクセスのレポート合成(複数...
-
ACCESSの複数レポートの印刷に...
-
ACCESSのレポートで、指定した...
-
accessのフォームをレポートに...
-
Access レポート印刷時のイベン...
-
Access2013 レポートを印刷する...
-
アクセスで希望のレポートを1枚...
-
アクセスのフォーム画面のキャ...
-
アクセスで特定のレコードのみ...
-
ACCESSのマクロで特定のレポー...
-
Access 宛名ラベル レポートの...
-
Accessでのレポート出力
-
Accessにて
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Access レポート印刷するときに...
-
ACCESS フォームをそのまま印刷...
-
アクセスのレポート合成(複数...
-
アクセスで特定のレコードのみ...
-
Accessフォームからパラメータ...
-
ACCESSの複数レポートの印刷に...
-
Accessのフォームで、画面表示...
-
Access2013 レポートを印刷する...
-
ACCESSのレポートで、指定した...
-
アクセスのフォーム画面の印刷...
-
【Access】フォームのプロパテ...
-
ボタン1つで1度に複数枚印刷す...
-
MS Access 印刷時に、印刷レコ...
-
アクセスで希望のレポートを1枚...
-
アクセス2000レポートで、印刷...
-
アクセスのフォーム印刷で不要...
-
ACCESS チェックしたも...
-
Access レポート印刷時のイベン...
-
Accessのレポートで1レコード...
-
Accessのフォーム単票印刷で印...
おすすめ情報