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 les enregistrements sauvegardés lorsqu’il utilise 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ètre

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 en utilisant la feuille de propriétés du formulaire, une macro ou un 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 Data Mode de l’action OpenForm est défini, Microsoft Office Access 2007 remplace un certain nombre de paramètres de propriété de formulaire. Si l’argument Data Mode de l’action OpenForm est défini sur Edit, 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é SpecialEffect de ces contrôles. Lorsque la propriété SpecialEffect des contrôles d’étiquette est définie sur Shadowed, 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 variable intCanEdit est activée pour autoriser 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 IfEnd Sub

Besoin d’aide ?

Vous voulez plus d’options ?

Explorez les avantages de l’abonnement, parcourez les cours de formation, découvrez comment sécuriser votre appareil, etc.