![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
ACCESS2016で名簿管理を作製しています。選択クエリでID,名前、フリガナ、郵便番号、都道府県、住所、電話番号、メールアドレス、名簿に登録した年月日をフィールドに入れました。このクエリから登録した「ID」と「年月日」を毎回指定して印刷できるようにしたいと思っています。具体的には、印刷フォーム(F_印刷)を作成してそのフォームににはレポートを起動するためのボタンを配置しています。加えて、登録した年月日(〇〇年〇月〇日)は、非連結のテキストボックス(txt_登録日)とID(□~◇)は、非連結テキストボックス(txt_ID1、txt_Id2)を配置しました。印刷プレビューを表示させるため「F_印刷フォームのボタンをクリック」したとき、名簿印刷のレポート(R_宛名印刷)を起動させるように次のようにしました。
Private Sub cmd_宛名ラベルプレビュー_Click()
Dim strFilter1 As String
Dim strFilter2 As String
strFilter1 = Forms![F_印刷].txt_登録日
strFilter2 = "Between" & "Forms![R_宛名印刷]." & txt_ID! & " And Forms![R_宛名印刷]." & txt_ID2
Me.Filter = strFilter1 & " AND " & strFilter2
DoCmd.OpenReport "R_宛名印刷", acViewPreview
End Sub
また、フィルタを設定を引き継げるようにR_宛名印刷には、開くときに次のように
Private Sub Report_Open(Cancel As Integer)
Me.Filter = Forms![F_印刷].Filter
Me.FilterOn = True
End Sub
としていますが、機能しません。VBAを使用して、指定した、登録年月日とID(〇~〇のようにある範囲)の名簿を印刷できるようにしたいのですが、対策を教えていただけないでしょうか?
よろしくお願いします。
No.5ベストアンサー
- 回答日時:
フィールド名が指定してありませんね。
Forms![R_宛名印刷]." & txt_ID! も何でレポートなの?
あと、Forms![F_印刷].txt_ID1 のところも直しましょう。
フィールド名がわからないので、「会員ID」と「登録日」としました。
Private Sub cmd_宛名ラベルプレビュー_Click() で
Dim strFilter1 As String
Dim strFilter2 As String
Dim strFilter As String
strFilter1 = "([登録日]= #" & Forms![F_印刷].txt_登録日 & "#)"
strFilter2 = "([会員ID] Between " & "Forms![F_印刷].txt_ID1 & " And Forms![F_印刷].txt_ID2 & ")"
strFilter = strFilter1 & " AND " & strFilter2
抽出条件を与えて開きます。
DoCmd.OpenReport "R_宛名印刷", acViewPreview, , strFilter
ちなみに、Report_Open時の Filterは必要ありません。
No.4
- 回答日時:
先の回答に誤りがありました。
すみません。strFilter1 = "(登録した年月日フィールド名 = #" & me!txt_登録日 & "#)"
strFilter2 = "(ID Between " & me!txt_ID & " And " & me!txt_ID2 & ")"
Me.Filter = strFilter1 & " AND " & strFilter2
でした。
txt_登録日、txt_ID、txt_ID2の三つとも入力済みの場合だけ有効です。
debug.print me.filter
でイミディエイトウィンドウ(Ctrl + G で開きます)にフィルター文が出力されていますので
確認してみてください。
パラメータの入力を求められる件ですが、
『ID』という名前のフィールドが存在していないのでは?
ありがとうございました。時間がなくてすぐに試すことができませんでしたが、昨日試みたところうまくいきました。お礼が遅くなりましたが、改めてお礼を申しあげます。
No.3
- 回答日時:
大前提として、F_印刷フォームとR_宛名印刷レポートのレコードソースに同じテーブル/クエリを指定している。
なら、
Private Sub cmd_宛名ラベルプレビュー_Click()
Dim strFilter1 As String
Dim strFilter2 As String
strFilter1 = "登録した年月日フィールド名 = #" & me!txt_登録日 & "#"
strFilter2 = "ID Between " & me!txt_ID & " And " & me!txt_ID2
Me.Filter = strFilter1 & " AND " & strFilter2
debug.print me.filter
DoCmd.OpenReport "R_宛名印刷", acViewPreview
End Sub
また、フィルタを設定を引き継げるようにR_宛名印刷には、開くときに次のように
Private Sub Report_Open(Cancel As Integer)
if currentproject.allforms("F_印刷").isloaded then
Me.Filter = Forms![F_印刷].Filter
Me.FilterOn = True
end if
End Sub
としてみると?
せっかくアドバイスをいただいたのですが、残念ですがIDは「パラメーターの入力」を求める表示が出てきてしまいます。me!txt_ID1とme!txt_ID2を””や[]、' ' で囲っても同じ結果でした。さらに考えられるいろいろな方法を試みたいと思っています。
No.1
- 回答日時:
フォーム上のデータをクエリの選択条件のところにあてはめて、
クエリをレコードソースにしたレポートを印刷すればいいんじゃないかな?
https://www.moug.net/tech/acopr/0040014.html
早速回答いただきありがとうございます。私の言葉足らずのため回答いただいたのに申し訳ありませんが、クエリで実行すると、「パラメーターの入力」が表示されそこで必要事項を入力することになります。この「パラメーターの入力」で入力するのではなく、テキストボックスなどを利用して登録年月日やIDを毎回入力して必要な名簿を印刷したいと考えています。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Visual Basic(VBA) エクセル365のVBAで困っています。どう修正したらよいか添削をお願いします 2 2023/05/03 17:35
- Visual Basic(VBA) 数式が消える 1 2023/03/19 16:55
- Word(ワード) office365のWordの印刷範囲が勝手に狭くなっています。 4 2022/07/18 16:31
- 年賀状作成・はがき作成 筆ぐるめ28 for NEC から年賀状を作りたいのですが、宛名印刷ができません。 1 2022/12/15 18:54
- プリンタ・スキャナー Wordで作った宛名ラベルを印刷しようと思って、プリンターの上のところにある、手差しトレイ的なところ 3 2022/11/17 18:40
- Visual Basic(VBA) VBA★PDFをPDFアプリで印刷しようと思っていますが上手くゆきません 1 2022/06/06 22:04
- プリンタ・スキャナー 2台のプリンターでそれぞれ異なる様式の帳票を印刷したい。 2 2022/09/06 10:07
- 年賀状作成・はがき作成 Wordによる宛名印刷 2 2023/01/04 15:36
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
筆グルメ 住所録一覧
-
筆ぐるめで宛名印刷がうまくい...
-
アクセスにおける宛名ラベル任...
-
筆まめの宛名印刷について
-
ACCESS2016です。VBAで指定した...
-
至急!年賀状印刷で、教えてく...
-
ワードの差込印刷で、郵便番号...
-
郵便番号を書くときにハイフン...
-
エクセルを縦長1枚のPDFへ変換...
-
角型2号封筒に印刷する方法
-
インクジェットはがきじゃない...
-
ワードの差し込み印刷がずれて...
-
郵便物の在中と厳禁の書き方に...
-
Excelを使い、封筒の下に社名を...
-
印刷方向を逆向きにしたい
-
改めての質問
-
画像調整してスクショし保存し...
-
差し込み印刷で右に90度文字の回転
-
市販の集金袋に名前を差し込み...
-
封筒に宛先がうまく印刷できない
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
アクセスにおける宛名ラベル任...
-
タックシールで全て違う宛名で...
-
【差し込み宛名印刷】印刷だけ...
-
筆ぐるめ20 用紙が「はがき」...
-
筆ぐるめ 印刷位置補正がきかない
-
二刀流宛名印刷ソフトの使い方...
-
筆グルメ 住所録一覧
-
至急!年賀状印刷で、教えてく...
-
筆ぐるめで宛名印刷がうまくい...
-
宛名職人2004で両面印刷は出来...
-
「筆ぐるめ」で住所録一覧の印...
-
Accessのレポート機能での宛名...
-
筆ぐるめ(ver13)の宛名印刷で
-
どうしたら文字を、絵葉書に印...
-
筆ぐるめ。宛先によって裏面を...
-
喪中ハガキの宛名書き
-
ワードのはがき宛名印刷ウィザ...
-
筆まめの宛名印刷について
-
ワードのハガキ宛名印刷で、「...
-
筆ぐるめ28 for NEC から年賀状...
おすすめ情報