|
▼ichinose さん:
こんにちは、
大変ご迷惑をおかけしました。
ほぼ原因と思われる箇所を突き止めました。
AccessのテーブルのNoを重複ありにすると保存されず、重複無しにすると同じNoの
空白行が挿入される原因はExcelのデータにあったようです。
Excelでデータ入力のユーザーフォームが起動したときに、最終行の次の行に
連番を入力するようにしていたのが原因のようです。データを入力する度に
空白データ行に連番が入るので、
Excelの画面上のデータが以下のようになっていたときに
No 月 日 業 者 現 場 客 先 名 現 場 名
1244 2005/03/04 09089 7123 ○○建設 △大橋
1245 2005/03/06 A0065 9159 北海道建設 △宅造
1246 2005/03/06 20007 4181 ○○土建 ○○公園
1247
DAO_Writeを実行すると上記のような現象が出ていたので、以下の部分
Sheets("運送DATA").Range("A1", Cells(Rows.Count, 1).End(xlUp)) _
.Resize(, 20).Address(False, False) & "];"
Cells(Rows.Count, 2)に変更して実行すると問題なく保存されました。
最終的にデータ入力のユーザーフォームが閉じるときに空白行の連番を削除する
ことにしまして、テストの結果は、テーブルのNoを重複あり、無しに関わらず
正常に保存されるようになりました。大変お手数をおかけ致しました。
フィールドサイズを長整数にしました。有り難うございます。
|
|