تخطي إلى المحتوى الرئيسي
الدعم
تسجيل الدخول باستخدام حساب Microsoft
تسجيل الدخول أو إنشاء حساب.
مرحباً،
تحديد استخدام حساب مختلف!
لديك حسابات متعددة
اختر الحساب الذي تريد تسجيل الدخول باستخدامه.

ينطبق على

عنصر Form

عنصر Report

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

expression.Dirty

التعبير Required. هو تعبير يقوم بإرجاع أحد العناصر الموجودة في القائمة "ينطبق على".

ملاحظات

تستخدم الخاصية ‏Dirty‏ الإعدادات التالية.

الإعداد

Visual Basic

الوصف

True

‏True‏

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

‏False‏

‏False‏

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

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

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

عندما يتم حفظ سجل، يقوم Microsoft Office Access 2007 بتعيين الخاصية ‏Dirty‏ إلى ‏False‏. عندما يقوم مستخدم بإجراء تغييرات على سجل، يتم تعيين الخاصية إلى ‏True‏.

مثال

يقوم المثال التالي بتمكين زر btnUndo عند تغيير البيانات. يتم استدعاء الروتين الفرعي UndoEdits( ) من حدث ‏AfterUpdate‏ لعناصر تحكم مربع النص. يؤدي النقر فوق زر btnUndo الممكّن إلى استعادة القيمة الأصلية لعنصر التحكم باستخدام الخاصية ‏‎‎OldValue‏‎‎.

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

هل تحتاج إلى مزيد من المساعدة؟

الخروج من الخيارات إضافية؟

استكشف مزايا الاشتراك، واستعرض الدورات التدريبية، وتعرف على كيفية تأمين جهازك، والمزيد.

تساعدك المجتمعات على طرح الأسئلة والإجابة عليها، وتقديم الملاحظات، وسماعها من الخبراء ذوي الاطلاع الواسع.

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

ما مدى رضاك عن جودة اللغة؟
ما الذي أثّر في تجربتك؟
بالضغط على "إرسال"، سيتم استخدام ملاحظاتك لتحسين منتجات Microsoft وخدماتها. سيتمكن مسؤول تكنولوجيا المعلومات لديك من جمع هذه البيانات. بيان الخصوصية.

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

×