AllowEdits tulajdonság

Hatókör
Microsoft 365-höz készült Access Access 2024 Access 2021 Access 2019 Access 2016

Érvényesség

Form objektum

Az AllowEdits tulajdonság használatával megadhatja, hogy a felhasználó szerkesztheti-e a mentett rekordokat űrlap használata esetén. Írható-olvasható logikai változó.

kifejezés.AllowEdits

Kifejezés Szükséges. Egy kifejezés, amely a Hatókör listában szereplő objektumok egyikét adja vissza.

Beállítás

Az AllowEdits tulajdonság az alábbi beállításokat használja.

Beállítás Visual Basic Leírás:
Igen True (Alapértelmezett) A felhasználó szerkesztheti a mentett rekordokat.
Nem False A felhasználó nem szerkesztheti a mentett rekordokat.

      

Az AllowEdits tulajdonságot az űrlap tulajdonságlapján, egy makróban vagy Visual Basic for Applications (VBA) kódban állíthatja be.

Megjegyzések

Az AllowEdits tulajdonsággal megakadályozhatja, hogy módosítások menjenek végbe űrlap által megjelenített meglévő adatokban. Ha egy adott vezérlőelem adatainak módosítását szeretné megelőzni, használja az Enabled vagy a Locked tulajdonságot.

Ha meglévő rekordok módosítását szeretné meggátolni (írásvédetté tenni az űrlapot), akkor állítsa az AllowAdditions, az AllowDeletions és az AllowEdits tulajdonságokat Nem értékre. Rekordokat úgy is írásvédetté tehet, ha a RecordsetType tulajdonságot Snapshot értékre állítja.

Ha módosítja egy mező értékét, akkor az aktuális rekord automatikusan szerkeszthetővé válik, függetlenül az AllowEdits tulajdonság beállításától. Ha szeretné meggátolni, hogy a felhasználók módosítsanak egy olyan rekordot (az AllowEdits értéke Nem), amelyet automatikusan kell szerkesztenie, akkor mentse a rekordot az automatikus változtatások után – a program újra figyelembe veszi az AllowEdits tulajdonság beállítását, miután az aktuális rekord minden nem mentett változása mentve lesz.

Megjegyzés

Ha az Űrlapmegnyitási művelet Adatmód argumentuma be van állítva, a Microsoft Office Access 2007 számos űrlaptulajdonság-beállítást felülbírál. Ha az ŰrlapMegnyitása művelet Adathozzáférési mód argumentumának értéke Szerkesztés, akkor az Access a következő űrlaptulajdonság-beállításokkal nyitja meg az űrlapot:

  • AllowEdits – Igen
  • AllowDeletions – Igen
  • AllowAdditions – Igen
  • DataEntry – Nem

Ha szeretné megakadályozni, hogy az OpenForm művelet felülírja ezen meglévő tulajdonságbeállítások bármelyikét, hagyja ki a Data Mode argumentum beállítását, így az Access az űrlap által definiált tulajdonságbeállításokat fogja használni.

Példa

Az alábbi példában szereplő kód futtatásakor a rendszer megvizsgálja a ControlType (Vezérlő típusa) tulajdonságot egy űrlap minden vezérlőelemére vonatkozóan. Az eljárás során a SpecialEffect (Speciálishatás) tulajdonságot minden címke- és szövegdoboz-vezérlő esetén átkapcsolja. Ha a címkevezérlők SpecialEffect tulajdonsága Árnyékolt értékre van állítva, és a szövegdoboz-vezérlők SpecialEffect tulajdonsága Normál , az AllowAdditions, Az AllowDeletions és az AllowEdits tulajdonság értéke pedig True, a intCanEdit változót úgy állítja be, hogy engedélyezze az alapul szolgáló adatok szerkesztését.

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