PreviousControl

Screen.PreviousControl.Name

در کد زیر اگر کنترل تکست باکس یا کمبو باکس باشد و کنترل سورس آن خالی نباشد پراپرتی به False تنظیم میشود ( منظور پراپرتی Dirty ) ترتیب هم نزولی میشود.

With Screen.PreviousControl

If (.ControlType = acTextBox) or (.ControlType = acComboBox) Then

If (.ControlSource <> vbnullstring) and not (.ControlSource Like

"=*") Then

If Me.Dirty Then

Me.Dirty = False

End IF

Me.OrderBy = .ControlSource & " DESC"

Me.OrderByOn = True

End If

End If

End With

زمانیکه رکوردی ذخیره میشود مایکروسافت اکسس پراپرتی Dirty را به False تنظیم میکند.زمانیکه کاربری تغییراتی را به رکوردی ایجاد میکند پراپرتی به True تنظیم می شود.