ACCESS レコードセットからのレポート印刷

質問

今回もどうぞよろしくお願いします。

発注書をレポートで印刷する際、レコードセットを使用したいのですが
行き詰っています。

[発注依頼CD]
[発注日]
[仕入れ先名]
[仕入れ先担当者]
[自社担当者CD]
[自社担当者名]
[現場CD]
[顧客名]
[住所]
[納期]
[納入場所]
[備考]
上記からなる親フォームに

[内訳CD]
[発注依頼CD]
[品名]
[数量]
[単位]
[単価]
[内訳備考]
上記のサブフォーム(帳票）を[発注依頼CD]でリンクさせ、
入力フォームを作りました。
この入力フォームで入力した内容を[Y発注書印刷]というテーブルに
一時的にセットして、レポートに表示・印刷させたいです。

Y発注書印刷　フィールド構成
[発注依頼CD]
[発注日]
[自社担当者CD]
[自社担当者]
[仕入れ先名]
[仕入れ先担当者]
[現場CD]
[顧客名]
[住所]
[納期]
[納入場所]
[備考]
[ページ数]
[品名01]
[数量01]
[単位01]
[単価01]
[内訳備考01]
　　．
　　．
　　．
[品名12]
[数量12]
[単位12]
[単価12]
[内訳備考12]

'====================================
'発注書　印刷
'====================================
Public Function 発注書印刷(HA_CD, Gyou_Max)
' On Error Resume Next
'
Dim Page, Gyou, Gyou_n As String, A
Dim SUU, Moji

' 入力チェック
If IsNull(HA_CD) Then
res = MsgBox("該当するデータがありません。", 0, "確認")
Exit Function
End If

DoCmd.RunCommand acCmdSaveRecord

DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE * FROM Y発注書印刷"
DoCmd.SetWarnings True

Dim CN As ADODB.Connection
Dim RT As ADODB.Recordset
Dim RY As ADODB.Recordset

Set CN = CurrentProject.Connection

Set RT = New ADODB.Recordset
Set RY = New ADODB.Recordset
'
SQL = "SELECT * FROM Q発注書印刷 " & vbCrLf & _
"WHERE 発注依頼CD = " & HA_CD & " " & vbCrLf & _
"ORDER BY 発注依頼CD ,内訳CD "
RT.Open SQL, CN, adOpenKeyset, adLockOptimistic

SQL = "SELECT * FROM Y発注書印刷 "

RY.Open SQL, CN, adOpenKeyset, adLockOptimistic

If RT.EOF Then
res = MsgBox("内訳が入力されていません。", 0, "確認")
GoTo M_ERR
End If

ST_01:

Gyou = 0
Page = 0
GoSub Head_write
M_00:
Gyou = Gyou + 1
Gyou_n = Format(Gyou, "00")
RY("品名" & Gyou_n) = RT("品名")
RY("数量" & Gyou_n) = RT("数量")
RY("単価" & Gyou_n) = RT("単価")
RY("単位" & Gyou_n) = RT("単位")
RY("内訳備考" & Gyou_n) = RT("内訳備考")

RT.MoveNext
If RT.EOF Then GoTo Head_write
If Gyou_Max <= Gyou Then
RY.Update
GoSub Head_write:
End If
GoTo M_00

M_END:
RT.Close: Set RT = Nothing
RY.Close: Set RY = Nothing
CN.Close: Set CN = Nothing

レポート開く "R発注書"

Exit Function
M_ERR:
RT.Close: Set RT = Nothing
RY.Close: Set RY = Nothing
CN.Close: Set CN = Nothing
Exit Function

Head_write:
RY.AddNew
Page = Page + 1
Gyou = 0
RY("ページ数") = Page
RY("発注依頼CD") = RT("発注依頼CD")
RY("発注日") = Format(RT("発注日"), "yyyy 年 m月 d 日")
RY("自社担当者") = RT("自社担当者")
RY("仕入先名") = RT("仕入先名")
RY("仕入先担当者") = RT("仕入先担当者")
RY("自社担当者CD") = RT("自社担当者CD")
RY("現場CD") = RT("現場CD")
RY("顧客名") = RT("工事概要")
RY("住所") = RT("住所")
RY("納期") = RT("納期")
RY("納入場所") = RT("納入場所")
RY("備考") = RT("備考")

Return
End Function

すでに
RT.Open SQL, CN, adOpenKeyset, adLockOptimistic
の箇所で、実行時エラー　-2147217904（80040e10)
「1つ以上の必要なパラメーターの値が設定されていません」
となります。

長文で申し訳ございません。
なにとぞアドバイスをよろしくお願いします。

回答No.1

IDii24 · ベストアンサー

ざっと見た限りいろいろおかしいですが、まず最初のHA_CD とはテキストではないのか型定義されてない？IsNull(HA_CD) で判断できるのか？なぜ削除するときだけDoCmdなのか？
もっと変なのは印刷をテーブル経由でしなくてはいけない理由は？
まとめると。
SQL文は文字列なので　" _ & "でつなぐのが一般的。
テキストパラメーターはちゃんとクォーテーションで囲う。IsNull(HA_CD) ならブランクの場合は？
SQLで統一するならExecuteを使う。中途半端にDoCmdは使わない。
さらにAccessの印刷を出したいだけなら、印刷フォームのソースにこのSQL文をぶち込めばよいだけ。
つまりForm.recordSource=SQLのあと立ち上げればよいだけ。

お礼

無事解決できました。
どうもありがとうございました。

補足

早速のご回答ありがとうございます。
以前、プロの方に見積システムを作成していただいた事があり
完成目前でお蔵入りになりました。
そのシステム内で、今回の方法が使われておりました。
理由はいくつかありますが、主に空白行印刷に対応するためでした。空白行印刷の方法をいくつか試しましたが、一番しっくりきたので。