
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も見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
Accessでテーブルからテーブルにデータをコピーしたい
その他(データベース)
-
Accessのテーブルデータを一気にVBAで追加したい・・
その他(データベース)
-
AccessのRefresh・Requery・Repaintの違い
Access(アクセス)
-
4
アクセスVBAのMe!と[ ]
Access(アクセス)
-
5
Accessで別テーブルの値をフォームに表示したい
その他(データベース)
-
6
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
7
Access サブフォームでの選択行の取得
その他(データベース)
-
8
Accessのフォーム更新方法
Access(アクセス)
-
9
Accessでレコードの複製
Access(アクセス)
-
10
access2000:フォームで入力した内容を新規レコードにコピー
その他(データベース)
-
11
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
12
Access 別フォームへの再クエリ(更新)がしたい。
その他(データベース)
-
13
Accessでフィールド名を変数(文字列)で・・・
Access(アクセス)
-
14
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
15
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
16
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
17
accessvba 複数条件でFilterをしたい
Access(アクセス)
-
18
Access VBA でデータペーストをする
その他(Microsoft Office)
-
19
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
20
ACCESS VBAでテーブル内の特定のフィールドを削除 .Fields.Delete (*")"
その他(プログラミング・Web制作)
関連するQ&A
- 1 <ACCESS>別テーブルのレコードのテキストデータが中に含まれるレコードを抽出する方法を教えてください
- 2 ACCESS フォームのレコードを参照しながら別テーブルのデータ更新
- 3 別のテーブルから別のテーブルへデータを保存する方法
- 4 Access レコードを追加できません。テーブル'○○'の結合キーがレコードセットにありません。
- 5 Access フィールドに入力した値を、同じテーブルの別のフィールドにコピーしたい。
- 6 Access VBAでデータ内テキストと別テーブルのテキストの部分一致の判定の仕方
- 7 Accessでコンボボックスへ新しいレコードを書き込んだものを参照先のテーブルに保存したい
- 8 Accessで、複数行を、別のAccesのテーブルにコピーする方法を教えてください
- 9 Access 抽出したレコードのうち任意のレコードを任意の数、コピーする方法について
- 10 ACCESS 各テーブルのレコード中の最新更新日を取得したい。 ACCESS2007 です。 たくさ
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
人気Q&Aランキング
-
4
差し込み印刷 1ページに複数の...
-
5
Access]2つのテーブルを比較し...
-
6
ブロック単位での並べ替えのVBA
-
7
幼稚園で園児の住所、電話番号...
-
8
同窓会の名簿に欠席者・物故者...
-
9
エクセルで出席確認したいのですが
-
10
携帯のアドレス帳に「山田さん...
-
11
【緊急】エクセルで複数の同じ...
-
12
東京都が男女混合名簿を禁止
-
13
エクセルで学年クラスが変わっ...
-
14
オンラインでの名簿管理ソフト...
-
15
「○日までに」の意味、その日は...
-
16
IT業界のITって何の略ですか?
-
17
コロナで就職先はありますか?
-
18
業界分析の5つの競走要因モデル...
-
19
飲食店のホールに向いてる人
-
20
大阪にもコロナの緊急事態宣言...
おすすめ情報