テーブル1から抽出したものをテーブル2に入れたい

質問

ACCESSのVBA初心者です。
基本的な質問で申し訳ないのですが、どうかご教授をお願いします。

まず、まったく同じフィールドを持つテーブル1とテーブル2があります。
抽出したい項目は、テーブル1の中にある[性別]と[登録月]が一致するデータの全てです。
性別と登録月は別のフォームのコンボボックスで選択したもので抽出しようと思っています。

該当するデータが含まれているレコードを全てテーブル2に移したいです。

説明が下手で申し訳ないのですが、どうかご教授をお願い致します。

Dim rs As DAO.Recordset
Set db = CurrentDb()
Set rs = db.OpenRecordset("テーブル1", dbOpenDynaset)
DoCmd.RunSQL "DELETE FROM テーブル2"
rs.Filter = " テーブル1.性別　=　テーブル2.性別　&　テーブル1.登録月　=　テーブル2.登録月"
テーブル2 = テーブル1.RecordsetClone

最初にdeleteがあるのは、前回の抽出条件を消したいからです。
よろしくお願い致します。

回答No.2

ShowMeHow · ベストアンサー

SQLはDAOでも実行できると思いますよ。

http://www.accessclub.jp/sql/05.html

お礼

ありがとうございました！無事できました！

回答No.1

ShowMeHow

せっかくアクセス使ってるんだから、、、

削除クエリ、追加クエリは作れますか？　マクロでそれらのクエリを実行させても良いですし、

それをＳＱＬビューで見ると、ＳＱＬ文が見えますので、ＡＤＯなどでＳＱＬ実行させても良いです。

Dim CON As New ADODB.Connection
Dim strSQL as string
Set CON = CurrentProject.Connection
strSQL = "delete from table2"
CON.Execute strSQL
strSQL= "INSERT INTO table2 SELECT * from table1 where table1.性別　='M' and table1.month = '07'"
CON.Execute strSQL
Set CON = Nothing

こんな感じ。　2回目のstrSQLは適宜調整してください。

補足

返事が遅くなってしまい申し訳ございません；
実はクエリとADOを使わずに作らなければならないものでして、ShowMeHowさんの回答で試してみて、問題なく動きはしたのですが解決にはなりませんでした；