teratail
回答率
85.31%
teratail header banner
teratail header banner
質問するログイン新規登録
トップに関する質問Access2010　チェックの入っている複数のレコードを同時に追加したい

編集履歴

質問編集履歴

3

追記

2019/06/18 02:18

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -222,6 +222,20 @@
222
222
 
223
223
 
224
224
 
225
+ ＜商品テーブル T_WProduct＞
226
+
227
+ |フィールド名|データ型|備考|
228
+
229
+ |:--|:--|:--|
230
+
231
+ |F_ProductCode|テキスト型|商品コード（主キー）|
232
+
233
+ |F_ProductName|テキスト型|商品名|
234
+
235
+ |F_Cost|通貨型|単価|
236
+
237
+
238
+
225
239
  ＜入力用伝票詳細テーブル　T_WSlipDetail＞
226
240
 
227
241
  |フィールド名|データ型|備考|
@@ -240,7 +254,7 @@
240
254
 
241
255
 
242
256
 
243
- ＜入力用伝票テーブル＞
257
+ ＜入力用伝票テーブル　T_WSlip＞
244
258
 
245
259
  |フィールド名|データ型|備考|
246
260
 
@@ -260,6 +274,10 @@
260
274
 
261
275
 
262
276
 
277
+ この画像のサブフォームはT_WProductをソースにしています。
278
+
279
+
280
+
263
281
  わかる方いましたらお願いいたします。
264
282
 
265
283
  不明な点があればコメントください。

2

追記

2019/06/18 02:18

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -80,6 +80,8 @@
80
80
 
81
81
  .Fields("F_CustomerCode") = RS!F_CustomerCode
82
82
 
83
+
84
+
83
85
  .Update
84
86
 
85
87
  End With
@@ -108,6 +110,154 @@
108
110
 
109
111
 
110
112
 
113
+ ```VBA
114
+
115
+ '----------------------------
116
+
117
+ '選択ボタンクリック時
118
+
119
+ '----------------------------
120
+
121
+
122
+
123
+ Private Sub Button_Select_Click()
124
+
125
+
126
+
127
+ Dim DB As DAO.Database
128
+
129
+ Dim RST As DAO.Recordset
130
+
131
+ Dim RS As DAO.Recordset
132
+
133
+ Dim RSS As DAO.Recordset
134
+
135
+
136
+
137
+ Set DB = CurrentDb
138
+
139
+ Set RS = DB.OpenRecordset("T_Product", dbOpenDynaset)
140
+
141
+ Set RSS = DB.OpenRecordset("T_WSlip", dbOpenDynaset)
142
+
143
+ Set RST = DB.OpenRecordset("T_WSlipDetail", dbOpenDynaset)
144
+
145
+
146
+
147
+ With RS
148
+
149
+
150
+
151
+ .FindFirst "F_SelectFlag = True"
152
+
153
+
154
+
155
+ Do Until RS.NoMatch
156
+
157
+
158
+
159
+ With RST
160
+
161
+
162
+
163
+ .AddNew
164
+
165
+ .Fields("F_SlipCode") = RSS!F_SlipCode
166
+
167
+ .Fields("F_ProductCode") = RS!F_ProductCode
168
+
169
+ .Fields("F_Qty") = 1
170
+
171
+
172
+
173
+ End With
174
+
175
+
176
+
177
+ RS.FindNext "F_SelectFlag = True"
178
+
179
+ Loop
180
+
181
+
182
+
183
+ .Close
184
+
185
+
186
+
187
+ End With
188
+
189
+
190
+
191
+ Forms!F_WSlipInput.Refresh
192
+
193
+
194
+
195
+ DoCmd.Close acForm, Me.Name
196
+
197
+
198
+
199
+ End Sub
200
+
201
+ ```
202
+
203
+ ＜商品テーブル T_Product＞
204
+
205
+ |フィールド名|データ型|備考|
206
+
207
+ |:--|:--|:--|
208
+
209
+ |F_ProductCode|テキスト型|商品コード（主キー）|
210
+
211
+ |F_ProductName|テキスト型|商品名|
212
+
213
+ |F_Cost|通貨型|単価|
214
+
215
+ |F_AddDate|日付/時刻型|追加日|
216
+
217
+ |F_UpdateDate|日付/時刻型|更新日|
218
+
219
+ |F_DeleteFlag|Yes/No型|削除フラグ|
220
+
221
+ |F_SelectFlag|Yes/No型|選択フラグ|
222
+
223
+
224
+
225
+ ＜入力用伝票詳細テーブル　T_WSlipDetail＞
226
+
227
+ |フィールド名|データ型|備考|
228
+
229
+ |:--|:--|:--|
230
+
231
+ |F_SlipCode|テキスト型|伝票コード（主キー）|
232
+
233
+ |F_LineNum|数値型|行番号（主キー）|
234
+
235
+ |F_ProductCode|テキスト型|行商品コード|
236
+
237
+ |F_Cost|通貨型|単価|
238
+
239
+ |F_Qty|数値型|数量|
240
+
241
+
242
+
243
+ ＜入力用伝票テーブル＞
244
+
245
+ |フィールド名|データ型|備考|
246
+
247
+ |:--|:--|:--|
248
+
249
+ |F_SlipCode|テキスト型|伝票コード　（主キー）|
250
+
251
+ |F_StaffCode|テキスト型|担当者コード|
252
+
253
+ |F_CustomerCode|テキスト型|顧客コード|
254
+
255
+ |F_ApplyCode|テキスト型|適用コード|
256
+
257
+ |F_ProcessDate|日付/時刻型|処理日|
258
+
259
+ |F_ApplyValue|数値型|割引地|
260
+
111
261
 
112
262
 
113
263
  わかる方いましたらお願いいたします。

1

修正、追記

2019/06/18 02:12

投稿

退会済みユーザー
test CHANGED
File without changes
test CHANGED
@@ -28,7 +28,7 @@
28
28
 
29
29
 
30
30
 
31
- ・複数のレコードを選択した後に、マスタのフッターにある「伝票に追加」というボタンを押すと、伝票入力フォームのサブフォームに選択したレコードが一気に表示されているようにしたいです。
31
+ ・複数のレコードを選択した後に、マスタのフッターにある「選択」というボタンを押すと、伝票入力フォームのサブフォームに選択したレコードが一気に表示されているようにしたいです。
32
32
 
33
33
 
34
34
 
@@ -100,6 +100,14 @@
100
100
 
101
101
  ```
102
102
 
103
+ ##追記
104
+
105
+
106
+
107
+ ![現状](5d049e919e8ec600bbef16810ee6d538.png)
108
+
109
+
110
+
103
111
 
104
112
 
105
113
  わかる方いましたらお願いいたします。