回答編集履歴
1
コード修正
answer
CHANGED
|
@@ -12,12 +12,12 @@
|
|
|
12
12
|
Private WithEvents subF As Access.Form
|
|
13
13
|
|
|
14
14
|
Private Sub Form_Load()
|
|
15
|
-
Set subF = Me.sub_注文
|
|
15
|
+
Set subF = Me.sub_注文履歴.Form
|
|
16
16
|
subF.OnCurrent = "[Event Procedure]"
|
|
17
17
|
End Sub
|
|
18
18
|
|
|
19
19
|
Private Sub subF_Current()
|
|
20
|
-
Me.sub_注文
|
|
20
|
+
Me.sub_注文明細.Requery
|
|
21
21
|
End Sub
|
|
22
22
|
```
|
|
23
23
|
|