Conectați-vă cu Microsoft
Conectați-vă sau creați un cont
Salut,
Selectați un alt cont.
Aveți mai multe conturi
Alegeți contul cu care doriți să vă conectați.

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 date al acțiunii OpenForm , Access va înlocui un număr de setări ale proprietății formularului. 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

Aveți nevoie de ajutor suplimentar?

Doriți mai multe opțiuni?

Explorați avantajele abonamentului, navigați prin cursurile de instruire, aflați cum să vă securizați dispozitivul și multe altele.

Comunitățile vă ajută să adresați întrebări și să răspundeți la întrebări, să oferiți feedback și să primiți feedback de la experți cu cunoștințe bogate.

Au fost utile aceste informații?

Cât de mulțumit sunteți de calitatea limbajului?
Ce v-a afectat experiența?
Apăsând pe Trimitere, feedbackul dvs. va fi utilizat pentru a îmbunătăți produsele și serviciile Microsoft. Administratorul dvs. IT va avea posibilitatea să colecteze aceste date. Angajamentul de respectare a confidențialității.

Vă mulțumim pentru feedback!

×