Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/ms-access/4.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181

Warning: file_get_contents(/data/phpspider/zhask/data//catemap/8/xcode/7.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Ms access 选择选项组中的选项按钮_Ms Access_Vba - Fatal编程技术网

Ms access 选择选项组中的选项按钮

Ms access 选择选项组中的选项按钮,ms-access,vba,Ms Access,Vba,我在选项组中有4个选项按钮,其中一个被选中,然后单击按钮确定,但我得到的错误是我的代码: Private Sub btnOk_Click() If opt1 = True Then MsgBox "Success" End if End Sub 将选项按钮放入选项组,然后按如下方式编写代码: Select Case Me.fTimePeriod Case Is = 1: sTime = "Option 1 Selected" Case Is = 2: sTime =

我在选项组中有4个选项按钮,其中一个被选中,然后单击按钮确定,但我得到的错误是我的代码:

Private Sub btnOk_Click()

If opt1 = True Then

MsgBox "Success"

End if

End Sub

将选项按钮放入选项组,然后按如下方式编写代码:

Select Case Me.fTimePeriod

    Case Is = 1: sTime = "Option 1 Selected"
    Case Is = 2: sTime = "Option 2 Selected"
    Case Is = Null: sTime = "Nothing Selected"

End Select

Msgbox sTime

fTimePeriod
是选项组的名称。案例1是第一个选项,案例2是第二个选项。添加更多案例陈述以获得更多选项。

您在哪一行出现错误,错误说明了什么?您可能必须将选项按钮称为
yes/no
,而不是
true/false
。另外,您可能需要使用
me.opt1
,您几乎不需要阅读选项按钮本身。每个按钮都有一个
选项值
,选项组被分配所选选项的值。这是您通常使用的值。另外,您使用的是哪个程序?Excel/Access/Word/Outlook-请删除不相关的标记。