お世話になります。
アクセスでVBAにチャレンジしながら見積書作成に似たシステムを作ろうとしています。
作りたいイメージは、あらかじめ登録してあるサブレコードとリレーションでつながったテンプレートから、必要なレコードを複数個選択(実際はレコードを表示したリストボックス)してボタンを押すと、作成フォームのほうへコピーされるというものです。
追加クエリを使って、1レコードのコピーはできるようになったのですが、テンプレートから一気に複数個コピーするというものがどうしてもできません。
方法(できればコードも)をご教示いただければありがたいです。
1レコードのコピーは、
1.F_作成フォームにあるリストボックス(テンプレートのレコードを表示しています)からコピーしたいレコードを選択して、コマンドボタンをクリック
2.テンプレートフォームと同じフィールドが用意されたF_作成フォームに内容を転記
3.追加クエリにて、ID(主キー)によってリンクされたサブレコードをF_作成のサブフォームにコピー
というものをVBA+追加クエリで作りました。
素人作成で大変お恥ずかしいですが参考に作成したコードを下記に示します。
ちなみにコードの中でFor~Nextを使っているのは、新しいレコードを記入すると自動採番されて、番号というフィールドに登録され、番号の小さいもの順に並べられるようにしたもので、下記コード中の小項目選択リスト.Column(1)が、テンプレートのレコードを示すものです。実際は複数行あります。また、Forms![F_作成]![F_小項目の内訳]がサブフォームとなっていて、ここにサブレコードをコピーしたいです。
Dim B1, B2, re As Long
'番号の自動採番
B1 = Forms![F_作成]![F_小項目].Form![番号]
B2 = Format(DCount("番号", "Q_小項目"))
For i = B1 To B2
Forms![F_作成]![F_小項目].Form![番号].SetFocus
Forms![F_作成]![F_小項目].Form![番号] = i + 1
Forms![F_作成]![F_小項目].Form.Recordset.MoveNext
Next i
'レコード転記
Forms![F_作成]![F_小項目].Form.Recordset.AddNew
Forms![F_作成]![F_小項目].Form![中項目ID] = Forms![F_作成]![中項目リスト値]
Forms![F_作成]![F_小項目].Form![番号] = B1
Forms![F_作成]![F_小項目].Form![名称] = 小項目選択リスト.Column(1)
Forms![F_作成]![F_小項目].Form.Recordset.MoveFirst
Forms![F_作成]![F_小項目].Requery
'追加クエリ(サブフォーム用)
'---------------------------------------------------------
DoCmd.SetWarnings False
DoCmd.OpenQuery "Q_小項目詳細追加"
DoCmd.SetWarnings True
Forms![F_作成]![F_小項目の内訳].Requery
'---------------------------------------------------------
Forms![F_作成]![F_小項目].SetFocus
DoCmd.GoToRecord , , acGoTo, B1
まずは、リストボックスを複数選択できるようにして、選択されたレコードをTPFからACFへコピーして、リレーションで対応するレコードをサブフォームにコピーするって感じだと思うのですが。
以上、よろしくお願いいたします。
A 回答 (1件)
- 最新から表示
- 回答順に表示
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) DoCmd.SearchForRecord が動かない時の解決方法 3 2022/07/22 15:31
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- JavaScript セレクトを全て選択されていないと、文字によるエラーメッセージを表示させるコードを調べています 2 2023/06/22 15:48
- Excel(エクセル) 【困っています】VBA 追加処理の記述を教えてください。 1 2022/08/25 22:54
- Access(アクセス) access フォーム 大分類、小分類 1 2022/08/11 18:03
- Excel(エクセル) エクセルについて教えてください。 2 2023/06/14 11:11
- Excel(エクセル) 非表示にしたい行をグループ化して折り畳み 4 2022/09/17 20:17
- その他(ソフトウェア) Googleフォーム、効率的な入れ方 2 2022/10/03 22:44
- Ruby pandasでsqlite3にテーブル作成・追加・読み出しでindexの取り扱い方教えてください 5 2023/03/08 09:57
- その他(プログラミング・Web制作) 入力フォームへ、データを自動的に入力するプログラム。どうやって作る? 4 2023/01/16 10:24
このQ&Aを見た人はこんなQ&Aも見ています
-
性格の違いは生まれた順番で決まる?長男長女・中間子・末っ子・一人っ子の性格の傾向
同じ環境で生まれ育っても、生まれ順で性格は違うものなのだろうか。家庭教育研究家の田宮由美さんに教えてもらった。
-
ACCESSのサブフォームコピーについて
その他(Microsoft Office)
-
Access:サブフォームのレコードのコピー(複数)
Access(アクセス)
-
access2000:フォームで入力した内容を新規レコードにコピー
その他(データベース)
-
-
4
Access サブフォームでの選択行の取得
その他(データベース)
-
5
メインフォームとサブフォームのレコードを複製
Access(アクセス)
-
6
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
7
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
8
Accessでレコードの複製
Access(アクセス)
-
9
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
10
ACCESSでVBAから選択クエリの抽出条件を指定したい
Access(アクセス)
-
11
ACCESSのフォームで次のレコードに移動しない方法を教えてください
その他(データベース)
-
12
Access 同じデータをたくさんのレコード(同一列)に一度に入力するには
Access(アクセス)
-
13
Accessでレコードを別テーブルへコピーするには
Access(アクセス)
-
14
Accessでレコードの複製
Access(アクセス)
-
15
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
16
access マクロでのフィルタの解除の方法
Access(アクセス)
-
17
クエリで出来た表にチェックボックスを追加する
その他(Microsoft Office)
-
18
サブフォームの新規レコードに移動したい アクセス
Access(アクセス)
-
19
Access コンボボックスの値をクリアしたい。
PowerPoint(パワーポイント)
-
20
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
アクセスのコンボボックスの内...
-
ACCESSで帳票形式のレポ...
-
アクセスVBA 初心者 レコ...
-
アクセスで複数レコードを1レ...
-
docmd.gotorecordを起動するには
-
ACCESSフォーム入力後の確定
-
ファイルメーカーで宛名印刷を...
-
accessでオートナンバーを使わ...
-
Access サブフォームでの選択行...
-
(ACCESS)条件に応じて、テキ...
-
Accessでデータを更新したらそ...
-
前のレコードの値を自動で入れたい
-
COUNTIFのやり方を教えてくださ...
-
PDFファイルから特定の文字を検...
-
X-Ripperというフリーウェアに...
-
「パラメータが少なすぎます。3...
-
Accessのサブフォームから値を...
-
.flex-direction プロパティは...
-
PDFファイル/抽出許可され...
-
帳票フォームでのあるコンボボ...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ACCESS 複数のフォームから同一...
-
ACCESSフォーム入力後の確定
-
AccessのRefresh・Requery・Rep...
-
Accessでレコードの複製
-
accessでオートナンバーを使わ...
-
Accessフォームで詳細内の任意...
-
access の 最終レコードの判定...
-
Accessで経過日付に応じて色を...
-
アクセエスのレコードの更新をV...
-
アクセスで複数レコードを1レ...
-
Access 指定したレコードへ移動
-
ファイルメーカーで重複してイ...
-
MS.Access でサブフォーム付の...
-
access2010 特定文字を含むレコ...
-
DoCmd.SearchForRecord が動か...
-
アクセスのコンボボックスの内...
-
ファイルメーカーのレコード複...
-
MSAccess ロック状態かどうかを...
-
ACCESS最終データだけ印刷でき...
-
新しいレコードへの移動時にト...
おすすめ情報