質問編集履歴
2
追記
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -97,3 +97,33 @@
|
|
|
97
97
|
わかりにくい説明ですみません。
|
|
98
98
|
|
|
99
99
|
不明なところがあればコメントください。
|
|
100
|
+
|
|
101
|
+
|
|
102
|
+
|
|
103
|
+
##追記
|
|
104
|
+
|
|
105
|
+
＜商品マスタの商品番号、ダブルクリック時＞
|
|
106
|
+
|
|
107
|
+
|
|
108
|
+
|
|
109
|
+
```VBA
|
|
110
|
+
|
|
111
|
+
'商品番号を入れる
|
|
112
|
+
|
|
113
|
+
|
|
114
|
+
|
|
115
|
+
If Forms!F_ProductMaster.Caption = "商品参照" Then
|
|
116
|
+
|
|
117
|
+
|
|
118
|
+
|
|
119
|
+
DoCmd.RunCommand acCmdSelectRecord
|
|
120
|
+
|
|
121
|
+
Forms!F_WSlipInput!Sub_WSlipDetail!Text_ProductCode = Me!F_ProductCode
|
|
122
|
+
|
|
123
|
+
DoCmd.Close acForm, "参照"
|
|
124
|
+
|
|
125
|
+
|
|
126
|
+
|
|
127
|
+
End If
|
|
128
|
+
|
|
129
|
+
```
|
1
訂正
test
CHANGED
|
File without changes
|
test
CHANGED
|
@@ -60,7 +60,11 @@
|
|
|
60
60
|
|
|
61
61
|
|
|
62
62
|
|
|
63
|
+
伝票入力フォームに参照しているクエリ
|
|
64
|
+
|
|
65
|
+
|
|
66
|
+
|
|
63
|
-
|
|
67
|
+
|
|
64
68
|
|
|
65
69
|
|
|
66
70
|
|