Access窗体：选不同组合框点击Search打开对应窗体的实现咨询

嘿，咱先直接给你结论：这段代码的核心思路没问题，但有个关键漏洞，没法直接实现你要的功能——别急，我给你拆解得明明白白：

先看现有代码的实现逻辑 #

先把你的代码贴出来方便分析：

Private Sub Commande6_Click()
    Select Case ActiveControl.Name
        Case "c1"
            DoCmd.OpenForm "FORM1"
        Case "c2"
            DoCmd.OpenForm "FORM2"
        Case Else
            'traitement
    End Select
End Sub

这段代码的逻辑链条是：

• 当你点击名为Commande6的Search按钮时，触发这个点击事件
• 通过ActiveControl.Name获取当前拥有焦点的控件名称
• 根据控件名称分支执行：如果是c1就打开FORM1，是c2就打开FORM2，其他情况执行预留的处理代码

为什么现有代码没法满足需求？ #

这里藏了个容易踩的坑：当你点击Search按钮的瞬间，焦点会立刻转移到这个按钮上，所以ActiveControl.Name拿到的会是Commande6（按钮自己的名字），而不是你之前选择的c1或c2！这样代码永远只会走到Case Else分支，根本打不开你想要的窗体。

修正方案（让代码真正符合你的需求） #

要实现“选完c1/c2后点Search打开对应窗体”，我们需要换个方式记录用户的选择，这里给你两种靠谱的方案：

方案1：记录最后激活的组合框 #

我们可以给c1和c2添加GotFocus事件，用一个模块级变量记住用户最后点击的组合框：

' 在窗体模块的最顶部声明一个模块级变量（别放在事件里）
Private lastActiveCombo As String

' c1的GotFocus事件（双击c1就能添加这个事件）
Private Sub c1_GotFocus()
    lastActiveCombo = Me.c1.Name
End Sub

' c2的GotFocus事件
Private Sub c2_GotFocus()
    lastActiveCombo = Me.c2.Name
End Sub

' 修正后的Search按钮点击事件
Private Sub Commande6_Click()
    Select Case lastActiveCombo
        Case "c1"
            ' 额外加个空值判断，避免用户没选值就点按钮
            If Not IsNull(Me.c1.Value) Then
                DoCmd.OpenForm "FORM1"
            Else
                MsgBox "请先在c1中选择一个值哦！"
            End If
        Case "c2"
            If Not IsNull(Me.c2.Value) Then
                DoCmd.OpenForm "FORM2"
            Else
                MsgBox "请先在c2中选择一个值哦！"
            End If
        Case Else
            MsgBox "请先点击c1或c2选择对应选项！"
    End Select
End Sub

这个方案的逻辑很直观：用户点哪个组合框，就把这个框的名字记下来，点Search时就根据记录的名字打开对应窗体，还加了友好的提示，体验更好。

方案2：直接判断组合框的选中状态 #

如果你的场景里用户只会在c1或c2中选一个（不会同时选两个），那这个更简洁的方案更适合你：

Private Sub Commande6_Click()
    If Not IsNull(Me.c1.Value) Then
        DoCmd.OpenForm "FORM1"
    ElseIf Not IsNull(Me.c2.Value) Then
        DoCmd.OpenForm "FORM2"
    Else
        MsgBox "请选择c1或c2中的一个值再搜索！"
    End If
End Sub

直接判断哪个组合框有选中值，就打开对应的窗体，简单粗暴又有效。

原代码的可行性总结 #

原代码本身没有语法错误，能正常运行，但因为ActiveControl的焦点特性，完全没法实现你想要的功能。只要按照上面的任意一个方案修正，就能完美达成需求啦！

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