Se aplică la
Obiectul Form |
Puteți utiliza proprietatea AllowAdditions pentru a specifica dacă un utilizator poate adăuga o înregistrare atunci când utilizează un formular. Boolean în citire/scriere.
expresie.AllowAdditions
expresie Obligatoriu. O expresie care returnează unul dintre obiectele din lista Se aplică la.
Setare
Proprietatea AllowAdditions utilizează următoarele setări.
Setare |
Visual Basic |
Descriere |
Da |
True |
(Implicit) Utilizatorul poate adăuga înregistrări noi. |
Nu |
False |
Utilizatorul nu poate adăuga înregistrări noi. |
Puteți seta proprietatea AllowAdditions utilizând foaie de proprietăți formularului, un macrocomandă sau cod Visual Basic for Applications (VBA).
Observații
Setați proprietatea AllowAdditions la Nu pentru a le permite utilizatorilor să vizualizeze sau să editeze înregistrările existente, dar nu și să adauge înregistrări noi.
Dacă doriți să împiedicați modificarea înregistrărilor existente (să faceți un formular doar în citire), setați proprietățile AllowAdditions, AllowDeletions și AllowEdits la Nu. De asemenea, puteți face înregistrările doar în citire dacă setați proprietatea RecordsetType la Instantaneu.
Dacă doriți să deschideți un formular doar pentru introducerea de date, setați proprietatea DataEntry a formularului la Da.
Atunci când proprietatea AllowAdditions este setată la Nu, comanda Înregistrare nouă de sub Înregistrări din fila Date nu este disponibilă.
Notă: Atunci când este utilizat argumentul Mod de date al acțiunii OpenForm, Microsoft Office Access 2007 va înlocui mai multe setări ale proprietății de formular. Dacă argumentul Mod de date al acțiunii OpenForm este setat la Editare, Access va deschide formularul cu următoarele setări de proprietate:
-
AllowEdits — Da
-
AllowDeletions — Da
-
AllowAdditions — Da
-
DataEntry — Nu
Pentru a împiedica acțiunea OpenForm să înlocuiască oricare dintre aceste setări de proprietate existente, omiteți setarea argumentului Mod de date, astfel încât Access să utilizeze setările de proprietate definite de formular.
Exemplu
Următorul exemplu examinează proprietatea ControlType pentru toate controalele dintr-un formular. Pentru fiecare control etichetă și casetă text, procedura activează proprietatea SpecialEffect pentru acele controale. Atunci când proprietatea SpecialEffect a controalelor de etichetă este setată la Umbrit, iar proprietatea SpecialEffect a controlului casetă text este setată la Normal, în timp ce proprietățile AllowAdditions, AllowDeletions și AllowEdits sunt toate setate la True, variabila intCanEdit este setată să permită editarea datelor subiacente.
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