アクセスのテーブルからテーブルへのデータ複写

質問

お世話になります。
テーブル１よりフォーム１を表示してます。
テーブル２よりフォーム２も表示してます。
フォーム１よりフォーム２にフィールド内容を流し込みたいです。
フィールド数は１８０個あります。
一個一個、180行コードを書いて複写すればできますが、配列を利用して複写する方法はないものでしょうか。
よろしくお願いします。

回答No.1

chayamati · ベストアンサー

テーブルからテーブルへの追加複写なら範囲指定で出来ます
範囲は、全体、行(レコード範囲）、列範囲どれも可です

VBAだと DoCmd.RunSQL に続いて()内に SQL文を記述します。
SQL文はDelete,Insert,Updateの3つで結構いけますよ

例
Private Sub 当期集計RTN()
DoCmd.SetWarnings False
DoCmd.RunSQL ("DELETE from 予算明細;")
DoCmd.RunSQL ("INSERT into 予算明細(科目ID) select 科目ID from 勘定科目 where 繰越FG = false; ")

DoCmd.SetWarnings True
End Sub

お礼

こんばんは、以前にもお世話になりまして、ありがとうございます。

削除クエリと追加クエリでなかなかできず、時間がないので
フォームA[フィールド名F]＝フォームB[フィールド名F]のコードを
180個ほど羅列して作りました。

以前のシステムが、ほぼ完成しました。

回答No.2

chayamati

追伸
・自分はAccessのVBA学習に参考URAのACCESS VBA基礎編を参考にしています。
　これにはコードの解説とコーディング例があります。

・Accessにはファイルを開くと１つだけですが特定のフォームを開く機能があります。
　この特定のフォーム名をメニューとしています。

　[ファイル]→[オプション]→[カレントデータベース]→[フォームの表示窓の右端]
　→［リストから一つを選ぶ]→[OK]

　クエリー、フォーム、レポートの数が増えると整理が必要になります

上記メニューフォームに他のフォーム、レポートを開くボックスを配置しています。
　※ボックスはテキストボックスをはじめラベルボックス
　、コンボボックスもイベント作成可能です。
　　勿論コマンドボタンも可能ですが背景色に色が使えないので使っていません。

参考URL：

http://www.geocities.jp/cbc_vbnet/top/nyumon.html

お礼

随分と御無沙汰いたしまして申し訳ありません。

今は楕円形に歯型が並んでいるものに入力するものを作ってます。　フォームの中にサブフォーム、更にそのサブフォームの中にサブフォーム（歯面　入力項目２５０個程）を作ってます。　

ACCESS VBA基礎編は参考にさせて頂きます。
ありがとうございます。