複数の値をフォームからレポートに渡す

      2019/10/10

●複数の値をフォームからレポートに渡す

https://blog.goo.ne.jp/shusei0815/e/3b120f0ca7226e011b9fec4003016b74
https://tsware.jp/tips/tips_648.htm

【フォーム側】

Dim strOpenArgs As String

‘別フォームに渡す引数を組み立てる(選択項目、タイトル、日付を渡す)
strOpenArgs = Nz(Me.cmb選択.Value, 0) & “,” & Nz(Me.txtタイトル.Value, 0) & “,” & Nz(Me.txt日付.Value, 0)

DoCmd.OpenReport “R_レポート1”, acViewPreview, , , , strOpenArgs)

【レポート側】
イベント・・・フォーマット (今回は、ページヘッダーセクションのフォーマットイベントです)
Private Sub ページヘッダーセクション_Format(Cancel As Integer, FormatCount As Integer)
Dim v As Variant

‘OpenArgsをカンマごとに分解して配列に格納する
v = Split(Nz(Me.OpenArgs), “,”)

Me.txt帳票タイプ = v(0) ‘タイトル(全体数/正袋数/端数)
Me.txtタイトル = v(1) ‘タイトル(製造計画/完成)
Me.txt製造日 = v(2) ‘製造日

End Sub

 - AccessVBA開発, 未分類