teratail header banner
teratail header banner
質問するログイン新規登録

質問編集履歴

1

追記

2019/02/28 06:12

投稿

masayan_pyonz
masayan_pyonz

スコア12

title CHANGED
File without changes
body CHANGED
@@ -18,4 +18,23 @@
18
18
 
19
19
  以上となります。
20
20
 
21
- よろしくお願い致します。
21
+ よろしくお願い致します。
22
+
23
+ **追記**
24
+ Accessオブジェクト
25
+ ※作動関連の一部
26
+ T_基礎データ
27
+ F_エリア選択
28
+ Q_抽出作成
29
+ <抽出条件>
30
+ DMax("受付日","データ","エリア='" & [エリア] & "'")
31
+ [Forms]![エリア選択]![cmbエリア]
32
+
33
+ 実行ボタン(出力)
34
+ Private Sub 実行_Click()
35
+
36
+ 'レポートをデータベースウィンドウから選択します
37
+ DoCmd.SelectObject acReport, "Q_抽出作成", acViewPreview
38
+
39
+ '[PDF]メニューを実行します
40
+ DoCmd.OutputTo acOutputReport, "Q_抽出作成", acFormatPDF, "○○\" & [エリア] & Format(Date, "yyyymmdd") & ".pdf"