Odnosi se na
Objekt Form |
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.
Postavka |
Visual Basic |
Opis |
Da |
True |
(Zadano) Korisnik može dodavati nove zapise. |
Ne |
False |
Korisnik ne može dodavati nove zapise. |
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.
Napomena: Ako je argument načina rada podataka akcije OpenForm u upotrebi, Microsoft Office Access 2007 nadjačat će postavke svojstava obrasca. Ako je argument načina rada podataka akcije OpenForm postavljen na Edit, Access će otvoriti obrazac sa sljedećim postavkama svojstava:
-
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