המאפיין AllowAdditions

חל על

אובייקט Form

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

ביטוי.AllowAdditions

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

הגדרה

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

הגדרה	Visual Basic	תיאור
כן	True	(ברירת מחדל) המשתמש יכול להוסיף רשומות חדשות.
לא	False	למשתמש אין אפשרות להוסיף רשומות חדשות.

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

הערות

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

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

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

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

• 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