獲取vba訪問中CheckBox CheckBox的值？

Question

好吧，我在Access窗體中有幾個「複選框」。我所要做的就是獲取複選框的Checked Value。

通過執行Me.Check271.Value它返回我0或-1。但是

我想得到尊重標籤的選中CheckBox。

在圖片下面我想MSGBOX被檢查的值：

我試圖爲：

MSGBOX 「Me.Check271.Parent」

非常感謝

Answer 1

簡而言之，以下將起作用：

Check271.Controls.Item(0).Caption 

詳細版本：TextBoxes，ComboBoxes，ListBoxes，CheckBoxes在其控件集合（附加標籤）中最多有1個項目，但是如果標籤未附加，那麼它們甚至不會擁有該項目。控件（0）將引發錯誤。

以下將顯示在「檢查」複選框

Dim ctl   As Control 
Dim blnChecked As Boolean 
Dim strChecked As String 

For Each ctl In Me.Section("Detail").Controls 
    If ctl.ControlType = acCheckBox Then 
     If ctl.Enabled = True Then 
      Debug.Print ctl.Name & vbTab & ctl.Value 
      If ctl.Value = vbTrue Then 
       blnChecked = True 
       strChecked = strChecked & ctl.Name & "; " 
      End If 
     End If 
    End If 
Next ctl 
If blnChecked = True Then 
    MsgBox "The following CheckBoxes were checked: " & strChecked, vbOKOnly, "Checked Boxes" 
End If