需要一个弹出窗口 window 以连续形式仅第一次打开

Question

I have a continuous form with a combobox with the control source of ProductID.

I have the following vba code:

Private Sub ProductID_AfterUpdate()
if (productID=1 or productID=2) then
docmd.openform "frminfo"
end if
End Sub

I want that popup window ("frminfo") to open ONLY the first time the condition is true. How should I modify this?

Answer 1

Declare a boolean public variable or TempVar or use an UNBOUND textbox and set to True when the condition is met. Include value of whichever in the If condition.

Option Compare Database
Option Explicit
Public booTest As Boolean
____________________________________________________________________

Private Sub ProductID_AfterUpdate()
If (productID=1 Or productID=2) And booTest = False Then
    DoDmd.OpenForm "frminfo"
    booTest = True
End If
End Sub