Ypatybė AllowEdits

Taikoma

Ypatybę AllowEdits galite naudoti norėdami nurodyti, ar vartotojas gali redaguoti įrašytus įrašus naudodamas forma. Skaityti / rašyti Bulio logika.

reiškinys.AllowEdits

reiškinys Būtina. Reiškinys, kuris pateikia vieną iš sąrašo „Taikoma“ objektų.

Parametras

Ypatybė AllowEdits naudoja toliau pateiktus parametrus.

Ypatybę AllowEdits galite nustatyti naudodami formos ypatybės lapas, makrokomanda arba „Visual Basic for Applications“ (VBA) kodą.

Pastabos

Naudodami ypatybę AllowEdits galite neleisti keisti esamų duomenų formoje. Jei norite neleisti keisti konkretaus valdiklio duomenų, naudokite ypatybę Įgalinta arba Užrakinta.

Jei norite apsaugoti nuo pakeitimų esamus įrašus (padaryti formą tik skaitomą), ypatybėms AllowAdditions, AllowDeletions ir AllowEdits nustatykite reikšmę Ne. Taip pat galite nustatyti įrašus kaip tik skaitomus pasirinkdami ypatybės RecordsetType parametrą Momentinė kopija.

Programiškai pakeitus lauko reikšmę, dabartinis įrašas gali būti redaguojamas, neatsižvelgiant į ypatybės AllowEdits parametrą. Jei norite neleisti vartotojui atlikti įrašo pakeitimų (AllowEdits yra Ne), kuriuos reikia redaguoti programiškai, įrašykite įrašą po programinių pakeitimų; Ypatybės AllowEdits parametras bus nustatytas dar kartą po to, kai bus įrašyti neįrašyti dabartinio įrašo pakeitimai.

• AllowEdits – Taip

• AllowDeletions – Taip

• AllowAdditions – Taip

• DataEntry – Ne

Norint išvengti, kad veiksmas OpenForm nepaisytų kokių nors iš šių esamų ypatybių parametrų, praleiskite duomenų režimo argumento parametrą, kad „Access“ naudotų formos apibrėžtus ypatybių parametrus.

Pavyzdys

Tolesniame pavyzdyje nagrinėjama ypatybė ControlType su visais formos valdikliais. Procedūra perjungia kiekvienos etiketės ir teksto laukelio valdiklio ypatybę SpecialEffect. Kai etikečių valdiklių ypatybė SpecialEffect nustatoma kaip Shadowed, o teksto laukelio valdiklių ypatybė SpecialEffect nustatoma kaip Normal, o ypatybės AllowAdditions, AllowDeletions ir AllowEdits nustatomos kaip True, kintamasis intCanEdit įjungiamas leisti redaguoti esamus duomenis.

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