ينطبق على
عنصر Form |
يمكنك استخدام الخاصية AllowAdditions لتحديد ما إذا كان يمكن لمستخدم إضافة سجل عند استخدام نموذج. قيمة منطقية للقراءة/كتابة.
expression.AllowAdditions
التعبير Required. تعبير يُرجع أحد العناصر في قائمة "ينطبق على".
الإعداد
تستخدم الخاصية AllowAdditions الإعدادين التاليين.
الإعداد |
Visual Basic |
الوصف |
Yes |
True |
(افتراضي) يمكن للمستخدم إضافة سجلات جديدة. |
No |
False |
لا يمكن للمستخدم إضافة سجلات جديدة. |
يمكنك تعيين الخاصية AllowAdditions باستخدام صفحة الخصائص للنموذج أو الماكرو أو التعليمة البرمجية لـ Visual Basic for Applications (VBA).
ملاحظات
قم بتعيين الخاصية AllowAdditions على القيمة No للسماح للمستخدمين بعرض أو تحرير سجلات موجودة وليست إضافة سجلات جديدة.
إذا كنت تريد منع إجراء تغييرات على سجلات موجودة (اجعل النموذج للقراءة فقط)، قم بتعيين الخصائص AllowAdditions أو AllowDeletions أو AllowEdits إلى القيمة No. يمكنك أيضا جعل السجلات للقراءة فقط بتعيين الخاصية RecordsetType إلى Snapshot.
إذا كنت تريد فتح نموذج لإدخال البيانات فقط، قم بتعيين الخاصية DataEntryYes.
عند تعيين الخاصية AllowAdditions على القيمة No، لن يصبح الأمر سجل جديد ضمن سجلات في علامة التبويب بيانات.
ملاحظة: عند استخدام الوسيطة Data Mode للإجراء OpenForm، فسيقوم Microsoft Office Access 2007 بتجاوز عدد من إعدادات خصائص النموذج. إذا تم تعيين الوسيطة Data Mode للإجراء OpenForm إلى Edit، فسيفتح Access النموذج باستخدام الإعدادات الخصائص التالية:
-
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