خاصية "السماح_بالتحرير"

ينطبق على

عنصر نموذج

يمكنك استخدام الخاصية AllowEdits لتحديد ما إذا كان يمكن للمستخدم تحرير السجلات المحفوظة عند استخدام نموذج. قيمة منطقية للقراءة/كتابة.

التعبير.AllowEdits

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

الإعداد

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

الإعداد	Visual Basic	الوصف
Yes	True	(افتراضي) يمكن للمستخدم تحرير سجلات محفوظة.
لا	False	يمكن للمستخدم تحرير سجلات محفوظة.

      

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

ملاحظات

يمكنك استخدام الخاصية AllowEdits لمنع إجراء تغييرات على البيانات الموجودة التي يتم عرضها بواسطة نموذج. إذا كنت تريد منع إجراء تغييرات على البيانات في عنصر تحكم معين، فاستخدم الخاصية Enabled أو Locked.

إذا كنت تريد منع إجراء تغييرات على سجلات موجودة (جعل النموذج للقراءة فقط)، فقم بتعيين الخصائص AllowAdditions أو AllowDeletions أو AllowEdits إلى القيمة No. يمكنك أيضاً جعل السجلات للقراءة فقط من خلال تعيين الخاصية RecordsetType إلى Snapshot.

يؤدي تغيير قيمة حقل برمجياً إلى أن يكون السجل الحالي قابلاً للتحرير، بصرف النظر عن إعداد الخاصية AllowEdits. إذا كنت تريد منع المستخدم من إجراء تغييرات على سجل (يتم تعيين AllowEdits إلى No) يلزم تحريره برمجياً، احفظ السجل بعد أي تغييرات برمجية؛ سيتم الالتزام بإعداد الخاصية AllowEdits مرة أخرى بعد أن يتم حفظ أي تغييرات غير محفوظة في السجل الحالي.

• AllowEdits — Yes
• AllowDeletions — Yes
• AllowAdditions — Yes
• DataEntry — No

لمنع الإجراء OpenForm من تجاوز أي من إعدادات الخاصية الموجودة هذه، تجاهل إعداد الوسيطة Data Mode وبالتالي سيستخدم Access إعدادات الخاصية المعرّفة بواسطة النموذج.

مثال

يفحص المثال التالي الخاصية ControlType لكافة عناصر تحكم في نموذج. لكل تحكم في التسمية ومربع النص، يقوم الإجراء بالتبديل بين خاصية SpecialEffect لعناصر التحكم هذه. عند تعيين الخاصية SpecialEffect لعناصر تحكم التسمية إلى Shadowed وتعيين الخاصية SpecialEffect الخاصة بعناصر تحكم مربع النص إلى Normal ويتم تعيين خصائص AllowAdditions و AllowDeletions و AllowEdits إلى True، intCanEdit يتم تبديل المتغير للسماح بتحرير البيانات الأساسية.

Sub ToggleControl(frm As Form)
    Dim ctl As Control
    Dim intI As Integer, intCanEdit As Integer
    Const conTransparent = 0
    Const conWhite = 16777215
    For Each ctl in frm.Controls
        With ctl
            Select Case .ControlType
                Case acLabel
                    If .SpecialEffect = acEffectShadow Then
                        .SpecialEffect = acEffectNormal
                        .BorderStyle = conTransparent
                        intCanEdit = True
                    Else
                        .SpecialEffect = acEffectShadow
                        intCanEdit = False
                    End If
                Case acTextBox
                    If .SpecialEffect = acEffectNormal Then
                        .SpecialEffect = acEffectSunken
                        .BackColor = conWhite
                    Else
                        .SpecialEffect = acEffectNormal
                        .BackColor = frm.Detail.BackColor
                    End If
            End Select
        End With
    Next ctl
    If intCanEdit = IFalse Then
        With frm
            .AllowAdditions = False
            .AllowDeletions = False
            .AllowEdits = False
        End With
    Else
        With frm
            .AllowAdditions = True
            .AllowDeletions = True
            .AllowEdits = True
        End With
    End If
End Sub