Svojstvo „AllowAdditions“ („Dozvoli dodavanja“)

Odnosi se na

Možete da koristite svojstvo AllowAdditions da biste naveli da li korisnik može da doda zapis kada koristi obrazac. Čitanje/pisanje Bulovih vrednosti.

expression.AllowAdditions

expression Obavezno. Izraz koji daje jedan od objekata sa liste „Odnosi se na“.

Postavka

Svojstvo AllowAdditions koristi sledeće postavke.

Svojstvo AllowAdditions možete da podesite pomoću list svojstva, makro ili Visual Basic for Applications (VBA) koda obrasca.

Primedbe

Postavite svojstvo AllowAdditions na opciju Ne da biste korisnicima dozvolili da prikazuju ili uređuju postojeće zapise, ali ne i da dodaju nove zapise.

Ako želite da sprečite promene na postojećim zapisima (napravite obrazac samo za čitanje), postavite svojstva AllowAdditions, AllowDeletions i AllowEdits na opciju Ne. Zapise možete da napravite samo za čitanje i tako što ćete svojstvo RecordsetType postaviti na opciju Snimak.

Ako želite da otvorite obrazac samo za unos podataka, postavite svojstvo DataEntry obrasca na opciju Da.

Kada se svojstvo AllowAdditions postavi na opciju Ne, komanda Novi zapis u okviru Zapisi na kartici Podaci nije dostupna.

• AllowEdits – Da

• AllowDeletions – Da

• AllowAdditions – Da

• DataEntry – Ne

Da biste sprečili radnju OpenForm da zameni bilo koje od postojećih postavki svojstava, izostavite postavku argumenta „Režim podataka“ kako bi Access koristio postavke svojstava koje definiše obrazac.

Primer

Sledeći primer ispituje svojstvo ControlType za sve kontrole u obrascu. Za svaku kontrolu oznake i okvira za tekst, procedura uključuje/isključuje svojstvo SpecialEffect za te kontrole. Kada je svojstvo SpecialEffect kontrole oznake postavljeno na opciju Osenčeno, svojstvo SpecialEffect kontrola okvira za tekst je postavljeno na opciju Normalno, a svojstva AllowAdditions, AllowDeletions i AllowEdits su sva postavljena na opciju True, promenljiva intCanEdit se uključuje da bi se dozvolilo uređivanje osnovnih podataka.

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