Private Sub StatusID_AfterUpdate()
    If Me.Dirty Then
    Me.Dirty = False
End If
End Sub

Private Sub StatusID_AfterUpdate()
    DoCmd.RunCommand acCmdSaveRecord
End Sub

Private Sub StatusID_AfterUpdate()
    Forms!ProjectList.Refresh
End Sub