加载表单且无更改后，访问表单在单击按钮时变得肮脏

Question

在检查下一条记录之前，我正在检查一条记录是否脏，并显示一个弹出窗口，提示用户保存或删除更改。

如果我加载Access表单并且不单击子表单，则“ Next Record”按钮的单击事件会将表单的状态更改为Me.Dirty = True。

当用户未更改任何值时，这将弹出弹出窗口，从而破坏了我的逻辑。我该如何避免这种行为？

Private Sub cmdNxtRcd_Click()
    On Error GoTo Err_cmdNxtRcd_Click

    Me.subfrmLoadEntry_Maintain.Form.afe_Click
    If Me.Dirty = True Then
        MsgBox "Please Save or Cancel Changes"

    ElseIf Me.subfrmLoadEntry_Maintain.Form.Dirty = True Then
        MsgBox "Please Save or Cancel Changes sub"

    Else

        DoCmd.GoToRecord , , acNext
    End If

    Exit_cmdNxtRcd_Click:
    Exit Sub

    Err_cmdNxtRcd_Click:
    MsgBox Err.description
    Resume Exit_cmdNxtRcd_Click

End Sub