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

ينطبق على

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

التعبير.AllowEdits

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

الإعداد

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

يمكنك تعيين الخاصية 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 وAdditions و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