データレポートに変数を送り、それを表示するには？ (ID:78454)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 > strTest = "Hello!" > のような変数をデータレポートに渡して表示することはできないのでしょうか？ 可能です。ラベルなどに、データを実行に表示させたい場合には、 .Sections("Section1").Controls("Label1").Caption = "あああ" などのようなコードを記述してやればOKです。 例えば、レポート側にコールバック用のイベントを定義して、 Option Explicit Public Event RequireData(ByVal Ctrl As Object) Public Sub ShowEx() RaiseEvent RequireData(Sections("Section2").Controls("Label1")) RaiseEvent RequireData(Sections("Section2").Controls("Label2")) : Me.Show End Sub などと書いておき、フォーム側では、 Private WithEvents DR As rptSample Private Sub cmdGO_Click() : Set DR = rptSample Set rptSample.DataSource = rs rptSample.ShowEx End Sub Private Sub DR_RequireData(ByVal Ctrl As Object) Select Case Ctrl.Name Case "Label1": Ctrl.Caption = "あああ" Case "Label2": Ctrl.Caption = "いいい" : End Select End Sub などと書く事ができます。 もしも渡すべきデータがさほど多く無い場合は、もっと単純に書けます。 例えば、DataReport側に、 Public Sub ShowEx(ByVal Text As String) Sections("Section2").Controls("Label1").Caption = Text Me.Show End Sub のようなメソッドを定義しておき、呼び出し側では Set rptSample.DataSource = rs rptSample.ShowEx "あああ" などと書く事ができます。 ちなみに、 > 個別の変数に移して表示をする方法はないものか が主目的なのではなく、本来は、 > データを Where Name = 'AAA' のようにまとめて、データレポートの > ページヘッダー 部に Name: AAA のように表示したかった という事なのであれば、「データシェイプ」を使えばOKです。