
お世話になります。
アクセスで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で質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
Access サブフォームでの選択行の取得
その他(データベース)
-
ACCESSのサブフォームコピーについて
その他(Microsoft Office)
-
Accessでレコードの複製
Access(アクセス)
-
-
4
access2000:フォームで入力した内容を新規レコードにコピー
その他(データベース)
-
5
メインフォームとサブフォームのレコードを複製
Access(アクセス)
-
6
Access:サブフォームのレコードのコピー(複数)
Access(アクセス)
-
7
Access サブフォームでの複数行選択
その他(プログラミング・Web制作)
-
8
サブフォームに対してGoToRecordするには?
その他(Microsoft Office)
-
9
Access 同じデータをたくさんのレコード(同一列)に一度に入力するには
Access(アクセス)
-
10
ラベルとテキストボックスのグループ化を解除したい
Access(アクセス)
-
11
サブフォームの新規レコードに移動したい アクセス
Access(アクセス)
-
12
アクセス 前レコード内容を、新レコードにコピー
Access(アクセス)
-
13
アクセスのフォームで、文字を中央揃えにしたい
Access(アクセス)
-
14
アクセスで特定のレコードのみのレポートを印刷したいのですが。
Access(アクセス)
-
15
ACCESS 入力フォームでテーブルへデータを複数追加する
Access(アクセス)
-
16
サブフォームのイベント取得
Visual Basic(VBA)
-
17
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
18
Access レコード移動時イベントでサブフォーム
Access(アクセス)
-
19
Access メインフォーム サブフォームにて
Access(アクセス)
-
20
前のレコードの値を自動で入れたい
PowerPoint(パワーポイント)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
AccessのRefresh・Requery・Rep...
-
ACCESS 複数のフォームから同一...
-
Accessフォームで詳細内の任意...
-
Access 指定したレコードへ移動
-
MSAccess ロック状態かどうかを...
-
ACCESSフォーム入力後の確定
-
動画編集アプリvllo抽出エラー
-
Access サブフォームでの選択行...
-
エクセルで、抽出したデータだ...
-
ACCESSのクエリー抽出条件にIIF...
-
ACCESS フォームで抽出したデー...
-
スクロールバーをVBAで操作したい
-
前のレコードの値を自動で入れたい
-
Access VBA acCmdSelectRec...
-
「パラメータが少なすぎます。3...
-
Accessのコンボボックスでリス...
-
X-Ripperというフリーウェアに...
-
ACCESSのフォームからレポート...
-
AccessでIDを入力したら他の項...
-
Accessでサブフォームの中の並...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
ACCESS 複数のフォームから同一...
-
Accessでレコードの複製
-
ACCESSフォーム入力後の確定
-
AccessのRefresh・Requery・Rep...
-
accessでオートナンバーを使わ...
-
MS.Access でサブフォーム付の...
-
Accessフォームで詳細内の任意...
-
Accessの「Form_AfterUpd...
-
docmd.gotorecordを起動するには
-
access の 最終レコードの判定...
-
アクセスで複数レコードを1レ...
-
MSAccess ロック状態かどうかを...
-
アクセスのコンボボックスの内...
-
アクセエスのレコードの更新をV...
-
Accessで経過日付に応じて色を...
-
新しいレコードへの移動時にト...
-
ファイルメーカーで重複してイ...
-
Accessのレコード数をテキスト...
-
AccessVBA フィルタとカレント...
-
Access 指定したレコードへ移動
おすすめ情報