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つ以上の必要なパラメーターの値が設定されていません」
となります。
長文で申し訳ございません。
なにとぞアドバイスをよろしくお願いします。
