如何让连续窗体中满足条件的弹窗仅首次触发时打开？

你需要添加一个模块级的布尔变量来记录弹窗是否已经打开过，以此确保只有首次满足条件时才触发窗体打开操作。具体修改步骤如下：

1. 添加模块级变量声明 #

在窗体的通用声明段（所有事件过程代码之外）添加变量，用于标记弹窗状态：

Dim hasOpenedInfoForm As Boolean ' 记录frminfo是否已打开

2. 修改ProductID_AfterUpdate事件过程 #

更新原代码，加入状态判断逻辑：

Private Sub ProductID_AfterUpdate()
    ' 仅当ProductID为1/2，且弹窗从未打开过时执行操作
    If (Me.ProductID = 1 Or Me.ProductID = 2) And Not hasOpenedInfoForm Then
        DoCmd.OpenForm "frminfo"
        hasOpenedInfoForm = True ' 标记弹窗已打开，避免重复触发
    End If
End Sub

可选：重置状态（窗体关闭时） #

如果需要在窗体关闭后重置标记，下次打开窗体时能重新触发弹窗，可添加窗体关闭事件：

Private Sub Form_Close()
    hasOpenedInfoForm = False ' 关闭窗体时重置标记
End Sub

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