MSアクセスループ、チェックボックスにxを追加

Question

アクセス時にチ​​ェックボックスをループする必要があります。私は3つのチェックボックス、チェックボックス1、チェックボックス2、チェックボックス3を持っています。 x = 1 "check"でループする構文を取得できません& xまたはcheckxまたはcheck（x） 数値変数xでチェックボックス名を宣言する方法はありますか？

ありがとうございます！

次を使用することができ、フォーム上の10個のチェックボックス、 "CHK" プラス連番のような名前のそれぞれを持っていると仮定すると

Private Sub Refer_Click() 
Dim x As Integer 
Dim y As String 

x = 1 
y = "" 

Do Until x = 4 
    If Checkx = True Then 
     y = y & Checkx.Controls(0).Caption & ";" 
     x = x + 1 
    Else: 
     x = x + 1 
     y = "unchecked" 
End If 
Loop 

fillThis.Value = y 


End Sub 

Answer 1

：

For i = 1 To 10 
    Debug.Print Me.Controls("chk" & i).Name & vbTab & Me.Controls("chk" & i).Value 
Next i