Egenskapen AllowEdits

Gäller för

Form-objekt

Du kan använda egenskapen AllowEdits för att ange om en användare kan redigera sparade poster när de använder ett formulär. Boolesk för läsa/skriva.

uttryck.AllowEdits

uttryck Obligatoriskt. Ett uttryck som returnerar ett av objekten i listan Gäller för.

Inställning

Egenskapen AllowEdits har följande inställningar:

Inställning	Visual Basic	Beskrivning
Ja	Sant	(Standard) Användaren kan redigera nya poster.
Nej	Falskt	Användaren kan inte redigera sparade poster.

      

Du kan ange egenskapen TillåtRedigering på formulärets egenskapssida, i ett makro eller med VBA-kod (Visual Basic for Applications).

Kommentarer

Du kan använda egenskapen AllowEdits för att stoppa ändringar av befintliga data som visas i ett formulär. Om du vill stoppa ändringar av data i en viss kontroll kan du använda egenskaperna Enabled eller Locked.

Om du vill förhindra ändringar av befintliga poster (skrivskydda ett formulär) anger du egenskaperna AllowAdditions, AllowDeletions och AllowEdits till No. Du kan också skrivskydda poster genom att ange egenskapen RecordsetType till Snapshot.

Om du ändrar ett fältvärde programmässigt blir den aktuella posten redigerbar, oavsett inställningen för egenskapen AllowEdits . Om du vill förhindra användaren från att göra ändringar i en post (AllowEdits är Nej) som du behöver redigera programmässigt, spara posten efter programmässiga ändringar. Egenskapsinställningen AllowEdits kommer att respekteras igen när alla osparade ändringar i den aktuella posten sparas.

• TillåtRedigering – Ja
• TillåtBorttagning – Ja
• TillåtTillägg – Ja
• Inmatning – Nej

För att förhindra åtgärden ÖppnaFormulär från att åsidosätta någon av de befintliga egenskapsinställningarna, utelämnar du inställningen för argumentet Dataläge så att Access använder egenskapsinställningarna som definierats av formuläret.

Exempel

I följande exempel undersöks egenskapen KontrollTyp för alla kontroller i ett formulär. För varje etikett- och textrutekontroll växlar proceduren egenskapen Utseende för kontrollerna. När egenskapen Utseende för etikettkontrollerna angetts till Skuggad och egenskapen Utseende för textrutekontrollerna angetts till Normal samt egenskaperna TillåtTillägg, TillåtBorttagning och TillåtRedigering alla angetts till Sant växlas variabeln intCanEdit så att underliggande data tillåts.

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