No.3ベストアンサー
- 回答日時:
本当にいろいろな方法があります。
一番簡単なのは、
あらかじめ「追加クエリ」を作成しておき
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
- 回答日時:
Do Until rs2.EOF
の前に
rs2.MoveFirst
を追加して、
rs2.MoveFirst
Do Until rs2.EOF
としてください。
No.1
- 回答日時:
方法はいろいろですが、以下のような方法があります。
テーブルのフィールド名を商品名、価格とします。
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で質問しましょう!
似たような質問が見つかりました
- その他(データベース) pythonでsqlight勉強中、クエリー結果の利用法教えて下さい 1 2022/04/28 20:38
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- Oracle 質問です。 下記のテーブルとデータがあり、 取得想定結果のように出力したいです。 下記のsqlだと0 2 2023/05/23 19:10
- SQL Server DBのテーブルの設計ができず困っています。 2 2023/06/29 16:43
- Ruby pandasでsqlite3にテーブル作成・追加・読み出しでindexの取り扱い方教えてください 5 2023/03/08 09:57
- Excel(エクセル) Excelマクロ 差分抽出の方法が知りたいです。 2 2023/03/07 13:25
- Excel(エクセル) 【vba】日付の形式が勝手に変わってしまう。 1 2022/09/29 10:54
- その他(データベース) c言語の問題です。これを踏まえてコーディングしたいのでおしえていただきたいです。 3 2023/08/03 09:27
- Windows 7 エクセルで重複データから抽出したい 2 2022/05/18 23:31
- Access(アクセス) access フォーム 大分類、小分類 1 2022/08/11 18:03
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
Accessでレコードを別テーブルへコピーするには
Access(アクセス)
-
Accessでテーブルからテーブルにデータをコピーしたい
その他(データベース)
-
Access サブフォームでの選択行の取得
その他(データベース)
-
-
4
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
5
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
6
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
7
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
8
Accessのレポート上のテキストボックス値を設定したい
その他(データベース)
-
9
他のMDBのテーブルに追加したい
その他(プログラミング・Web制作)
-
10
Accessで別mdbのテーブルをコピー
その他(プログラミング・Web制作)
-
11
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
12
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
13
AccessVBAで作成したExcelファイルを削除する方法は?
Visual Basic(VBA)
-
14
「RunSQL」と「Execute」の違い
Access(アクセス)
-
15
アクセスVBAのMe!と[ ]
Access(アクセス)
-
16
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
17
VBAで変数内に保持された二次配列データをテーブルに格納
Access(アクセス)
-
18
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
-
19
どこにもフォーカスを当てたくない
Access(アクセス)
-
20
insertを高速化させたい
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Accessでデータシートに同じデ...
-
Accessのテーブルデータを一気...
-
アクセス レコードセットを更...
-
ビューのソートについて
-
ERROR1062:Duplicate entry.......
-
マテリアライズドビューとスナ...
-
結合テーブルでINSERTする方法...
-
SQL文の結合(一対多)がわから...
-
テーブルで一番古いレコードだ...
-
MS Accessを共有した際にファイ...
-
Oracleで上書きImportはできま...
-
SQL Server に画像を登録
-
ACCESSとEXCELLの共用
-
構文エラー : 演算子がありませ...
-
住所のDBテーブル、マスターの...
-
Accessの処理速度を速めるため...
-
IF NOT EXISTを使用するINSERT文
-
削除したテーブルを元に戻すこ...
-
CSVファイルを毎日、全レコード...
-
left joinなどで結合対象のレコ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessでデータシートに同じデ...
-
Accessのテーブルデータを一気...
-
Oracleで上書きImportはできま...
-
テーブルで一番古いレコードだ...
-
accessでレコード更新直後の反...
-
ビューのソートについて
-
このISAMでは、リンクテーブル・・
-
同一テーブルのデータを参照し...
-
アクセス レコードセットを更...
-
マテリアライズドビューとスナ...
-
住所のDBテーブル、マスターの...
-
ACCESSで容量が50MBになった...
-
重複クエリを使ったデータ削除
-
処理の途中で停止させ、再開さ...
-
結合テーブルでINSERTする方法...
-
SQL文の結合(一対多)がわから...
-
ERROR1062:Duplicate entry.......
-
IF NOT EXISTを使用するINSERT文
-
htmlコードで書かれた表にphpで...
-
Accessのインポートについて(上...
おすすめ情報