Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


58546 / 76732 ←次へ | 前へ→

【22912】Re:mdbファイルについて
お礼  mickeypapa E-MAILWEB  - 05/3/7(月) 13:40 -

引用なし
パスワード
   ▼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を重複あり、無しに関わらず
正常に保存されるようになりました。大変お手数をおかけ致しました。

フィールドサイズを長整数にしました。有り難うございます。

0 hits

【22619】mdbファイルについて mickeypapa 05/2/24(木) 21:14 質問
【22623】Re:mdbファイルについて ichinose 05/2/24(木) 22:07 発言
【22636】Re:mdbファイルについて mickeypapa 05/2/25(金) 8:13 質問
【22639】Re:mdbファイルについて ichinose 05/2/25(金) 9:22 発言
【22648】Re:mdbファイルについて mickeypapa 05/2/25(金) 14:08 質問
【22657】Re:mdbファイルについて ichinose 05/2/25(金) 18:34 発言
【22658】Re:mdbファイルについて mickeypapa 05/2/25(金) 21:07 お礼
【22662】Re:mdbファイルについて ichinose 05/2/26(土) 0:18 発言
【22674】Re:mdbファイルについて mickeypapa 05/2/27(日) 17:33 質問
【22676】Re:mdbファイルについて ichinose 05/2/27(日) 22:44 発言
【22851】Re:mdbファイルについて mickeypapa 05/3/4(金) 22:52 お礼
【22899】Re:mdbファイルについて mickeypapa 05/3/6(日) 19:31 質問
【22904】Re:mdbファイルについて ichinose 05/3/6(日) 22:18 発言
【22912】Re:mdbファイルについて mickeypapa 05/3/7(月) 13:40 お礼
【22913】Re:mdbファイルについて mickeypapa 05/3/7(月) 13:43 発言
【22659】Re:mdbファイルについて mickeypapa 05/2/25(金) 21:13 お礼

58546 / 76732 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free