الخاصية "شائبة"

تنطبق على

الكائن "نموذج"

الكائن "تقرير"

يمكنك استخدام الخاصية شائبة لتحديد ما إذا كان تم تعديل السجل الحالي منذ آخر مرة تم حفظه فيها أم لا. على سبيل المثال، قد تحتاج إلى أن تسأل المستخدم عما إذا كانت التغييرات التي تم إجراؤها على سجل محدد مقصودة أم لا، وإذا لم تكن مقصودة، فيمكنك السماح للمستخدم بالانتقال إلى السجل التالي دون حفظ التغييرات. يتم الإعداد باستخدام نوع بيانات منطقي للقراءة/للكتابة.

expression.Dirty

expression مطلوب. تعبير يرجع أحد الكائنات الموجودة في القائمة "تنطبق على".

ملاحظات

تستخدم الخاصية شائبة الإعدادات التالية.

الإعداد

Visual Basic

الوصف

صواب

True

تم تغيير السجل الحالي.

خطأ

False

لم يتم تغيير السجل الحالي.

تتوفر هذه الخاصية في عرض النموذج وطريقة عرض ورقة البيانات.

يمكنك تعيين هذه الخاصية أو قراءتها باستخدام الماكرو أو التعليمة البرمجية لـ Visual Basic for Applications‏ (VBA).

عندما يتم تخزين أحد السجلات، يعين Microsoft Office Access 2007 الخاصية شائبة إلى خطأ. عندما يقوم مستخدم بإجراء تغييرات على سجل ما، يتم تعيين الخاصية إلى صواب.

مثال

في المثال التالي يصبح الزر btnUndo ممكنًا عندما يتم تغيير البيانات. يتم استدعاء الروتين الفرعي UndoEdits‎( ) من الحدث بعد التحديث لعناصر تحكم مربع النص. بالنقر فوق الزر btnUndo تتم استعادة القيمة الأصلية لعنصر التحكم باستخدام الخاصية قيمة_قديمة.

Sub UndoEdits()
If Me.Dirty Then
Me!btnUndo.Enabled = True ' Enable button.
Else
Me!btnUndo.Enabled = False ' Disable button.
End If
End Sub
Sub btnUndo_Click()
Dim ctlC As Control
' For each control.
For Each ctlC in Me.Controls
If ctlC.ControlType = acTextBox Then
' Restore Old Value.
ctlC.Value = ctlC.OldValue
End If
Next ctlC
End Sub
مشاركة Facebook Facebook Twitter Twitter البريد الإلكتروني البريد الإلكتروني

هل كانت المعلومات مفيدة؟

رائع! هل لديك أي ملاحظات أخرى؟

كيف يمكننا تحسين ذلك؟

نشكرك على ملاحظاتك!

×