在记录更改上运行VBA，而不是打开Access 2013

Question

我有两个宏我的标准。

• 当用户切换记录
• 它应该运行记录是否被修改

On Current的作品，但它也运行在表单打开它应该只运行。 After Update仅在字段更改时运行。有没有符合我的标准的事件？

Answer 1

您可以使用一个静态变量：

Private Sub Form_Current() 

    Static Opened As Boolean 

    If Opened = False 
     ' Form opens. 
     Opened = True 
    Else 
     ' Do stuff. 
    End If 

End Sub 

为了操纵了此前的纪录：

Private Sub Form_Current() 

    Static Opened As Boolean 
    Static LastId As Long 

    If Opened = False 
     ' Form opens. 
     Opened = True 
    ElseIf LastId <> 0 Then 
     ' Do stuff using LastId as the Id.    
    End If 

    ' Save current Id. 
    LastId = Nz(Me!Id.Value, 0) 

End Sub