Ypatybė AllowAdditions

Taikoma

Ypatybę AllowAdditions galite naudoti norėdami nurodyti, ar vartotojas gali įtraukti įrašą naudodamas forma. Skaityti/rašyti Boolean.

reiškinys.AllowAdditions

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

Parametras

Ypatybė AllowAdditions naudoja toliau pateiktus parametrus.

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

Pastabos

Nustatykite ypatybės AllowAdditions reikšmę Ne, kad vartotojai galėtų peržiūrėti ar redaguoti esamus įrašus, bet negalėtų įtraukti naujų įrašų.

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

Jei norite atidaryti formą tik duomenims įvesti, nustatykite formos ypatybės DataEntry reikšmę Taip.

Kai nustatoma ypatybės AllowAdditions reikšmė Ne, naujo įrašo komanda dalyje Įrašai skirtuke Duomenys negalima.

• 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