質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

データベース

データベースとは、データの集合体を指します。また、そのデータの集合体の共用を可能にするシステムの意味を含めます

データベース設計

データベース設計はデータベースの論理的や物理的な部分を特定する工程です。

Q&A

解決済

3回答

737閲覧

Access2010 チェックの入っている複数のレコードを同時に追加したい

退会済みユーザー

退会済みユーザー

総合スコア0

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Access

Accessはマイクロソフトによるリレーショナルデータベース管理システムです。オブジェクト指向のアプリケーション作成に対応しており、テーブルや編集をはじめ、クエリ生成、入力フォーム作成、レポート作成など一通りの機能を備えています。

データベース

データベースとは、データの集合体を指します。また、そのデータの集合体の共用を可能にするシステムの意味を含めます

データベース設計

データベース設計はデータベースの論理的や物理的な部分を特定する工程です。

0グッド

0クリップ

投稿2019/06/17 08:11

編集2019/06/18 02:18

##質問内容
伝票管理のシステムを作成しているのですが、メインの伝票入力フォームの詳細にサブフォームがありそこで商品をいくつか追加できるようにしたいです。

##概要
・サブフォームには、
(伝票番号)、行番号、商品番号、商品名、単価、数量、合計金額
の項目があります。

・実際に入力するのは、商品番号と数量だけで、商品名、単価、合計金額は番号を入力すれば自動で入るようになっています。

・商品番号のテキストボックスの隣には、参照ボタンがあり押すと商品マスタが開きます。

・開いたマスタのレコードをクリックするとレコードの背景色が変わり選択状態になります。
(複数選択できるようにしてあります。)

・複数のレコードを選択した後に、マスタのフッターにある「選択」というボタンを押すと、伝票入力フォームのサブフォームに選択したレコードが一気に表示されているようにしたいです。

##補足
ちなみに伝票入力フォームのヘッダーにある、顧客番号を参照するコードはコチラです
(顧客番号はひとつだけしか選択しないです。)

VBA

1'---------------------------- 2'選択ボタンを押したとき 3'---------------------------- 4 5Private Sub Button_Select_Click() 6 7 Dim DB As DAO.Database 8 Dim RST As DAO.Recordset 9 Dim RS As DAO.Recordset 10 11 Set DB = CurrentDb 12 Set RST = DB.OpenRecordset("T_WSlip", dbOpenDynaset) 13 Set RS = DB.OpenRecordset("T_Customer", dbOpenDynaset) 14 15 With RS 16 .FindFirst "F_SelectFlag = True" 17 18 With RST 19 .Edit 20 .Fields("F_CustomerCode") = RS!F_CustomerCode 21 22 .Update 23 End With 24 25 .Close 26 End With 27 28 Forms!F_WSlipInput.Refresh 29 30End Sub

##追記

現状

VBA

1'---------------------------- 2'選択ボタンクリック時 3'---------------------------- 4 5Private Sub Button_Select_Click() 6 7 Dim DB As DAO.Database 8 Dim RST As DAO.Recordset 9 Dim RS As DAO.Recordset 10 Dim RSS As DAO.Recordset 11 12 Set DB = CurrentDb 13 Set RS = DB.OpenRecordset("T_Product", dbOpenDynaset) 14 Set RSS = DB.OpenRecordset("T_WSlip", dbOpenDynaset) 15 Set RST = DB.OpenRecordset("T_WSlipDetail", dbOpenDynaset) 16 17 With RS 18 19 .FindFirst "F_SelectFlag = True" 20 21 Do Until RS.NoMatch 22 23 With RST 24 25 .AddNew 26 .Fields("F_SlipCode") = RSS!F_SlipCode 27 .Fields("F_ProductCode") = RS!F_ProductCode 28 .Fields("F_Qty") = 1 29 30 End With 31 32 RS.FindNext "F_SelectFlag = True" 33 Loop 34 35 .Close 36 37 End With 38 39 Forms!F_WSlipInput.Refresh 40 41 DoCmd.Close acForm, Me.Name 42 43End Sub

<商品テーブル T_Product>

フィールド名データ型備考
F_ProductCodeテキスト型商品コード(主キー)
F_ProductNameテキスト型商品名
F_Cost通貨型単価
F_AddDate日付/時刻型追加日
F_UpdateDate日付/時刻型更新日
F_DeleteFlagYes/No型削除フラグ
F_SelectFlagYes/No型選択フラグ

<商品テーブル T_WProduct>

フィールド名データ型備考
F_ProductCodeテキスト型商品コード(主キー)
F_ProductNameテキスト型商品名
F_Cost通貨型単価

