vba - 从一组 OptionGroup 构建一个 SQL 字符串

Question

我试图解决这个问题，我做的越多，我脑海中的迷宫就越多。

设置场景： 我有 12 个选项组。每个都带有是/否单选按钮。当用户单击选项时，我想将信息存储在函数中（函数对我来说是新的）。然后我想在他们每次选择一个选项时执行一些 SQL，这将返回 X 数量的记录，这些记录显示在标签中。

我尝试了一些东西，但这就是我现在所拥有的。

当前代码：

Function getValues(grp As OptionGroup)

Select Case grp.Value 'Option group name me.liveInUK
    Case 1
        OptionValue = "columnName = Yes"
    Case 2
        OptionValue = "columnName = No"
End Select


Select Case grp.Value 'Option group name me.drivingLicence 
    Case 1
        OptionValue = OptionValue & "columnName2 = Yes"
    Case 2
        OptionValue = OptionValue & "columnName2 = No"
End Select

sql = "SELECT count(*) FROM table WHERE OptionValue"

rs.MoveFirst
profileAccountsValueabel.Caption = rs.Fields
  
Set rs = Nothing

End Function

我知道这实际上不会运行-我想尝试了解的是，每次单击单选按钮时，如何为所有 12 个选项组更新正确的值。

非常感谢任何正确方向的指导

标签： vbams-accessms-access-2010