Svojstvo AllowAdditions

Odnosi se na

Svojstvo AllowEdits omogućuje vam da odredite hoće li korisnik moći dodavati zapise dok koristi obrazac. To je svojstvo vrste Boolean za čitanje/pisanje.

expression.AllowAdditions

expression Obavezno. Izraz koji vraća jedan od objekata na popisu Primjenjuje se na.

Postavka

Svojstvo AllowAdditions koristi sljedeće postavke.

Svojstvo AllowAdditions možete postaviti pomoću koda obrasca list svojstava, makronaredba ili Vba (Visual Basic for Applications).

Napomene

Da biste korisnicima omogućili pregled i uređivanje postojećih zapisa i onemogućili dodavanje novih, postavite svojstvo AllowAdditions na Ne.

Ako želite spriječiti promjene postojećih zapisa (obrazac postavite samo za čitanje), postavite svojstva AllowAdditions, AllowDeletions i AllowEdits na Ne. Zapise možete postaviti samo za čitanje i tako da svojstvo RecordsetType postavite na Snapshot.

Ako želite otvoriti obrazac isključivo za unos podataka, postavite svojstvo obrasca DataEntry na Da.

Kada je svojstvo AllowAdditions postavljeno na Ne, naredba Novi zapis u odjeljku Zapisi na kartici Podaci neće biti dostupna.

• AllowEdits – Da

• AllowDeletions – Da

• AllowAdditions – Da

• DataEntry – Ne

Da biste spriječili da akcija OpenForm nadjača neku od navedenih postojećih postavki svojstva, izostavite postavku argumenta načina rada podataka, pa će Access koristiti postavke svojstva određene obrascem.

Primjer

U sljedećem je primjeru prikazano svojstvo ControlType za sve kontrole na obrascu. Procedura uključuje/isključuje svojstvo SpecialEffect za svaku kontrolu oznake i tekstnog okvira. Ako je svojstvo kontrola oznake SpecialEffect postavljeno na Shadowed, svojstvo kontrola tekstnog okvira SpecialEffect na Normal, a svojstva AllowAdditions, AllowDeletions i AllowEdits na True, varijabla intCanEdit bit će uključena, čime će uređivanje pozadinskih podataka biti omogućeno.

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