【Access】チェックボックスの値を取得する


チェックボックスの値を取得する方法です。

たとえば、このようなフォームにチェックボックス(checkBox1~3)とボタン(buttonOrder)が貼り付けてあるとします。


このボタンをクリックしたときに、チェックが入っているチェックボックスのラベルのキャプションをメッセージボックスに表示してみます。
Private Sub buttonOrder_Click()

    Dim msg As String
    
    If Me.checkBox1.Value Then
        
        msg = Controls(Me.checkBox1.LabelName).Caption & vbCrLf
        
    End If
    
    If Me.checkBox2.Value Then
    
        msg = msg & Controls(Me.checkBox2.LabelName).Caption & vbCrLf
        
    End If
    
    If Me.checkBox3.Value Then
    
        msg = msg & Controls(Me.checkBox3.LabelName).Caption
        
    End If
    
    MsgBox msg
    
End Sub
チェックボックスの値は、Valueプロパティで取得することが出来ます。チェックが入っている場合はTrue、入っていない場合はFalseになります。


ちなみに各チェックボックスはフォーム読み込み時にオフにしています。
Private Sub Form_Load()

    '初期設定(OFF)
    Me.checkBox1.Value = False
    Me.checkBox2.Value = False
    Me.checkBox3.Value = False
    
End Sub


実行結果


注文ボタンをクリックすると、










comments powered by Disqus