
No.3ベストアンサー
- 回答日時:2010/09/14 15:51
本当にいろいろな方法があります。
一番簡単なのは、
あらかじめ「追加クエリ」を作成しておき
Docmd.OpenQuery "追加クエリ名"
あるいは DAO で
Set dbs = CurrentDB
dbs.Excute "追加クエリ名"
追加クエリを使用しない場合は
追加クエリの SQL文 に相当するSQL を 実行。
strSQL="INSERT INTO 商品登録データ SELECT 一時商品登録データ.* FROM 一時商品登録データ"
Docmd.RunSQL strSQL
あるいは DAO で
Set dbs = CurrentDB
dbs.Excute strSQL
とか。
直書き、間違いがあったら御免。
まさに、自分が知りたかったSQL構文でした
追加クエリーを作成するとはいいアイデアですね
活用させてもらいます
ありがとうございました
No.2
- 回答日時:2010/09/14 13:35
Do Until rs2.EOF
の前に
rs2.MoveFirst
を追加して、
rs2.MoveFirst
Do Until rs2.EOF
としてください。
No.1
- 回答日時:2010/09/14 13:17
方法はいろいろですが、以下のような方法があります。
テーブルのフィールド名を商品名、価格とします。
DAOを使っているのでコード表のツール、参照設定
からDAOの一番高いバージョンを選択してください。
Private Sub コマンド0_Click()
Dim db As Database
Dim rs1 As Recordset
Dim rs2 As Recordset
If MsgBox("データを転送していいですか?", vbYesNo) = vbYes Then
Set db = CurrentDb
Set rs1 = db.OpenRecordset("商品登録データ", dbOpenDynaset)
Set rs2 = db.OpenRecordset("一時商品登録データ", dbOpenDynaset)
Do Until rs2.EOF
rs1.AddNew
rs1!商品名 = rs2!商品名
rs1!価格 = rs2!価格
rs1.Update
rs2.MoveNext
Loop
rs1.Close: Set rs1 = Nothing
rs2.Close: Set rs2 = Nothing
db.Close: Set db = Nothing
End If
End Sub
なお、フィールド名が増加する場合は、
rs1.AddNew
rs1!商品名 = rs2!商品名
rs!価格 = rs2!価格
rs1.Update
のところに、フィールド名を追加してください。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
Accessでテーブルからテーブルにデータをコピーしたい
その他(データベース)
-
AccessのRefresh・Requery・Repaintの違い
Access(アクセス)
-
【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには
Access(アクセス)
-
-
4
Access サブフォームでの選択行の取得
その他(データベース)
-
5
ACCESSでフォームを使って、テーブルを参照、データ入力、データ更新をしたいのです
Access(アクセス)
-
6
アクセスVBAのMe!と[ ]
Access(アクセス)
-
7
Accessで別テーブルの値をフォームに表示したい
その他(データベース)
-
8
ACCESS IIF関数 複数条件の設定について
Excel(エクセル)
-
9
ACCESS VBA レコードセットの参照方法について
その他(データベース)
-
10
DAOとADOの違いについて
その他(データベース)
-
11
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
12
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
13
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
14
カレントレコードが無い事を判定させる方法
Visual Basic(VBA)
-
15
アクセエスのレコードの更新をVBAでするには?
Access(アクセス)
-
16
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
17
VBとアクセスでSQL文に変数を使いたいのですが
Visual Basic(VBA)
-
18
VBAをつかってクエリの情報を抽出するには??
Visual Basic(VBA)
-
19
Access VBAでCSVファイルをインポートする方法
Access(アクセス)
-
20
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
関連するQ&A
- 1 ACCESS ACCESS VBA テーブル テーブル変換 番号 個数 変換
- 2 Access VBA 抽出したレコードをフィールドを増やして別テーブルに追加する方法
- 3 Access_テーブルへデータ追加する方法
- 4 ACCESS;フォーマットのデータを入力後、テーブルに追加していく
- 5 ACCESSでVBA等を用いて既存テーブルにフィールドを追加する
- 6 Accessの追加クエリで既存のテーブルに上書き追加をしたい
- 7 CSVデータ→ACCESSに変換。また新しいCSVデータをACCESSに追加できない?
- 8 ACCESS 入力フォームでテーブルへデータを複数追加したい
- 9 別のACCESSデータベースのテーブルのレコードを追加したいのです
- 10 ACCESS+MSDE フォームで追加データを追加順に常時表示するには
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
insertを高速化させたい
-
5
データの二重表示の原因
-
6
access追加クエリ実行時の重複...
-
7
アクセスで重複のカウント
-
8
SQLでの複数列が重複してる行の...
-
9
MySQLとSQLServerの性能の違い...
-
10
access:連続データ入力
-
11
キーが重複したレコードを無視...
-
12
Access昇順レコードを、5分割...
-
13
MSアクセスのクエリで結果が...
-
14
SELECTした結果をSELECTしたい!
-
15
Oracle 2つのDate型の値の差を...
-
16
片方のテーブルに存在しないレ...
-
17
第2正規化と第3正規化の違い
-
18
[SQL]重複内容を持つデータから...
-
19
SQL カラムの値ごとの集計
-
20
Accessでのレコード存在チェック
おすすめ情報