Properti AllowAdditions

Berlaku untuk

Anda dapat menggunakan properti AllowAdditions untuk menentukan apakah pengguna dapat menambahkan data saat menggunakan formulir. Boolean baca/tulis.

ekspresi.AllowAdditions

ekspresi Diperlukan. Ekspresi yang mengembalikan salah satu objek dalam daftar Berlaku Untuk.

Pengaturan

Properti AllowAdditions menggunakan pengaturan berikut ini.

Anda dapat mengatur properti AllowAdditions menggunakan lembar properti formulir, makro, atau kode Visual Basic for Applications (VBA).

Keterangan

Atur properti AllowAdditions ke Tidak untuk mengizinkan pengguna menampilkan atau mengedit data yang sudah ada, tetapi tidak dengan menambahkan data baru.

Jika ingin melarang perubahan pada data yang sudah ada (menjadikan formulir bersifat baca-saja), atur properti AllowAdditions, AllowDeletions, dan AllowEdits ke Tidak. Anda juga dapat mengatur data menjadi baca-saja dengan mengatur properti RecordsetType ke Snapshot.

Jika ingin membuka formulir hanya untuk entri data, atur properti DataEntry formulir ke Ya.

Saat properti AllowAdditions diatur ke Tidak, perintah Data Baru di bawah Data pada tab Data tidak akan tersedia.

• AllowEdits — Ya

• AllowDeletions — Ya

• AllowAdditions — Ya

• DataEntry — Tidak

Agar tindakan OpenForm tidak menimpa salah satu dari pengaturan properti yang sudah ada ini, hilangkan pengaturan argumen Data Mode sehingga Access akan menggunakan pengaturan properti yang ditentukan oleh formulir.

Contoh

Contoh berikut ini memeriksa properti ControlType untuk semua kontrol pada formulir. Untuk setiap kontrol kotak teks dan label, prosedur ini akan mengalihkan properti SpecialEffect untuk kontrol tersebut. Ketika properti SpecialEffect kontrol label diatur ke Shadowed, properti SpecialEffect kontrol kotak teks diatur ke Normal, serta properti AllowAdditions, AllowDeletions, dan AllowEdits semuanya diatur ke True, variabel intCanEdit akan dialihkan untuk mengizinkan pengeditan data yang mendasari.

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