ModifAutorisée, propriété

S’applique à
Access pour Microsoft 365 Access 2024 Access 2021 Access 2019 Access 2016

S’applique à

Objet Form

Vous pouvez utiliser la propriété AllowEdits pour spécifier si un utilisateur peut modifier des enregistrements enregistrés lors de l’utilisation d’un formulaire. Booléen en lecture/écriture.

expression.AllowEdits

expression Obligatoire. Expression qui renvoie l’un des objets de la liste S’applique à.

Paramètre

La propriété AllowEdits utilise les paramètres suivants.

Paramètres Visual Basic Description
Oui True (Par défaut) L’utilisateur peut modifier les enregistrements sauvegardés.
No False L’utilisateur ne peut pas modifier les enregistrements sauvegardés.

      

Vous pouvez définir la propriété AllowEdits à l’aide de la feuille de propriétés du formulaire, d’une macro ou de code Visual Basic pour Applications (VBA).

Remarques

Vous pouvez utiliser la propriété AllowEdits empêcher la modification des données existantes affichées par un formulaire. Pour empêcher la modification des données d’un contrôle spécifique, utilisez la propriété Enabled ou la propriété Locked.

Pour empêcher la modification des enregistrements existants (mettre un formulaire en lecture seule), définissez les propriétés AllowAdditions, AllowDeletions et AllowEdits sur No. Vous pouvez également mettre des enregistrements en lecture seule en définissant la propriété RecordsetType sur Snapshot.

La modification par programme d’une valeur de champ rend l’enregistrement actif modifiable, indépendamment du paramètre de la propriété AllowEdits. Pour empêcher l’utilisateur de modifier un enregistrement (propriété AllowEdits définie sur No) que vous devez modifier par programme, sauvegardez l’enregistrement après toute modification par programme ; le paramètre de la propriété AllowEdits sera de nouveau respecté après la sauvegarde des modifications apportées à l’enregistrement actif.

Remarque

Lorsque l’argument Mode données de l’action OpenForm est défini, Microsoft Office Access 2007 remplace un certain nombre de paramètres de propriétés du formulaire. Si l’argument Mode données de l’action OuvrirFormulaire est défini sur Modifier, Access ouvre le formulaire avec les paramètres de propriété suivants :

  • ModifAutorisée — Oui
  • SupprAutorisée — Oui
  • AjoutAutorisé — Oui
  • EntréeDonnées — Non

Pour empêcher l’action OuvrirFormulaire de remplacer les paramètres de propriété existants, omettez le paramètre de l’argument Mode données afin qu’Access utilise les paramètres de propriété définis par le formulaire.

Exemple

L’exemple suivant examine la propriété controltype pour tous les contrôles d’un formulaire. Pour chaque contrôle d’étiquette et de zone de texte, la procédure active/désactive la propriété Apparence de ces contrôles. Lorsque la propriété SpecialEffect des contrôles d’étiquette est définie sur Shadowed et que la propriété SpecialEffect des contrôles de zone de texte est définie sur Normal et que les propriétés AllowAdditions, AllowDeletions et AllowEdits sont toutes définies sur True, la intCanEdit variable est basculée pour permettre la modification des données sous-jacentes.

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