Microsoft Access (VBA) 的非阻塞“toast”通知

使用 Microsoft Access 的 VBA 编程语言，我们可以实现非阻塞的“toast”通知功能。这种通知方式以轻量级的方式向用户展示提示信息，而不会中断用户的操作。在本文中，我们将探讨如何使用 VBA 编写代码来实现这一功能，并提供一个案例来演示其应用。

vba
Option Compare Database
Option Explicit
Sub ShowToastNotification(message As String)
    Dim toastForm As Form
    
    Set toastForm = CreateForm
    
    With toastForm
        .Caption = "非阻塞通知"
        .RecordSource = "SELECT * FROM tblNotifications"
        .Visible = True
        .Move (Screen.Width - .Width) - 10, Screen.Height - .Height - 10
        .Controls("txtMessage").Value = message
    End With
    
    Set toastForm = Nothing
End Sub

vba
Private Sub txtStatus_AfterUpdate()
    Dim message As String
    
    If Me.txtStatus.Value = "已发货" Then
        message = "您的订单已经发货，请注意查收。"
    ElseIf Me.txtStatus.Value = "已完成" Then
        message = "您的订单已完成，感谢您的购买。"
    End If
    
    If Len(message) > 0 Then
        ShowToastNotification message
    End If
End Sub