<入力用伝票詳細テーブル T_WSlipDetail>

フィールド名データ型備考
F_SlipCodeテキスト型伝票コード(主キー)
F_LineNum数値型行番号(主キー)
F_ProductCodeテキスト型行商品コード
F_Cost通貨型単価
F_Qty数値型数量

<入力用伝票テーブル T_WSlip>

フィールド名データ型備考
F_SlipCodeテキスト型伝票コード (主キー)
F_StaffCodeテキスト型担当者コード
F_CustomerCodeテキスト型顧客コード
F_ApplyCodeテキスト型適用コード
F_ProcessDate日付/時刻型処理日
F_ApplyValue数値型割引地

この画像のサブフォームはT_WProductをソースにしています。

わかる方いましたらお願いいたします。
不明な点があればコメントください。

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

sazi

2019/06/17 08:17

> 開いたマスタのレコードをクリックするとレコードの背景色が変わり選択状態になります。 >(複数選択できるようにしてあります。) どのように実現していますか?
退会済みユーザー

退会済みユーザー

2019/06/17 08:27

追記いたしました。
sazi

2019/06/17 10:02

画面のイメージだけではなく、処理の概要も追記して下さい。 単に複数選択で一番簡単なのは、リストボックスによる複数選択ですので、前提が無ければそういった回答になります。
hatena19

2019/06/17 11:29 編集

あと、どのようなテーブルがあって、各フォームのレコードソースはどのテーブルなのかの説明も必要ですね。各テーブルのフィールド名、主キー設定も。
guest

回答3

0

saziさんのご指摘に加えて、

With RST .AddNew .Fields("F_SlipCode") = RSS!F_SlipCode ' ← ココモ .Fields("F_ProductCode") = RS!F_ProductCode .Fields("F_Qty") = 1 .Update ' ← ココ End With

上記の ' ← ココモ の行ですが、
常に T_WSlip の先頭レコードの F_SlipCode を入力することになりますが、それでいいのでしょうか。
新規伝票の作成だと思いますので、伝票番号(F_SlipCode)の採番処理が必要だと思いますが。

投稿2019/06/18 06:18

hatena19

総合スコア33620

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

0

.AddNewしかなくて、.Updateが無いからだと思います。

VBA

1 With RST 2 3 .AddNew 4 .Fields("F_SlipCode") = RSS!F_SlipCode 5 .Fields("F_ProductCode") = RS!F_ProductCode 6 .Fields("F_Qty") = 1 7 .Update ' ← ココ 8 End With

投稿2019/06/18 04:32

sazi

総合スコア25138

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

退会済みユーザー

退会済みユーザー

2019/06/18 05:29

インデックス、主キー、またはリレーションシップで値が重複しているので、テーブルを変更できませんでした。重複する値のあるフィールドの値を変更するか、インデックスを削除してください。、、、 ↑のようなエラーが出てしまいます
sazi

2019/06/18 06:18

F_LineNumを追加していないからですね。
guest

0

ベストアンサー

VBA

1'---------------------------- 2'選択ボタンクリック時 3'---------------------------- 4 5Private Sub Button_Select_Click() 6 7 Dim DB As DAO.Database 8 Dim RST As DAO.Recordset 9 Dim RS As DAO.Recordset 10 Dim RSS As DAO.Recordset 11 Dim A As String 12 13 Set DB = CurrentDb 14 Set RS = DB.OpenRecordset("T_Product", dbOpenDynaset) 15 Set RSS = DB.OpenRecordset("T_WSlip", dbOpenDynaset) 16 Set RST = DB.OpenRecordset("T_WSlipDetail", dbOpenDynaset) 17 18 A = Nz(DMax("F_LineNum", "T_WSlipDetail"), 0) 19 20 With RS 21 22 .FindFirst "F_SelectFlag = True" 23 24 Do Until RS.NoMatch 25 26 With RST 27 28 .AddNew 29 .Fields("F_SlipCode") = RSS!F_SlipCode 30 .Fields("F_LineNum") = A + 1 31 .Fields("F_Cost") = RS!F_Cost 32 .Fields("F_ProductCode") = RS!F_ProductCode 33 .Fields("F_Qty") = 1 34 .Update 35 36 End With 37 38 RS.FindNext "F_SelectFlag = True" 39 A = A + 1 40 Loop 41 42 .Close 43 44 End With 45 46 Forms!F_WSlipInput.Refresh 47 48 DoCmd.Close acForm, Me.Name 49 50End Sub

採番処理を加えたら出来ました

投稿2019/06/18 08:00

退会済みユーザー

退会済みユーザー

総合スコア0

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問