MS Access 印刷時に、印刷レコードに印刷年月日を自動入力したい。

Question

よろしくお願いします。

「印刷時に、印刷レコードに印刷年月日を自動入力したい。」
と考えて、今日も、一日中、アクセスと格闘してきましたが、もう知恵がでません。
クエリ作ってみたり、検索したコードを利用してみたり、いろいろしましたが、
どうすれば、よいのか、わからなくなってしまいました。
お知恵をおわけください。よろしくお願いします。

**************************************
 (1)テーブルには、①受付日　②商品名　③件数　④印刷年月日　の４つのフィールドがあります。
(2)クエリで、①にパラメータを使い、日付指定して、テーブルデータを抽出できるようにしました。
(3)クエリからレポートを作成しました。
(4)フォームの印刷ボタンで、レポート印刷するマクロを設定しました。

 結果、印刷ボタンを押すと、指定受付日のレコードをレポートとして印刷できます。

 今回は、
 印刷ボタンを押して、指定受付日レコードをレポート印刷すると同時に、
 当該印刷レコードについて、テーブルの④に印刷日を自動記録するようにしたいのです。

**************************************
なにとぞ、ご指導、よろしくお願いいたします。

nicotinism · Accepted Answer

はい良くわかりました。
前回回答と重複する部分がありますが一通り説明します。
念のため、ファイルのバックアップコピーを取ってからにしてください。

１・レポートをデザインビューで開きレポートヘッダーにテキストボックスを配置。
２・プロパティシートを開き、このコントロールのコントロールソースに、=[いつ受付？]
３・コントロール名を、その他タブにある名前欄から、Txtパラメータ と変更。
４・書式タブから、可視 を いいえ に変更。
一旦保存します。これからはVBAの記述です。
レポートは閉じてください。

Alt + F11 を押してVBEを立ち上げます。
今後のこともあるので変数の宣言を強制するようにしてください。
メニューのツール→オプション→編集タブの「変数の宣言を強制する」のチェックを入れてください。
http://officetanaka.net/excel/vba/beginner/06.htm
Option Explicit が自動的に新しいモジュールに付与されます。
「自動構文チェック」のチェックは外しておいた方がうるさくなくて良いかも？←ご随意に。

メニューから挿入→標準モジュールにてその宣言部に
Declare Function apiIsWindowEnabled Lib "user32" _
    Alias "IsWindowEnabled" (ByVal hWnd As Long) As Long

そのレポートのモジュールには
Dim IsPrintOut As Boolean
Dim IsPreview As Boolean
上二行は宣言部に

Private Sub Report_Activate()
    IsPreview = True
End Sub
 
Private Sub レポートヘッダー_Format(Cancel As Integer, FormatCount As Integer)
    IsPrintOut = (apiIsWindowEnabled(Me.hWnd) = 0)
End Sub
 
Private Sub Report_Close()
	dim sSql as String '更新クエリのSQL文
	on error goto errH
	sSql="UPDATE テーブルA SET 発送年月日=#" & date & "# WHERE 新規受付日=#" & Me!txtパラメータ & "#"

If IsPrintOut Then
	currentdb.execute ssql,dbfailonerror
	Else
	'MsgBox "プレビューのみです。"
	End If
	exit sub
	errH:
	debug.print err.number,err.description
	msgbox err.description & "が発生しました。発送年月日は更新されません。"
End Sub

最後にメニューからデバッグ→○▽□のコンパイルを行ってエラーが出ないことを確認。
これで大丈夫かと思います。多分。
前回回答でおバカなことをしていました。すみません。

nicotinism · Answer

残念ながら、添付された画像では拡大しても文字の判別が困難です。
（多分、そちらでも同様かと）

以下の情報を載せてください。
※本番のテーブル名やクエリ名でお願いします。

１・印刷日時を保存したいテーブル名。
　　そのフィールド名とデータ型。

２・レポートのレコードソースとなっているクエリ名。
　　そのSQL文。
　　　（SQL文はクエリをデザインビューで開き右クリックして、SQLビューに切り替えて得られます）。
　　出来ればサンプルデータを数行（ダミーで構いません）。

取りあえず以上五点。

nicotinism · Answer

問題の半分（【印刷時にだけ】印刷日時を記録する）は
こちらで解説されている方法で解決するものと思われます。
『レポートで印刷かプレビューか判断する』
http://hatenachips.blog34.fc2.com/blog-entry-170.html

残りの半分は、
パラメータ値をWHERE句に指定した更新クエリで行えばよいのでは？
例えばパラメータクエリで尋ねてくるときに、
「いつ？」としてあるようなら
レポートのレポートヘッダーにでも非連結のテキストボックスを配置。
そのデータタブのコントロールソースに、
=[いつ？]
名前を、Txtパラメータ とか適当につけます。
このコントロールは、可視に、いいえ で非表示にしておきます。
で、お手本の確認用コードを変更して

Private Sub Report_Close()
    dim sSql as String
	sSql="UPDATE テーブル名 SET 印刷年月日=#" & Me!txtパラメータ & "# WHERE 受付日=#" & Now & "#"
	
	If IsPrintOut Then
		currentdb.execute ssql,dbfailonerror
    Else
        MsgBox "プレビューのみです。"
    End If
End Sub

のような・・では？

MS Access 印刷時に、印刷レコードに印刷年月日を自動入力したい。

はい良くわかりました。

残念ながら、添付された画像では拡大しても文字の判別が困難です。

問題の半分（【印刷時にだけ】印刷日時を記録する）は

似たような質問が見つかりました

このQ&Aを見た人はこんなQ&Aも見ています

関連するカテゴリからQ&Aを探す

このQ&Aを見た人がよく見るQ&A

デイリーランキングこのカテゴリの人気デイリーQ&Aランキング

マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング