Właściwość AllowEdits

Dotyczy

Właściwość AllowEdits (EdycjaDozwolona) służy do określania, czy podczas korzystania z obiektu formularz użytkownik może edytować zapisane rekordy. Właściwość do odczytu i zapisu typu Boolean (wartość logiczna).

wyrażenie.AllowEdits (EdycjaDozwolona)

wyrażenie Argument wymagany. Wyrażenie zwracające jeden z obiektów na liście Dotyczy.

Ustawienie

Właściwość AllowEdits (EdycjaDozwolona) może przybierać następujące wartości ustawień.

Właściwość AllowEdits (EdycjaDozwolona) możesz ustawić, wykorzystując arkusz właściwości formularza, makro lub kod w języku Visual Basic for Applications (VBA).

Spostrzeżenia

Właściwości AllowEdits (EdycjaDozwolona) można użyć, aby uniemożliwić zmienianie jakichkolwiek danych wyświetlanych w formularzu. Aby zapobiec zmienianiu danych w określonej kontrolce, użyj właściwości Enabled lub Locked.

Aby zapobiec zmianom w istniejących rekordach (utworzyć formularz tylko do odczytu), należy właściwościom AllowAdditions (DodawanieDozwolone), AllowDeletions (UsuwanieDozwolone) i AllowEdits (EdycjaDozwolona) nadać wartość Nie. Rekordom można także nadać status tylko do odczytu, ustawiając właściwość RecordsetType na wartość Migawka.

Programistyczna modyfikacja wartości pola powoduje, że bieżący rekord można edytować, bez względu na ustawienie właściwości AllowEdits (EdycjaDozwolona). Aby uniemożliwić użytkownikowi dokonywanie zmian w rekordzie (właściwość AllowEdits (EdycjaDozwolona) ustawiona na wartość Nie), który ma być edytowany programistycznie, zapisz rekord po dowolnych zmianach programistycznych; ustawienie właściwości AllowEdits (EdycjaDozwolona) będzie znów obowiązywać, kiedy zostaną zapisane wszelkie niezapisane dotąd zmiany dokonane w bieżącym rekordzie.

• AllowEdits (EdycjaDozwolona) — Tak

• AllowDeletions (UsuwanieDozwolone) — Tak

• AllowAdditions (DodawanieDozwolone) — Tak

• DataEntry — Nie

Aby zapobiec zastępowaniu istniejących ustawień właściwości przez akcję OpenForm (OtwórzFormularz), pomiń ustawienie argumentu Tryb danych, w wyniku czego program Access użyje ustawień właściwości zdefiniowanych w formularzu.

Przykład

W poniższym przykładzie dla wszystkich kontrolek formularza jest sprawdzana wartość właściwości ControlType (TypKontrolki). Dla każdej kontrolki etykiety i pola tekstowego procedura przełącza właściwość SpecialEffect (EfektSpecjalny). Jeśli właściwość SpecialEffect (EfektSpecjalny) kontrolek etykiet ma wartość Shadowed (Cieniowany), a właściwość SpecialEffect (EfektSpecjalny) pól tekstowych ma wartość Normal (Normalny) oraz jeśli właściwości AllowAdditions (DodawanieDozwolone), AllowDeletions (UsuwanieDozwolone) i AllowEdits (EdycjaDozwolona) mają ustawione wartości True, zmienna intCanEdit jest przełączana w celu umożliwienia edycji danych źródłowych.

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