Discussion :

[nde1303]

Bonjour,

J'ai un formulaire frmCOMMANDES qui doit s'afficher en lecture ou en écriture en fonction du bouton sur lequel on clique pour le lancer.

Le code de l'évènement "Sur clic" du Bouton "Ouverture du formulaire en lecture seule" est le suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

DoCmd.OpenForm "frmCOMMANDES", , , , acFormReadOnly, acWindowNormal

Comme vous pouvez le voir, le paramètre acFormReadOnly devrait normalement faire en sorte que mon formulaire s'ouvre en lecture seule.

Eh bien cela ne marche pas. Non seulement les champs sont éditables, mais lorsque je quitte le formulaire, les modifications ont été sauvegardées dans la base de donnée.

Il y a pas mal de traitements à l'ouverture du formulaire, mais j'ai ouvert le formulaire en mode débuggage pas à pas, et j'ai constater que la propriété AllowEdits est toujours positionnée à False.

J'ai même essayé de mettre AllowEdits à false directement dans le formulaire, voir dans le code de l'ouverture du formulaire, mais cela ne change rien.

Je pense donc qu'il y a un autre paramètre qui prend le pas sur la propriété AllowEdits, ou un truc dans le genre.

Est-ce que quelqu'un aurait une idée ?

Merci d'avance !

[ClaudeLELOUP]

Bonjour,

Je n'ai pas Access2010 pour tester.

Si cela ne fonctionne pas avec l'instruction que tu montres, ouvre plutôt le formulaire avec un paramètre. Et dans l'événement "Sur ouverture" tu testes la valeur du paramètre pour positionner Me.AllowEdits à la valeur souhaitée.

[nde1303]

Bonjour,

Merci pour ta réponse. J'ai déjà fait le test dont tu parles, et j'ai le même résultat

[ClaudeLELOUP]

Cela m'étonne !

Ton formulaire n'est sans doute pas physiquement modifié, mais si tu as positionné

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.AllowEdits = False

dans l'événement "Sur ouverture", l'utilisateur ne peut certainement pas encoder.

[nde1303]

Eh oui, je suis tout à fait d'accord avec toi, d'où ma stupeur...

Je ne comprends pas pourquoi, alors que Me.AllowEdits est bien positionné à "True", les utilisateurs peuvent modifier un enregistrement.

[ClaudeLELOUP]

Ça c'est normal ! C'est à "False" que tu dois positionner pour empêcher les modif !

[nde1303]

Euh, pardon, j'ai fait une faute de frappe...

J'ai bien positionné Me.AllowEdits à "False"

[ClaudeLELOUP]

... et tu peux encore modifier ? Si oui, je mange mon chapeau !

[nde1303]

Mais oui !

C'est tout simplement incroyable.

Ce que je vais faire, c'est mettre progressivement en commentaire le traitement qui a lieu à l'ouverture du formulaire pour voir ce qui prend la main sur ce paramètre.

[ClaudeLELOUP]

Fais d'abord ceci.

Tu crées un nouveau formulaire avec un contrôle et Propriété "Modif autorisée" = OUI.

Constate que tu peux modifier le contrôle.

Dans l'événement "Sur Ouverture" ce code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
Private Sub Form_Open(Cancel As Integer)
Me.AllowEdits = False
End Sub

Essaie de modifier.

Résultat ?

[nde1303]

Je n'ai même pas besoin de coder ça, car j'ai déjà dans mon application un autre formulaire pour lequel cela fonctionne parfaitement.

La seule différence, c'est que sur l'autre formulaire, il y a beaucoup de traitements à l'ouverture, qui cachent des champs en fonction de certains paramètres, et qui calculent des champs non modifiables par l'utilisateur.

Je pense que c'est l'un de ces traitements qui pose problème.

[nde1303]

Donc voilà, j'ai trouvé d'où cela venait.

Quelque part dans la procédure "Sur Activation" du formulaire, je modifie la valeur d'un champ de l'enregistrement en cours. Eh bien cela a pour effet de rendre le formulaire modifiable, quel que soit l'état du paramètre AllowEdits...

[ClaudeLELOUP]

Tu m'étonnes !

Tu peux évidemment modifier à l'aide de code, mais l'utilisateur ne peut rien modifier.

En d'autres mots, si Modif autorisée est à NON et que tu modifies la valeur d'un champ par le code, Modif autorisée reste à NON et l'utilisateur ne peut rien modifier.

[nde1303]

Oui, c'est ce que je croyais aussi, mais je t'assure que c'est l'inverse qui se produit.

[ClaudeLELOUP]

Es-tu certain que dans tout ton code, tu n'as pas un

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Me.AllowEdits = True

qui, lui, modifierait la propriété.

[nde1303]

Non non, je suis formel.

J'ai mis tout le code en commentaire, à l'exception de la ligne qui modifie la valeur du champ.

[Lucky C]

Bonjour,

J'ai rencontré le même problème sur les formulaires qui contiennent un code vba modifiant les champs ou des enregistrements à l'activation ou à l'ouverture d'un Formulaire.
Le code vba désactive les propriétés :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
        Me.AllowAdditions = False
        Me.AllowDeletions = False
        Me.AllowEdits = False

et remet tout à True.

Pour contourner ce problème il faut mettre les lignes de commandes à la fin du code et rajouter Me.refresh pour remettre le tout à false.
ex:
<Votre code vba>

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 Me.AllowAdditions = False
 Me.AllowDeletions = False
 Me.AllowEdits = False
 Me.Refresh

Si ça peut aider...