ویژگی Dirty

از ویژگی Dirty برای تعیین انجام ویرایش یا عدم ویرایش رکورد جاری از زمان آخرین ذخیره سازی استفاده می شود . برای مثال ، ممکن است از کاربر بخواهید که تغییراتی در رکورد صورت پذیرفته یا خیر ، اگر نه ، به کاربر اجازه دهید بدون ذخیره تغییرات به رکورد بعدی برود . از نوع Boolean و خواندنی و نوشتنی

البته رویه زیر در رویداد After Update تکست باکس فراخوان می شود و اگر تغییر صورت گرفت باتن با نام BtnUndo فعال می شود و ویژگی Value تکست باکس به OldValue تبدیل میشود . البته ویژگی AllowEdition برای جلوگیری از ویرایش ( برگشت به حالت OldValue ) در فرم وجود دارد.

Sub UndoEdits()
    If Me.Dirty Then
       Me!btnUndo.Enabled = True
         ' Enable button
    Else
      Me!btnUndo.Enabled = False
        ' Disable button
    End If
End Sub

Tracking

varOld = Screen.ActiveControl.OldValue 

varNew = Screen.ActiveControl.Value 

strFormName = Screen.ActiveForm.Name strControlName = Screen.ActiveControl.Name 

Set dbs = CurrentDb() 

Set rst = dbs.TableDefs("tblDataChanges").OpenRecordset