| |
フォームある非連結のテキストをテーブルに書き込みたいと思います。
【3562】の投稿を見てかなりできたのですが、最後の最後でエラーがでます。
ご助言お願いします。
フォームには、txt支給iというデータが20個あります。
データがnullでないときだけテーブルに一件追加します。5件の入力があれば5レコードできる・・・といった感じです。
Dim DB As Database
Dim rs_支給 As Recordset
Dim I As Integer
Do Until Me("txt支給" & Format(I, "0")).Value Is Null
rs_支給.AddNew
rs_支給![No.] = Me![txtNo.]
rs_支給![支給部品] = Me("txt支給" & Format(I, "0")).Value
rs_支給.Update
I = I + 1
Loop
DO UNTIL のところで「オブジェクトが必要です」と出ます。
ちなみに、条件を Me("txt支給" & Format(I, "0")).Value <> Null にすると動くのですが、21個目のテキストはないのでそこでエラーになります。
FOR文で回せばよいのでしょうが、NULL値は入れたくないし、効率が悪いかと・・・。
長々と書きましたがよろしくお願い致します。
|
|
![[未読]](./data/access/image/read_icon.gif){kind=icon}
