MS Access 2010：如何通过切换按钮值判定打开表单？代码问题求助

嘿，Chas，我看了你的代码，发现两个关键问题导致不管选择什么切换按钮组合，都会打开「Create New Schedule」表单，咱们一步步来修复：

1. 先补上缺失的语法闭合 #

你的If语句最后少了End If，这会导致VBA编译出错（可能你粘贴时漏了？），先把这个基础问题解决：

Public Function Select_Form()
 Dim PolForm As Integer
 Dim SchAction As Integer
 PolForm = Forms("Home").Toggle39.OptionValue
 SchAction = Forms("Home").Toggle47.OptionValue
 If PolForm = 1 And SchAction = 1 Then
 DoCmd.OpenForm ("Create New Schedule")
 Else
 MsgBox ("Please select a valid combination of Policy Form and Action")
 End If ' 补上这个End If，闭合If块
End Function

2. 核心问题：切换按钮的属性用错了 #

这是导致逻辑失效的关键：单个切换按钮没有OptionValue属性——OptionValue是给「选项组（Option Group）」里的选项按钮用的。单个切换按钮的选中状态，应该用Value属性，它返回的是布尔值（True表示选中，False表示未选中），不是整数。

如果你的两个切换按钮是独立的（不属于任何选项组），修改后的代码应该是这样：

Public Function Select_Form()
 Dim PolForm As Boolean
 Dim SchAction As Boolean
 ' 获取单个切换按钮的实际选中状态
 PolForm = Forms("Home").Toggle39.Value
 SchAction = Forms("Home").Toggle47.Value
 
 ' 根据布尔组合判断跳转
 If PolForm = True And SchAction = True Then
 DoCmd.OpenForm "Create New Schedule" ' 这里的括号可以省略，不影响功能
 Else
 MsgBox "Please select a valid combination of Policy Form and Action", vbExclamation, "Invalid Selection"
 End If
End Function

要是你的切换按钮是在选项组里（比如每个选项组包含多个切换按钮），那你应该获取选项组控件的Value，而不是单个切换按钮的OptionValue。比如假设Toggle39属于名为Frame_PolicyForm的选项组，那应该写：

PolForm = Forms("Home").Frame_PolicyForm.Value ' 取选项组的当前值

3. 后续扩展多组合的建议 #

等你要支持更多切换按钮组合时，用Select Case会让代码更清晰易维护：

Public Function Select_Form()
 Dim PolForm As Boolean
 Dim SchAction As Boolean
 PolForm = Forms("Home").Toggle39.Value
 SchAction = Forms("Home").Toggle47.Value
 
 Select Case True
 Case PolForm And SchAction
 DoCmd.OpenForm "Create New Schedule"
 Case PolForm And Not SchAction
 DoCmd.OpenForm "Your Second Form" ' 对应其他有效组合
 Case Not PolForm And SchAction
 DoCmd.OpenForm "Your Third Form"
 Case Else
 MsgBox "Please select a valid combination of Policy Form and Action", vbExclamation, "Invalid Selection"
 End Select
End Function

调试小技巧 #

要是还是不确定切换按钮的取值，可以临时加个弹窗看看实际拿到的值：

MsgBox "PolForm状态: " & PolForm & vbCrLf & "SchAction状态: " & SchAction

这样就能快速确认你获取的状态是不是符合预期啦。

内容的提问来源于stack exchange，提问作者Chas_C