Access2000のDLookup関数について

質問

Access2000のモジュールにて受注テーブルに単価をセットする記述をしています。
受注テーブルの１件目のデータには受注単価のセットが上手くいくのですが、２件
目以降の受注単価のセットがされなくて困っています。

［品目情報］テーブル
品目　単価
A　　　100
B　　　200
C　　　300

［受注］テーブル
受注品目　受注単価
A　　　　　　100
B
C

受注テーブルの受注単価をセットするのにDLookup関数を使用しています。
DLookup("[単価]","品目情報","[品目] = '" &　TB_1[受注品目] & "'")

※TB_1は下記の通り定義してあります。
　なぜこのような定義がしてあるか不明ですが。
Dim BS_1 As Database
Dim WS_1 As WorkSpace
Dim TB_1 As Recordset
Set WS_1 = DBEngine.WORKSPACES(0)
Set BS_1 = WS_1.DATABASES(0)
　Set TB_1 = BS_1.OpenRecordset("受注情報",DB_OPEN_TABLE)

以上、宜しくお願い致します。

回答No.3

ryuu001 · ベストアンサー

うーん。分かりません。

次の手です。

出来上がったテーブル（KHASIJI_KJ）に更新クエリーを使いHMKIHONからGAICYHにSGAICHをセットしましょう。

お礼

ryuu001さん、お手数をお掛けしました。
上手くいきました。
今後とも宜しくお願い致します。

回答No.2

ryuu001

BS_1!受注単価=DLookup("[単価]","品目情報","[品目] = '" &　TB_1[受注品目] & "'")
かな？

回答No.1

ryuu001

肝心の
DLookup("[単価]","品目情報","[品目] = '" &　TB_1[受注品目] & "'")
をまわす所が書かれていませんので
何とも言えませんが、

do until bs_1.eof=true
bs_1.edit
DLookup("[単価]","品目情報","[品目] = '" &　TB_1[受注品目] & "'")
bs_1.update
bs_1.movenext
loop

では駄目ですか？

または、更新クエリーを使うかです。

補足

ryuu001さん、回答有難うございます。
詳細について、Access2000のモジュールの一部を書きます。
また、１年以上、この処理をやっていて突然DLookUp関数が
おかしくなってしまいました。
以上、宜しくお願い致します。

***　モジュールの一部です　***
処理内容は、KHASIJIを読み、KHASIJI_KJに出力しています。
１．KHASIJIは、Accessテーブルです。
２．KHASIJI_KJは、SQL_Serverのテーブルです。
３．HMKIHONは、SQL_Serverのテーブルです。

Set WS_1 = DBEngine.WORKSPACES(0)
Set BS_1 = WS_1.DATABASES(0)
Set TB_1 = BS_1.OpenRecordset("KHASIJI", DB_OPEN_TABLE)
TB_1.MoveFirst
Do Until TB_1.EOF
GoSub メイン処理
TB_1.MoveNext
Loop
（メイン処理の一部です。）
SQL$ = "INSERT INTO KHASIJI_KJ ( KHDKBN, KHSKBN, KHSYMD, KHSJKN, KHTANT, KHFUGO, KHTCOD, KHSBAN, "
SQL$ = SQL$ & " KHCBAN, KHNOKI, KHKOBN, KHYOKY, KHTRIR, KHNONB, KHHCOD, KHSURY, KHTNKB, KHTANK, "
　省略
SQL$ = SQL$ & TB_1![PATKBN] & ", "
If TB_1![PATKBN] = 2 Then
SQL$ = SQL$ & DLookup("SGAICH", "HMKIHON", "HINCOD = '" & TB_1![KHHCOD] & "'") DLookUpが２件目以降実行されない。
ElseIf TB_1![PATKBN] = 3 Then
SQL$ = SQL$ & DLookup("GAICYH", "HMKIHON", "HINCOD = '" & TB_1![KHHCOD] & "'")
Else
SQL$ = SQL$ & "0 "
End If
SQL$ = SQL$ & " ) "

'TEST
Debug.Print "SQL1=>"; SQL$

Err.Clear
cn.Execute SQL$

［１件目のＳＱＬ文です。最後の"１５８３"がDLooKUpにて求められた品目単価です。］
SQL1=>INSERT INTO KHASIJI_KJ ( KHDKBN, KHSKBN, KHSYMD, KHSJKN, KHTANT, KHFUGO, KHTCOD, KHSBAN, KHCBAN, KHNOKI, KHKOBN, KHYOKY, KHTRIR, KHNONB, KHHCOD, KHSURY, KHTNKB, KHTANK, KHBUNK, KHHINM, KHFUKJ, KHDENP, KHNYMD, KHHYOM, KHPROD, KHLNK1, KHLNK2, KHSEKB, KHFIL1, KHHYMD, KHMKIK, KHNYUK, KHJIKM, KHJIKC, KHERRC, KHSYOK, KHNYAD, KHUPHC, KHUPKB, KHNAIJ, KHKACD, KHKBAN, KHFIL2, HACKBN, PATKBN, GAICYH ) VALUES ( 'SBA1', '1', '2003/05/08', '195323', '000000', '0', '899000003000', '005127829500', '0120823300', '2003/05/29', 'D0201FC89D00', '2324', '工作部　　', '南館　　　', 'MAX-D6381A-1', 12, '1', 190300, '1', 'MOTOR BASE PA', '1', '', '2003/05/29', 'M2', '002324', 'S', 'S', '0', '', '2003/05/08', '*', '1', '000000000000', 'M2', '', '9', '1', '', '', '', '', '', '', 1, 2, 1583 )

［２件目のＳＱＬ文です。DLooKUpにて最後の品目単価が求められず、ＳＱＬ分の実行がエラーとなっています。１件目と同じ品目なのになぜ求められないのか不明です。］
SQL1=>INSERT INTO KHASIJI_KJ ( KHDKBN, KHSKBN, KHSYMD, KHSJKN, KHTANT, KHFUGO, KHTCOD, KHSBAN, KHCBAN, KHNOKI, KHKOBN, KHYOKY, KHTRIR, KHNONB, KHHCOD, KHSURY, KHTNKB, KHTANK, KHBUNK, KHHINM, KHFUKJ, KHDENP, KHNYMD, KHHYOM, KHPROD, KHLNK1, KHLNK2, KHSEKB, KHFIL1, KHHYMD, KHMKIK, KHNYUK, KHJIKM, KHJIKC, KHERRC, KHSYOK, KHNYAD, KHUPHC, KHUPKB, KHNAIJ, KHKACD, KHKBAN, KHFIL2, HACKBN, PATKBN, GAICYH ) VALUES ( 'SBA1', '1', '2003/05/08', '195323', '000000', '0', '899000003000', '005127829600', '0120823400', '2003/05/29', 'D0201FC89E00', '2324', '工作部　　', '南館　　　', 'MAX-D6381A-1', 12, '1', 190300, '1', 'MOTOR BASE PA', '1', '', '2003/05/29', 'M2', '002324', 'S', 'S', '0', '', '2003/05/08', '*', '1', '000000000000', 'M2', '', '9', '1', '', '', '', '', '', '', 1, 2, )