私は誰かが役立つことを願っ変数

Question

のための動的な入力を作成し、私はプログラミングに新しいです、私の問題はこれです：一つ一つが、「「真」またはブール値をチェックする必要があり、フォーム上の

40のチェックボックスFalse "（ユーザーがチェックするか、チェックを外した）、" True "の各ケースごとに個別のコードを実行できます。

私は私が私に与えられたチェックボックスの値を与えるために、変数に使用、「MS Accessのチェックボックスリファレンス」のカウンタ「I」を含めるようにしようとしています。次のコードでは、私が達成しようとしていることを示す必要があります。非常に高度なソリューションを使用せずに誰かが正しい方向に向けることができますか？私はそれは、単一の工程またはそれだけでなく文字列実行するコマンドとして、変数のための私の入力を見ているので、このすべてを実行することはできませんので、それは推測：

Do While Flag = True 

Dim CheckboxVar As Boolean 
i = i + 1 

If i = 40 Then 
    Flag = False 
End If 

CheckboxVar = "Me.Checkbox" & i & ".Value" 
AddWhereSQL = SQLBuilder (CheckboxVar) 
Loop 

（CheckBox1をの値を取得して送信しますそれSQLBuilder、Checkbox2を取得し、SQLBuilderに送信し、その上に）

Answer 1

ループにコントロールを通じて、あなたがこれを行うことができます：あなたのコードは標準モジュール内に配置されている場合

Dim i As Long 
For i = 1 To 40 
    If Me.Controls("CheckBoxControlName" & i).Value = -1 Then 
     'The control value is True 
    End If 
Next i 

を、変更MeForms!YourFormNameに

Answer 2

"for"ループが必要だと思います。たぶんのようなもの：このようなあなたのチェックボックスを通して

CheckboxVar = " WHERE " 
For i = 1 to 40 
    CheckboxVar = Me.Controls("Checkbox" & i).Value = True & " AND " & checkboxVar 
next 

Answer 3

ループ：

Sub Test() 
    Dim ctrl As Control 

    For Each ctrl In Me.Controls 
     If TypeOf ctrl Is CheckBox Then 
      If ctrl.Value = True Then 
       'do something 
      End If 
     End If 
    Next ctrl 
End Sub 

などあなたのチェックボックス"CheckBox1を"、 "Checkbox2" を、命名。最高の命名法ではなく、面倒です。上記のコードは、フォーム上のすべてのチェックボックスを検出しますが、たとえば、特定のタグを持つすべてのチェックボックスに簡単に制限することができます。