回答編集履歴
1
指摘事項の追加
answer
CHANGED
|
@@ -4,12 +4,14 @@
|
|
|
4
4
|
|
|
5
5
|
さて、私の結論は「できない」なのですが、一応、色々と間違ってそうなところをお伝えします。
|
|
6
6
|
|
|
7
|
-
|
|
7
|
+
まず、AccessのコマンドボタンはMSForms.CommandButtonとは別なので、Access.CommandButtonと書く必要があります。
|
|
8
8
|
|
|
9
|
-
|
|
9
|
+
次に、Form_inisialyzはスペルミスかと思いますが、もともとアクセスフォームにInitializeイベントやTerminateイベントはありません。書くならLoadイベント、Unloadイベントです。
|
|
10
10
|
|
|
11
|
-
|
|
11
|
+
次に、Terminateイベントに書いているSet NumBtn = Nothingですが、NumBtnは配列かと思いますので、個別にNothingするか「Erase NumBtn」とする必要があります。
|
|
12
12
|
|
|
13
|
+
最後に、NumBtn(i).MyItem Controls("b" & i) はプロパティへの値セットなので、イコールで代入する必要があります。さらにオブジェクト型プロパティなので、Setが必要です。
|
|
14
|
+
|
|
13
15
|
**Set NumBtn(i).MyItem = Controls("b" & i)**
|
|
14
16
|
|
|
15
17
|
しかし、全部直しても、やはり動作しませんでした。
|