如何判断current事件是如何触发的？

假如窗体绑定的表有一个自动编号字段id，且窗体也有一个叫做id的控件，以下代码可以满足要求：

Private Sub Form_Current()
    If id <> Tag Then
        Tag = "选择变化"
        Debug.Print Now(); "选择记录发生current事件"
    Else
        Debug.Print Now(); "打开窗体发生current事件"
    End If
End Sub
Private Sub Form_Load()
    Me.Tag = id
End Sub