היכנס דרך Microsoft
היכנס או צור חשבון.
שלום,
בחר חשבון אחר.
יש לך חשבונות מרובים
בחר את החשבון שברצונך להיכנס באמצעותו.

חל על

אובייקט Form

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

ביטוי.AllowAdditions

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

הגדרה

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

הגדרה

Visual Basic

תיאור

כן

True

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

לא

False

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

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

הערות

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

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

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

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

הערה: כאשר נעשה שימוש בארגומנט מצב נתונים של הפעולה OpenForm , Access יעקוף מספר הגדרות של מאפייני טופס. אם ארגומנט מצב הנתונים של הפעולה 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

זקוק לעזרה נוספת?

מעוניין באפשרויות נוספות?

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

קהילות עוזרות לך לשאול שאלות ולהשיב עליהן, לתת משוב ולשמוע ממומחים בעלי ידע עשיר.

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

עד כמה אתם מרוצים מאיכות השפה?
מה השפיע על החוויה שלך?
בלחיצה על 'שלח', אתה מאפשר למשוב שלך לשפר מוצרים ושירותים של Microsoft. מנהל ה-IT שלך יוכל לאסוף נתונים אלה. הצהרת הפרטיות.

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

×