如何在MS Access中打开无额外任务栏窗口的定时消息框

这个问题我之前也踩过坑！WshShell.PopUp虽然能实现定时关闭，但那个任务栏临时窗口确实挺糟心的。给你两个靠谱的解决方案，都能搞定无任务栏窗口的定时消息框：

这个方法是在PopUp窗口创建后，立刻通过Windows API找到它并隐藏任务栏图标。因为PopUp是阻塞式调用，所以我们需要用Application.OnTime来延迟执行隐藏操作：

首先在模块里声明API（兼容32/64位Office）：

Private Declare PtrSafe Function FindWindow Lib "user32" Alias "FindWindowA" (ByVal lpClassName As String, ByVal lpWindowName As String) As LongPtr
Private Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As LongPtr, ByVal nCmdShow As Long) As Long

Const SW_HIDE = 0

然后修改你的定时消息框代码：

Public Sub Timed_Box(dur As Long)
    Dim WSH As IWshRuntimeLibrary.WshShell
    Dim Res As Long
    
    Set WSH = New IWshRuntimeLibrary.WshShell
    
    ' 提前设置100毫秒后执行隐藏操作（给PopUp足够时间创建窗口）
    Application.OnTime Now + TimeValue("00:00:00.1"), "HidePopUpWindow"
    
    ' 调用PopUp，这行代码会阻塞直到弹窗关闭或超时
    Res = WSH.PopUp(Text:="Record Updated", secondstowait:=dur, _
        Title:="Update", Type:=vbOKOnly)
        
    ' 清理定时器，防止弹窗提前关闭时定时器还触发
    On Error Resume Next
    Application.OnTime Now + TimeValue("00:00:00.1"), "HidePopUpWindow", , False
    On Error GoTo 0
End Sub

Private Sub HidePopUpWindow()
    Dim hwnd As LongPtr
    ' 通过弹窗标题找到窗口句柄（要和PopUp的Title参数完全一致）
    hwnd = FindWindow(vbNullString, "Update")
    If hwnd <> 0 Then
        ' 隐藏窗口的任务栏图标
        ShowWindow hwnd, SW_HIDE
    End If
End Sub

注意：确保你的项目已经引用了Windows Script Host Object Model（和原来的WshShell引用一致）。这个方法能快速改造现有代码，但依赖WshShell，偶尔可能因为窗口创建速度慢导致隐藏不及时（概率很低）。

这个方法完全不依赖WshShell，自己做一个模拟MsgBox的窗体，默认就不会在任务栏显示，还能自定义样式，灵活性拉满：

1. 新建一个用户窗体，命名为frmTimedMsgBox
2. 在窗体上添加：
   • 一个Label控件（用来显示消息文本，可调整大小和字体）
   • 一个CommandButton（可选的「确定」按钮，方便用户手动关闭）
   • 一个Timer控件（用来计时）
3. 设置窗体属性：
   • ShowModal = True（模态弹窗，和MsgBox一致）
   • Caption = "Update"（弹窗标题）
   • StartUpPosition = 2（屏幕中心显示）
   • BorderStyle = 1（固定单边框，防止用户拖拽调整大小）
   • ControlBox = False（可去掉关闭按钮，也可保留）
   • ShowInTaskbar = False（默认就是False，确保任务栏不显示）

然后编写窗体代码：

Private m_duration As Long ' 存储弹窗持续时间（秒）

' 对外的调用方法，传入消息、标题、持续时间
Public Sub ShowTimedMessage(message As String, title As String, duration As Long)
    Me.Caption = title
    Me.Label1.Caption = message
    m_duration = duration
    Me.Timer1.Interval = 1000 ' 每秒触发一次定时器
    Me.Timer1.Enabled = True
    Me.Show vbModal
End Sub

' 定时器触发事件，计时到点就关闭窗体
Private Sub Timer1_Timer()
    Static elapsedSeconds As Long
    elapsedSeconds = elapsedSeconds + 1
    
    If elapsedSeconds >= m_duration Then
        Me.Timer1.Enabled = False
        Me.Hide
        Unload Me
    End If
End Sub

' 手动点击确定按钮关闭弹窗
Private Sub CommandButton1_Click()
    Me.Timer1.Enabled = False
    Me.Hide
    Unload Me
End Sub

最后在你的保存按钮事件里调用：

Private Sub btnSave_Click()
    ' 先执行你的保存逻辑...
    
    ' 显示定时消息框，1秒后自动关闭
    Dim frm As frmTimedMsgBox
    Set frm = New frmTimedMsgBox
    frm.ShowTimedMessage "Record Updated", "Update", 1
    Set frm = Nothing
End Sub

这个方法完全可控，没有任务栏窗口的问题，还能根据需求调整弹窗的样式（比如换颜色、加图标），是更稳妥的方案。

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