Gjelder for
Skjemaobjekt |
Du kan bruke AllowAdditions-egenskapen til å angi om en bruker kan legge til en post når vedkommende bruker en skjema. Lese/skrive Boolsk.
uttrykk.AllowAdditions
uttrykk Påkrevd. Et uttrykk som returnerer ett av objektene i Gjelder for-listen.
Innstilling
AllowAdditions-egenskapen bruker følgende innstillinger.
Innstilling |
Visual Basic |
Beskrivelse |
Ja |
Sann |
(Standard) Brukeren kan legge til nye poster. |
Nei |
Usann |
Brukeren kan ikke legge til nye poster. |
Du kan angi AllowAdditions-egenskapen ved hjelp av skjemaets egenskapsark, en makro, eller Visual Basic for Applications, VBA-kode.
Merknader
Sett egenskapen AllowAdditions til Nei for å tillate brukere å vise eller redigere eksisterende poster, men ikke legge til nye poster.
Hvis du vil forhindre endringer i eksisterende poster (gjøre et skjema skrivebeskyttet), kan du sette egenskapene AllowAdditions, AllowDeletions og AllowEdits til Nei. Du kan også skrivebeskytte poster ved å sette RecordsetType-egenskapen til Øyeblikksbilde.
Hvis du vil åpne et skjema bare for dataoppføring, setter du skjemaets egenskap DataEntry til Ja.
Når AllowAdditions-egenskapen er satt til Nei, er ikke kommandoen Ny post under Posterpå Data-fanen tilgjengelig.
Obs!: Når datamodusargumentet i handlingen OpenForm brukes, overstyrer Microsoft Office Access 2007 en rekke skjemaegenskapsinnstillinger. Hvis datamodusargumentet i OpenForm-handlingen er satt til Rediger, åpnes skjemaet i Access med følgende egenskapsinnstilllinger:
-
TillatRedigering — Ja
-
TillatSletting — Ja
-
TillatTillegg — Ja
-
Dataregistrering — Nei
Du kan forhindre handlingen OpenForm fra å overstyre noen av disse eksisterende egenskapsinnstillingene ved å utelate innstillingen for datamodusargument, slik at Access bruker egenskapsinnstillingene som er definert i skjemaet.
Eksempel
Det følgende eksemplet undersøker egenskapen ControlType for alle kontrollene i et skjema. For hver etikett- og tekstbokskontroll veksler prosedyren egenskapen SpecialEffect for disse kontrollene. Når etikettkontrollens egenskap SpecialEffect er satt til Skyggelagt og tekstbokskontrollens egenskap SpecialEffect er satt til egenskapene Normal, og AllowAdditions, AllowDeletions, og når AllowEdits er satt til Sann, er variabelen intCanEdit vekslet for å tillate redigering av de underliggende dataene.
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