המאפיין AllowEdits

חל על

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

ביטוי.AllowEdits

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

הגדרה

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

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

הערות

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

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

שינוי ערך של שדה באמצעות תיכנות גורם לרשומה הנוכחית להיות ניתנת לעריכה, ללא קשר להגדרת המאפיין AllowEdits. אם ברצונך למנוע מהמשתמש לבצע שינויים ברשומה (AllowEdits מוגדר ללא), עליך לערוך באמצעות תיכנות, לשמור את הרשומה לאחר כל שינוי באמצעות תיכנות; הגדרת המאפיין AllowEdits תהיה תקפה שוב לאחר שמירת שינויים שלא נשמרו ברשומה הנוכחית.

• 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