回答編集履歴

1

指摘事項の追加

2016/02/02 16:04

投稿

thom.jp
thom.jp

スコア686

test CHANGED
@@ -10,15 +10,19 @@
10
10
 
11
11
 
12
12
 
13
- Form_inisialyzスペルミスかと思いますがもともとアクセスフォームにInitializeイベントやTerminateイベントはありません。書くならLoadイベント、Unloadイベントです。
13
+ まず、AccessのコマンドボタンはMSForms.CommandButtonと別なのでAccess.CommandButtonと書く必要があります。
14
14
 
15
15
 
16
16
 
17
- Terminateイベントに書いているSet NumBtn = Nothingですが、NumBtn配列かと思いますので個別Nothingするか「Erase NumBtn」とする必要があります。
17
+ 次に、Form_inisialyzスペルミスかと思いますもともとアクセスフォームInitializeイベントやTerminateイベントはありません。書くならLoadイベント、Unloadイベントです。
18
18
 
19
19
 
20
20
 
21
+ 次に、Terminateイベントに書いているSet NumBtn = Nothingですが、NumBtnは配列かと思いますので、個別にNothingするか「Erase NumBtn」とする必要があります。
22
+
23
+
24
+
21
- それと、NumBtn(i).MyItem Controls("b" & i) はプロパティへの値セットなので、イコールで代入する必要があります。さらにオブジェクト型プロパティなので、Setが必要です。
25
+ 最後に、NumBtn(i).MyItem Controls("b" & i) はプロパティへの値セットなので、イコールで代入する必要があります。さらにオブジェクト型プロパティなので、Setが必要です。
22
26
 
23
27
 
24
28