ADOでRecordsetを作ってそこからレポート出力をもくろみましたが、ちょっとハードルが高かったのでDAOで動的にクエリ作成しそこからレポートを作ることにしました。
(フォームのテキストボックスから値を拾ってSQLで都度動的にクエリを作る)
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 |
Public qdf As DAO.QueryDef ’変数を記載するモジュールなどにPublicで 'プロシージャ内に記載 Set qdf = CurrentDb.QueryDefs("動的なクエリ名") strSql = "" strSql = strSql & "SELECT " strSql = strSql & "VAL(Q.SCANYYYY & Q.SCANMM & Q.SCANDD) AS SCANYMD," strSql = strSql & "Q.APNTDT AS 指定納期," strSql = strSql & "MID(Q.BARCODE_8,3,2) & '-' & MID(Q.BARCODE_8,5,4)& '-' & MID(Q.BARCODE_8,9,4) AS 受注No" strSql = strSql & " FROM" strSql = strSql & " qOutChkbn6 AS Q" strSql = strSql & " LEFT JOIN TOKUIPF AS T ON VAL(Q.CUSTMERCD) = T.TOKCD" qdf.SQL = strSql Set qdf = Nothing |
コメント