
AccessのVBAを教えてください。
「名簿1」というテーブルがあり、そのテーブルの1つのレコードを「名簿2」という別テーブルに移動させたいです。
「名簿検索」フォームがあり、「名簿1」のデータを検索して表示させることができます。
その表示させたある特定のレコードを、「移動」というボタンを押すと「名簿2」へ移動させるような作りにしたいです。
「名簿1」と「名簿2」は全く同じ構造のテーブルです。
初心者のため、一番簡単な方法でやりたいです。
レコードを「名簿2」へコピーし、その後「名簿1」のレコードを削除しようと思ったのですが、なかなかうまくできません。
insert into を使ってみたのですが、テーブルのデータ全てがコピーされてしまいます。
Access2010を使用しています。
よろしくお願いいたします。
No.2ベストアンサー
- 回答日時:
No.1です
以下を追加してみてください(変数名は任意です)
Dim RSF As Recordset ← フォームに表示されているレコード用
DIM I As Integer ← カウンター用の変数
Set RSF = Me.Recordset でRSFにフォームに表示されているレコードセット
RS.AddNew から RS.Update の部分を以下に変更します
RS.AddNew
For I = 0 To フィールドの数-1 ← フィールド数が20ならば19
RS.Fields(I) = RSF.Fields(I)
Next I
RS.Update
これでコピーできます。
No.1
- 回答日時:
名簿1と名簿2のフィールドが 氏名、住所、TEL だったとします。
名簿検索フォームに配置したテキストボックスが、Tx_氏名、Tx_住所、Tx_TELだとして、
Dim DB As Database
Dim RS As Recordset
Set DB = CurrentDb
Set RS = DB.OpenRecordset("名簿2", dbOpenDynaset)
RS.AddNew
RS!氏名 = Me.Tx_氏名 ←名簿2へコピー
RS!住所 = Me.Tx_住所
RS!TEL = Me.Tx_TEL
RS.Update
DoCmd.SetWarnings False ← システムメッセージを非表示
DoCmd.RunCommand acCmdDeleteRecord ←名簿1(名簿検索フォーム)のレコード削除
DoCmd.SetWarnings True ← システムメッセージを表示
RS.Close: Set RS = Nothing
DB.Close: Set DB = Nothing
とても分かりやすくありがとうございます。
ちなみに、フィールドがかなり多数あるのですが、
ひとつひとつ指定ではなく、まとめてすべてを指定する方法はありますでしょうか。
2つのテーブルはフィールド名も、テーブル上のフィールドの位置もすべて同じです。
手動でいうと、名簿1で行選択してコピーして、名簿2へ貼付け という感じです。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
Accessでテーブルからテーブルにデータをコピーしたい
その他(データベース)
-
Accessのテーブルデータを一気にVBAで追加したい・・
その他(データベース)
-
アクセスVBAのMe!と[ ]
Access(アクセス)
-
4
Access サブフォームでの選択行の取得
その他(データベース)
-
5
access2000:フォームで入力した内容を新規レコードにコピー
その他(データベース)
-
6
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
7
Accessでレコードの複製
Access(アクセス)
-
8
Access VBA でデータペーストをする
その他(Microsoft Office)
-
9
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
10
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
11
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
12
Accessでフィールド名を変数(文字列)で・・・
Access(アクセス)
-
13
Accessで別mdbのテーブルをコピー
その他(プログラミング・Web制作)
-
14
どこにもフォーカスを当てたくない
Access(アクセス)
-
15
Access 同じデータをたくさんのレコード(同一列)に一度に入力するには
Access(アクセス)
-
16
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
17
AccessのRefresh・Requery・Repaintの違い
Access(アクセス)
-
18
Accessで別テーブルの値をフォームに表示したい
その他(データベース)
-
19
VBとアクセスでSQL文に変数を使いたいのですが
Visual Basic(VBA)
-
20
MS Accessでフォームの「開く時」と「読込み時」のイベントの違い
Access(アクセス)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
昔の友達を探したい
-
5
同窓会の名簿に欠席者・物故者...
-
6
Access]2つのテーブルを比較し...
-
7
保護者名簿を作成したいが、依...
-
8
名前のローマ字表記について…
-
9
エクセルで学年クラスが変わっ...
-
10
iタウンページの電話番号や住...
-
11
チーム分けのフリーソフト
-
12
差し込み印刷 1ページに複数の...
-
13
「○日までに」の意味、その日は...
-
14
とある高級ホテルの役職部門を ...
-
15
何処行ってもやっぱいるよね~
-
16
身長187cmです。 精神障害者は...
-
17
5歳上の人達との上下関係どうす...
-
18
グループでご飯会を企画した人...
-
19
派遣社員です。仕事がこなせず...
-
20
ガソリンスタンドって何業界?
おすすめ情報
公式facebook
公式twitter