Access窗体前置问题：已打开窗体无法切换至前台的技术问询

首先检查你的IsOpen函数是否正确，很多自定义的该函数存在判断逻辑漏洞，会导致误判窗体状态。正确的窗体打开状态判断函数需遍历Forms集合：

Function IsOpen(strFormName As String) As Boolean
    IsOpen = False
    Dim objForm As Object
    For Each objForm In Forms
        If objForm.Name = strFormName Then
            IsOpen = True
            Exit For
        End If
    Next objForm
End Function

你的原有代码失效、调用Show/BringToFront报错的原因：

• 单独调用Forms(FormName).SetFocus可能无效，因为窗体可能处于后台或最小化状态，Access无法直接将焦点设置到未被选中的窗体
• Show和BringToFront并非Access窗体的内置方法，这是VB窗体的专属API，直接调用会触发对象定义错误（2465）

替换为以下代码即可实现已打开窗体前置的需求：

If IsOpen(FormName) Then
    ' 先选中目标窗体，确保Access能定位到该对象
    DoCmd.SelectObject acForm, FormName, True
    
    ' 如果窗体处于隐藏状态，先显示它
    If Not Forms(FormName).Visible Then
        Forms(FormName).Visible = True
    End If
    
    ' 如果窗体最小化，恢复正常显示状态
    If Forms(FormName).WindowState = acMinimized Then
        DoCmd.Restore
    End If
    
    ' 最后设置焦点到窗体
    Forms(FormName).SetFocus
    GoTo MasterListFilter_Exit
End If

关键说明 #

• DoCmd.SelectObject是Access中定位窗体的关键操作，它会让Access将目标窗体纳入当前操作上下文
• 先判断窗体的Visible属性和WindowState状态，避免无效操作
• 不要混用VB窗体的方法操作Access窗体，Access有独立的对象模型和操作语法

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