Access VBA質問箱 IV

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

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


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

2580 / 9994

←次へ　｜　前へ→


	【10686】Re:クエリデータをaddnewでテーブルに入れる際に列名を・・・

ver45 - 08/11/7(金) 16:48 -


	引用なし

	パスワード

▼トキドキ徹さん：
>▼ver45 さん：
>
>> For ix = 0 To rs1.Fields.Count - 1
>> rs2(ix) = rs1(ix)
>> Next ix
>> 　　　　　　　　
>> rs2.Update
>>
>> としたところ上手く所定の動作が出来るようになりました
>
>これより、テーブルのフィールド構成は同じものと想像します。
>よって
>
>Dim mySQL AS String
>mySQL = "INSERT INTO 追加先テーブル " & _
>　　　　"SELECT * FROM 追加元テーブル "
>CurrentDB.Excute mySQL, dbFailOnError
>
>とすると良いでしょう

ご丁寧にありがとうございます。

すみません　現在このようなコードになっていまして、newkeyとoldkeyを比較して
違った場合に出力するという処理を行っています。列名はこの三つ以外にもありますが、肉と野菜と卵これらの一つでも切り替わった時に書き込まれる用になっております。

For i = 1 To rs1.RecordCount

　　　　NewKey = Trim(rs1!肉) & "|" & Trim(rs1!野菜) & "|" & Trim(rs1!卵)
　　　　
　　　　　　If NewKey <> OldKey Then
　　　　　　　
　　　　　　　　mySQL = "INSERT INTO 書き込み先テーブル " & _
　　　　　　　　"SELECT * FROM 書き込み元テーブル "
　　　　　　　　CurrentDb.Execute mySQL, dbFailOnError
　　　　　　　　
　　　　　　End If
　　　　
　　　　　　OldKey = Trim(rs1!肉) & "|" & Trim(rs1!野菜) & "|" & Trim(rs1!卵)
　　　
　　　　rs1.MoveNext
　　Next i

今の状態はブレイクする度に、全てのデータが書き込み先に書かれてしまいまして、1回ブレイクするごとにSQLで1件づつデータを書き込まれる用にしたいのです。

情報が足りず重ね重ね申し訳ありません。

542 hits

▼

【10644】クエリデータをaddnewでテーブルに入れる際に列名を列挙しないでも済むよう... ver 08/10/31(金) 13:18