
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で質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Accessの参照フィールドの列がずれてしまいます 1 2023/07/19 15:00
- Access(アクセス) AccessVBAで降順にするテーブル作成クエリを使用して作成したテーブルを削除し同一のテーブル作成 1 2023/01/06 11:17
- 法人税 電子帳簿保存法について 1 2022/04/07 11:17
- SQL Server ACCESSで表が作りたく、そのためのSQL文や設定方法を教えてください。 1 2022/08/15 12:28
- Access(アクセス) access,vbaでフォルダ内のファイルをテーブルにインポート、ファイル名もフィールドに追加したい 1 2022/08/31 11:11
- その他(データベース) pythonでsqlight勉強中、クエリー結果の利用法教えて下さい 1 2022/04/28 20:38
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
- Access(アクセス) アクセスの更新クエリでカレントレコードのみ更新したい 1 2022/06/02 23:32
このQ&Aを見た人はこんなQ&Aも見ています
-
Accessでテーブルからテーブルにデータをコピーしたい
その他(データベース)
-
Accessのテーブルデータを一気にVBAで追加したい・・
その他(データベース)
-
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
-
4
Access 同じデータをたくさんのレコード(同一列)に一度に入力するには
Access(アクセス)
-
5
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
6
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
7
Access サブフォームでの選択行の取得
その他(データベース)
-
8
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
9
Accessで別テーブルの値をフォームに表示したい
その他(データベース)
-
10
Access 最後のレコードに到達するまでループ処理を行う方法
Access(アクセス)
-
11
access2000:フォームで入力した内容を新規レコードにコピー
その他(データベース)
-
12
ACCESSでコントロールソースの変更
Access(アクセス)
-
13
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
14
Accessで別mdbのテーブルをコピー
その他(プログラミング・Web制作)
-
15
「RunSQL」と「Execute」の違い
Access(アクセス)
-
16
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
17
アクセスVBAのMe!と[ ]
Access(アクセス)
-
18
accessで選択クエリで得た全レコードをテーブルに取り込む方法
その他(データベース)
-
19
Access2010 「演算子がありません」エラー
その他(データベース)
-
20
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
亡くなられた方の表現
-
名簿図書館って
-
エクセルで学年クラスが変わっ...
-
Accessでレコードを別テーブル...
-
柔道整復師名簿はみれますか?
-
Access]2つのテーブルを比較し...
-
何それ?ありえないんだけど?...
-
差し込み印刷 1ページに複数の...
-
こんな時の言い回し
-
教員採用の名簿登載について
-
「○日までに」の意味、その日は...
-
社会福祉法人の略語は(株)のよ...
-
同期と給料に差がありました。 ...
-
派遣社員です。仕事がこなせず...
-
回答納期とは?
-
敬語について質問です。 「知ら...
-
見学してみたいです。は敬語で...
-
業界で使う@は単価、C/Sはケー...
-
父親がラインで子供の自分に敬...
-
派遣社員です。私語がおおいと...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
エクセルで学年クラスが変わっ...
-
亡くなられた方の表現
-
差し込み印刷 1ページに複数の...
-
同窓会名簿で、亡くなった方の記載
-
Accessでレコードを別テーブル...
-
Access]2つのテーブルを比較し...
-
保護者名簿を作成したいが、依...
-
こんな時の言い回し
-
同窓会の名簿に欠席者・物故者...
-
クラス名簿
-
名簿図書館って
-
携帯のアドレス帳に「山田さん...
-
名簿に載る個人情報について
-
幼稚園で園児の住所、電話番号...
-
新橋の名簿図書館について
-
教員採用の名簿登載について
-
【緊急】エクセルで複数の同じ...
-
Excel.名簿一覧表から別シート...
-
卒業者名簿にメールアドレスを...
-
柔道整復師名簿はみれますか?
おすすめ情報