質問編集履歴
3
コード入力
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,5 +1,4 @@
|
|
|
1
|
-
|
|
1
|
+
コンボボックスのイベントについて質問させていただきます。
|
|
2
|
-
|
|
3
2
|
|
|
4
3
|
|
|
5
4
|
発注を行うためのフォームを作成しています。
|
|
@@ -13,9 +12,8 @@
|
|
|
13
12
|
|
|
14
13
|
|
|
15
14
|
ご教示宜しくお願い致します。
|
|
16
|
-
|
|
15
|
+
|
|
17
|
-
「コンボ仕入先」に設定しているVBA↓
|
|
18
|
-
Private Sub コンボ仕入先_Change()
|
|
16
|
+
```Private Sub コンボ仕入先_Change()
|
|
19
17
|
|
|
20
18
|
If IsNull(Me!KIKAKU_1) = True Then
|
|
21
19
|
Me.KIKAKU_1.Visible = False
|
|
@@ -76,5 +74,5 @@
|
|
|
76
74
|
|
|
77
75
|
Me!F_履歴.Form.Visible = False
|
|
78
76
|
Me.Refresh
|
|
79
|
-
ード
|
|
77
|
+
コード
|
|
80
78
|
```
|
2
コードハイライト化を致しました。不慣れで申し訳ありません。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -1,4 +1,4 @@
|
|
|
1
|
-
コンボボックスのイベントについて質問させていただきます。
|
|
1
|
+
```コンボボックスのイベントについて質問させていただきます。
|
|
2
2
|
|
|
3
3
|
|
|
4
4
|
|
|
@@ -7,6 +7,13 @@
|
|
|
7
7
|
その品目の規格が表示される仕様にしています。
|
|
8
8
|
仕入先で品目を変更した場合、一度規格もクリアにしたいのでイベントで『変更時』にVBAを設定しています。
|
|
9
9
|
|
|
10
|
+
同様に同じ仕入先で品目を変更した場合も規格の表示をクリアにしたいので品目のコンボボックスに同様のVBAを設定しました。「Private Sub コンボ品目_Change()」
|
|
11
|
+
|
|
12
|
+
ブレークポイントを設定して、品目を変更した場合にVBAを通るか見てみましたが、このVBAは通過していませんでした。
|
|
13
|
+
|
|
14
|
+
|
|
15
|
+
ご教示宜しくお願い致します。
|
|
16
|
+
```ここ
|
|
10
17
|
「コンボ仕入先」に設定しているVBA↓
|
|
11
18
|
Private Sub コンボ仕入先_Change()
|
|
12
19
|
|
|
@@ -69,10 +76,5 @@
|
|
|
69
76
|
|
|
70
77
|
Me!F_履歴.Form.Visible = False
|
|
71
78
|
Me.Refresh
|
|
72
|
-
|
|
73
|
-
同様に同じ仕入先で品目を変更した場合も規格の表示をクリアにしたいので品目のコンボボックスに同様のVBAを設定しました。「Private Sub コンボ品目_Change()」
|
|
74
|
-
|
|
75
|
-
ブレークポイントを設定して、品目を変更した場合にVBAを通るか見てみましたが、このVBAは通過していませんでした。
|
|
76
|
-
|
|
79
|
+
ード
|
|
77
|
-
|
|
78
|
-
|
|
80
|
+
```
|
1
画像と内容を変更いたしました。
title
CHANGED
|
File without changes
|
body
CHANGED
|
@@ -7,6 +7,7 @@
|
|
|
7
7
|
その品目の規格が表示される仕様にしています。
|
|
8
8
|
仕入先で品目を変更した場合、一度規格もクリアにしたいのでイベントで『変更時』にVBAを設定しています。
|
|
9
9
|
|
|
10
|
+
「コンボ仕入先」に設定しているVBA↓
|
|
10
11
|
Private Sub コンボ仕入先_Change()
|
|
11
12
|
|
|
12
13
|
If IsNull(Me!KIKAKU_1) = True Then
|
|
@@ -67,9 +68,11 @@
|
|
|
67
68
|
Me!LOT_7 = Null
|
|
68
69
|
|
|
69
70
|
Me!F_履歴.Form.Visible = False
|
|
70
|
-
|
|
71
|
-
|
|
72
71
|
Me.Refresh
|
|
73
|
-
同様に同じ仕入先で品目を変更した場合も規格の表示をクリアにしたいのでPrivate Sub コンボ品目_Change()にも設定したのですが動いてくれません。ブレークポイントで止めてみたのですが抜けてしまっています。
|
|
74
72
|
|
|
73
|
+
同様に同じ仕入先で品目を変更した場合も規格の表示をクリアにしたいので品目のコンボボックスに同様のVBAを設定しました。「Private Sub コンボ品目_Change()」
|
|
74
|
+
|
|
75
|
+
ブレークポイントを設定して、品目を変更した場合にVBAを通るか見てみましたが、このVBAは通過していませんでした。
|
|
76
|
+
|
|
77
|
+
|
|
75
78
|
ご教示宜しくお願い致します。
|