| |
▼ちっち さん：
>下記のようなデータをパラメータクエリーで抽出した後に計算出来る方法を教えて下さい
パラメータクエリーで得られたレコードのレコード数をVBAで得られることは
わかりますか?
もしそれがわかれば、DoCmd.openreport でprtargsを出力するレポートに
渡し、Report_openプロシージャの中で渡されたデータをレポートに配置
されたラベルなりテキストボックスに入れるというのはいかがでしょうか。
（prtargsは文字列データです）
例
・レポートに渡す固有のデータを持ったレポート出力のコード
DoCmd.OpenReport "130_R", acViewPreview, "501_T", , , PrtArg
・レポートを「開く時」のプロシージャ
Private Sub Report_Open(Cancel As Integer)
'
'
'
'
'
If OpenArgs <> "" Then
Me!LblTitle.Caption = Mid(OpenArgs, 1, InStr(1, OpenArgs, "\") - 1)
Me!LblAddress.Caption = Right(OpenArgs, Len(OpenArgs) - InStr(1, OpenArgs, "\"))
End If
End Sub
上の例はたまたま私が現在作成しているアプリケーションのソースコード
です。
レポートに渡されたprtargsをデリミタを使用して2つに分解し、別々の
ラベルに入れています。
注）
その１
レポートのReport_Open中の変数は「OpenArgs」としてください。
その２
レポートにてprtargsのデータを入れるところにラベルを使うときは、
ラベルのCaptionの初期値（デザイン時）は適当な文字列を入れておいて下さい。
（空白のラベルは作れなかったと記憶しています）
|
|
こもれび
- 04/8/13(金) 17:37 -
