خاصية "السماح_بالإضافة"

ينطبق على

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

expression.AllowAdditions

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

الإعداد

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

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

ملاحظات

قم بتعيين الخاصية AllowAdditions على القيمة No للسماح للمستخدمين بعرض أو تحرير سجلات موجودة وليست إضافة سجلات جديدة.

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

إذا كنت تريد فتح نموذج لإدخال البيانات فقط، قم بتعيين الخاصية DataEntryYes.

عند تعيين الخاصية AllowAdditions على القيمة No، لن يصبح الأمر سجل جديد ضمن سجلات في علامة التبويب بيانات.

• 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