Microsoft Access 掲示板
パススルークエリまたは非固定列のクロス集計 / 15
21
コメント
views
4
フォロー
15
ちょっとよくわからないです。念の為、Debug.Printの結果をイミディエイトウィンドウで確認してみるとか。
Set qd = db.QueryDefs(Me.RecordSource)
この後に、Debug.Print Me.RecordSourceを追加。Debug.Print qd.Nameを追加。
Set fld = qd.Fields(cnt)
この後に、Debug.Print fld.Name を追加。
通報 ...
りんご様
ありがとうございます。
上段のDebug.Print Me.RecordSource と Debug.Print qd.Nameではレコードソースとなったクエリが表示されましたが。
下段のDebug.Print fld.Nameではなにも表示されませんでした。
レコードソースのクエリwhere条件で直接コードを入れた結果は
１
２
３
や
１
８
１５
といった希望の数値が出ました。
りんご様
11で作成したフォームのトグルに以下を設定
DoCmd.OpenReport "R_レジメンワークシート", acViewPreview, , "レジメンコード=" & Me.レジメン
これでひとまず表示させることができました。
レコードソースのクエリwhere条件とパラメータは削除してます。
あとは、添付画像の場合４以降を表示させないようにできれば。。
このときのDebug.Print fld.Nameの結果は
１
２
３
４
５
・・・とすべての数値が出ていました。