Rekvizīts AllowEdits

Attiecas uz

Varat izmantot rekvizītu AllowEdits, lai norādītu, vai lietotājs var rediģēt saglabātos ierakstus, izmantojot forma. Lasīšanas/rakstīšanas Būla izteiksme.

izteiksme.AllowEdits

expression Obligāti. Izteiksme, kas atgriež vienu no objektiem sarakstā Attiecas uz.

Iestatījums

Rekvizīts AllowEdits izmanto tālāk norādītos iestatījumus.

Varat iestatīt rekvizītu AllowEdits, izmantojot formas rekvizītu lapa, makro vai Visual Basic for Applications (VBA) kodu.

Piezīmes

Rekvizītu AllowEdits varat izmantot, lai novērstu izmaiņas esošajos datos, ko attēlo forma. Ja vēlaties novērst izmaiņas datus konkrētā vadīklā, izmantojiet rekvizītu Enabled vai Locked.

Ja vēlaties novērst izmaiņas esošajos ierakstos (padarīt formu tikai lasāmu), iestatiet rekvizītus AllowAdditions, AllowDeletions un AllowEdits uz Nē. Arī ierakstus varat padarīt tikai lasāmus, iestatot rekvizītu RecordsetType uz Snapshot.

Mainot lauka vērtību programmiski, pašreizējais ieraksts kļūst rediģējams neatkarīgi no rekvizīta AllowEdits iestatījuma. Ja nevēlaties, lai lietotājs veic izmaiņas ierakstā (AllowEdits vērtība ir Nē), kas ir jārediģē programmiski, saglabājiet ierakstu pēc programmisko izmaiņu veikšanas; rekvizīts AllowEdits tiks atkal ņemts vērā, kad nesaglabātās izmaiņas pašreizējā ierakstā tiks saglabātas.

• AllowEdits — Jā

• AllowDeletions — Jā

• AllowAdditions — Jā

• DataEntry — Nē

Lai darbība OpenForm neignorētu nevienu no šiem esošajiem rekvizītu iestatījumiem, izlaidiet argumenta Datu režīms iestatījumu, lai Access izmantotu formas definētos rekvizītu iestatījumus.

Piemērs

Tālāk esošajā piemērā rekvizīts ControlType tiek pārbaudīts visām vadīklām formā. Katrai etiķetes un tekstlodziņa vadīklai procedūra pārslēdz rekvizītu SpecialEffect šīm vadīklām. Ja etiķetes vadīklas rekvizīts SpecialEffect ir iestatīts uz Shadowed, tekstlodziņa vadīklas rekvizīts SpecialEffect ir iestatīts uz Normal un rekvizīti AllowAdditions, AllowDeletions un AllowEdits ir iestatīti uz True, intCanEdit mainīgais tiek pārslēgts, lai atļautu pamatā esošo datu rediģēšanu.

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