access vba 控件问题

Private Sub Command4_Click()
'//////////////////////////////////调出预算汇总表（代码不对）///////////////////////////
If Me.Option56.Value = True Then
DoCmd.OpenForm ("预算数据录入汇总（生产）")
End If
If Me.Option58.Value = True Then
MsgBox "本模块尚未开发，敬请期待！"
End If
End Sub
这个代码的 If Me.Option56.Value = True Then 总是报错说 您输入的表达式没有值。不知道怎么回事，求大神指教 ps option56 是 选项按钮

1）Option56和Option58如果是在同一个选项组内，那么就需要引用选项组的值做判断。比如同为于frame1中，选项值分别为1、2，则：
Private Sub Command4_Click()
If Me.frame1.Value = 1 Then
DoCmd.OpenForm ("预算数据录入汇总（生产）")
else
MsgBox "本模块尚未开发，敬请期待！"
End If
End Sub
2）如果并非位于同一个选项组内，建议你将选项按钮更改为复选框。

如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息，可以点下面链接进行举报！

点此我要举报以上问答信息