回答編集履歴
1
コードの追加
answer
CHANGED
|
@@ -12,6 +12,24 @@
|
|
|
12
12
|
「可視」を「いいえ」にして保存します。
|
|
13
13
|
必用に応じて、Visible = True で表示させるようにするのが、安全だし高速です。
|
|
14
14
|
|
|
15
|
+
ラベルとテキストボックスの名前を
|
|
16
|
+
Lbl1, Lbl2, ・・・・・・
|
|
17
|
+
Txt1, Txt2, ・・・・・・
|
|
18
|
+
というようにつけておけば、下記のようにループでまわせます。
|
|
19
|
+
```vba
|
|
20
|
+
Dim i As Long
|
|
21
|
+
For i = 1 to td.Fields.Count
|
|
22
|
+
With Me("lbl" & i)
|
|
23
|
+
.Visible = True
|
|
24
|
+
.Caption = td.Fields(i).Name
|
|
25
|
+
.Top = 30 * i + 70
|
|
26
|
+
End With
|
|
27
|
+
With Me("Txt" & i)
|
|
28
|
+
.Visible = True
|
|
29
|
+
.Top = 30 * i + 70
|
|
30
|
+
End With
|
|
31
|
+
Next
|
|
32
|
+
```
|
|
15
33
|
Accessのフォームではこの方法が一般的です。Excelのユーザーフォームだと使用中にコントロールを追加するというのはよくあるようですが。
|
|
16
34
|
|
|
17
35
|
|