質問するログイン新規登録

回答編集履歴

1

指摘事項の追加

2016/02/02 16:04

投稿

thom.jp
thom.jp

スコア686

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