Ypatybė AllowAdditions

Taikoma

Objektas Form

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

reiškinys.AllowAdditions

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

Parametras

Ypatybė AllowAdditions naudoja toliau pateiktus parametrus.

Nustatymas	Visual Basic	Aprašymas
Taip	True	(Numatytasis parametras) Vartotojas gali įtraukti naujų įrašų.
Ne	False	Vartotojas negali įtraukti naujų įrašų.

Ypatybę AllowAdditions galite nustatyti naudodami formos ypatybių lapą, makrokomandą 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 ypatybė AllowAdditions nustatyta kaip Ne, komanda Naujas įrašas skirtuko Duomenys dalyje Įrašai 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 nustatyta kaip Shadowed, o teksto laukelio valdiklių ypatybė SpecialEffect nustatyta kaip Normal, o ypatybės AllowAdditions, AllowDeletions ir AllowEdits nustatytos kaip True (teisinga), intCanEdit kintamasis į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