המאפיין AllowAdditions

חל על

אובייקט Form

באפשרותך להשתמש במאפיין AllowAdditions כדי לציין אם משתמש יוכל להוסיף רשומה בעת שימוש ב- טופס. קריאה/כתיבה Boolean.

ביטוי.AllowAdditions

ביטוי נדרש. ביטוי המחזיר אחד מהאובייקטים ברשימה 'חל על'.

הגדרה

המאפיין AllowAdditions משתמש בהגדרות הבאות.

הגדרה

Visual Basic

תיאור

כן

True

(ברירת מחדל) המשתמש יכול להוסיף רשומות חדשות.

לא

False

למשתמש אין אפשרות להוסיף רשומות חדשות.


באפשרותך להגדיר את המאפיין AllowAdditions על-ידי שימוש ב- גליון מאפיינים של הטופס, ב- מאקרו, או בקוד Visual Basic for Applications‏ (VBA).

הערות

הגדר את המאפיין AllowAdditions ללא כדי לאפשר למשתמשים להציג או לערוך רשומות קיימות, אך לא להוסיף רשומות חדשות.

אם ברצונך למנוע שינויים ברשומות קיימות (להפוך טופס לקריאה בלבד), הגדר את המאפיינים AllowAdditions‏, AllowDeletions, ו- AllowEdits ללא. באפשרותך גם להפוך רשומות לקריאה בלבד על-ידי הגדרת המאפיין RecordsetType לתמונה.

אם ברצונך לפתוח טופס להזנת נתונים בלבד, הגדר את המאפיין הזנת נתונים של הטופס לכן.

כאשר המאפיין AllowAdditions מוגדר ללא, הפקודה רשומה חדשה תחת רשומות בכרטיסיה נתונים אינה זמינה.

הערה: כאשר ארגומנט מצב הנתונים של הפעולה OpenForm נמצא בשימוש, Microsoft Office Access 2007 יעקוף מספר של הגדרות מאפיין טופס. אם ארגומנט מצב הנתונים של הפעולה OpenForm מוגדר לעריכה, Access יפתח את הטופס עם הגדרות המאפיינים הבאות:

  • AllowEdits — כן

  • AllowDeletions — כן

  • AllowAdditions — כן

  • DataEntry — כן

כדי למנוע מפעולת OpenForm לעקוף כל אחת מהגדרות המאפיין הקיימות הללו, השמט את ההגדרה של ארגומנט מצב הנתונים כך ש- Access ישתמש בהגדרות המאפיין שהוגדרו על-ידי הטופס.

דוגמה

הדוגמה הבאה בודקת את המאפיין ControlType עבור כל הפקדים בטופס. עבור כל פקד תווית ותיבת טקסט, הפרוצדורה מחליפה את מצב המאפיין SpecialEffect עבור פקדים אלה. כאשר המאפיין SpecialEffect של פקדי התווית מוגדר למוצלל והמאפיין SpecialEffect של פקדי תיבת הטקסט מוגדר לרגיל והמאפיינים 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
הרחב את הכישורים שלך
סייר בהדרכה
קבל תכונות חדשות לפני כולם
הצטרף למשתתפי Office Insider

האם מידע זה היה שימושי?

תודה על המשוב!

תודה על המשוב! נראה שכדאי לקשר אותך לאחד מנציגי התמיכה של Office.

×