Düzenlemeİzni Özelliği

Uygulandığı Öğe
Microsoft 365 için Access Access 2024 Access 2021 Access 2019 Access 2016

Uygulandığı öğe

Form Nesnesi

Bir kullanıcının form kullanırken kaydedilmiş kayıtları düzenleyip düzenleyemeyeceğini belirtmek için AllowEdits özelliğini kullanabilirsiniz. Okuma/yazma Boolean.

ifade.AllowEdits

Ifa -de Gerekli. Uygulandığı Öğe listesindeki nesnelerden birini döndüren ifade.

Ayar

AllowEdits özelliği aşağıdaki ayarları kullanır.

Ayar Visual Basic Açıklama
Evet True (Varsayılan) Kullanıcı saklanan kayıtları düzenleyebilir.
Hayır False Kullanıcı saklanan kayıtları düzenleyemez.

      

AllowEdits özelliğini, formun özellik sayfasını, makroyu veya Visual Basic for Applications (VBA) kodunu kullanarak ayarlayabilirsiniz.

Notlar

Formun görüntülediği mevcut verilerde değişiklik yapılmasını engellemek için AllowEdits özelliğini kullanabilirsiniz. Belirli bir denetimdeki verilerde değişiklik yapılmasını engellemek isterseniz Enabled veya Locked özelliğini kullanın.

Mevcut kayıtlarda değişiklik yapılmasını önlemek (formu salt okunur yapmak) isterseniz AllowAdditions, AllowDeletions ve AllowEdits özelliklerini Hayır olarak ayarlayın. RecordsetType özelliğini Anlık görüntü durumuna getirerek de kayıtları salt okunur yapabilirsiniz.

Bir alan değerini program aracılığıyla değiştirmek, AllowEdits özellik ayarından bağımsız olarak geçerli kaydın düzenlenebilir olmasına neden olur. Kullanıcının program aracılığıyla düzenlemeniz gereken bir kayıtta değişiklik yapmasını engellemek istiyorsanız (AllowEditsHayır), programlı değişikliklerden sonra kaydı kaydedin; AllowEdits özellik ayarı, geçerli kayıtta kaydedilmemiş değişiklikler kaydedildikten sonra bir kez daha kabul edilir.

Not

Form Aç eyleminin Veri Modu bağımsız değişkeni ayarlandığında, Microsoft Office Access 2007 bir dizi form özelliği ayarlarını geçersiz kılar. OpenForm eyleminin Data Mode bağımsız değişkeni Düzenleme olarak ayarlanırsa Access formu aşağıdaki özellik ayarlarıyla açar:

  • AllowEdits — Evet
  • AllowDeletions — Evet
  • AllowAdditions — Evet
  • DataEntry — Hayır

OpenForm eyleminin bu mevcut özellik ayarlarını geçersiz kılmasını engellemek için Veri Modu bağımsız değişkeni ayarını atlayın. Böylece Access, formun tanımladığı özellik ayarlarını kullanır.

Örnek

Aşağıdaki örnekte, bir formdaki tüm denetimler için ControlType özelliği incelenir. Her etiket ve metin kutusu denetimi için, yordam bu denetimlere yönelik SpecialEffect özelliğinde geçiş yapar. Etiket denetimlerinin SpecialEffect özelliği Gölgeli ve metin kutusu denetimlerinin SpecialEffect özelliği Normal olarak ayarlandığında ve AllowAdditions, AllowDeletions ve AllowEdits özelliklerinin tümü True olarak ayarlandığında, intCanEdit değişken temel alınan verilerin düzenlenmesine izin verecek şekilde değiştirilir.

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