המאפיין AllowAdditions

חל על

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

ביטוי.AllowAdditions

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

הגדרה

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

באפשרותך להגדיר את המאפיין 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