Svojstvo „AllowEdits“ („Dozvoli uređivanje“)

Primenjuje se na
Access za Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

Odnosi se na

Objekat „Form“

Možete da koristite svojstvo AllowEdits da biste naveli da li korisnik može da uređuje sačuvane zapise kada koristi obrazac. Čitanje/pisanje Bulovih vrednosti.

expression.AllowEdits

Izraz Potrebne. Izraz koji daje jedan od objekata sa liste „Odnosi se na“.

Postavka

Svojstvo AllowEdits koristi sledeće postavke.

Postavka Visual Basic Opis
Da True (Podrazumevano) Korisnik može da uređuje sačuvane zapise.
Ne False Korisnik ne može da uređuje sačuvane zapise.

      

Svojstvo AllowEdits možete da podesite pomoću lista sa svojstvima obrasca, makroa ili Visual Basic for Applications (VBA) koda.

Napomene

Možete da koristite svojstvo AllowEdits da biste sprečili da se promene u postojećim podacima prikazuju u obrascu. Ako želite da sprečite izmene podataka u određenoj kontroli, koristite svojstvo Enabled ili Locked.

Ako želite da sprečite promene na postojećim zapisima (napravite obrazac samo za čitanje), postavite svojstva AllowAdditions, AllowDeletions i AllowEdits na opciju „Ne“. Zapise možete da napravite samo za čitanje i tako što ćete svojstvo RecordsetType postaviti na opciju Snapshot.

Programska promena vrednosti polja dovodi do toga da trenutni zapis može da se uređuje, bez obzira na postavku svojstva AllowEdits. Ako želite da sprečite korisnika da pravi promene u zapisu (AllowEdits je Ne) koji morate programski da uređujete, sačuvajte zapis posle bilo kakve programske izmene; postavka svojstva AllowEdits će se ponovo poštovati kada se sačuvaju sve nesačuvane promene trenutnog zapisa.

Napomena

Kada se postavi argument "Režim podataka" radnje OpenForm, Microsoft Office Access 2007 će zameniti nekoliko postavki svojstava obrasca. Ako je argument „Režim podataka“ radnje OpenForm postavljen na opciju Uređivanje, Access će otvoriti obrazac uz sledeće postavke svojstava:

  • AllowEdits – Da
  • AllowDeletions – Da
  • AllowAdditions – Da
  • DataEntry – Ne

Da biste sprečili radnju OpenForm da zameni bilo koje od postojećih postavki svojstava, izostavite postavku argumenta „Režim podataka“ kako bi Access koristio postavke svojstava koje definiše obrazac.

Primer

Sledeći primer ispituje svojstvo ControlType za sve kontrole u obrascu. Za svaku kontrolu oznake i okvira za tekst, procedura uključuje/isključuje svojstvo SpecialEffect za te kontrole. Kada se svojstvo SpecialEffect kontrole oznaka postavi na opciju Osenčeno i svojstvo SpecialEffect kontrola okvira za tekst je postavljeno na Normalno, a svojstva AllowAdditions, AllowDeletions i AllowEdits su sva postavljena na True, intCanEdit promenljiva se prebacuju da bi dozvolila uređivanje osnovnih podataka.

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