Basculer entre mode édition et mode lecture seule en vba

Bonjour à tous,

Je débute en access et en vba. J'ai cependant besoin de faire un formulaire qui s'ouvre en lecture seule mais muni d'un bouton qui permette de basculer entre le mode édition et le mode lecture seule. Ainsi, si un utilisateur doit faire une modification, il active le mode en appuyant le bouton, et quand il a fini, il réappuie dessus, de sorte à se protéger des modifications intempestives.

J'ai essayé le code suivant:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub Commande34_Click() If Me.Form.AllowEdits = True Then Me.Form.AllowEdits = False MsgBox ("Les changements ont été enregistrés") Else Me.Form.AllowEdits = True MsgBox ("Vous pouvez à présent éditer l'enregistrement") End If   End Sub

---

Lorsqu'on ouvre le formulaire, il est en lecture seule. On appuie une fois sur le bouton, et il passe bien en mode édition. Mais quand je réappuie dessus, il ne repasse pas en mode lecture seule. Pourtant sur un code aussi simple, j'ai de la peine à voir ce qui peut poser problème…
Je suis conscient que ma question est sans doute stupide. Comme dit je débute vraiment et je n'ai pas réussi à trouver une réponse sur le forum. Merci aux âmes charitables qui sauront m'aider.

Cordialement,
Enheduana

bonjour,
personnellement, j'utiliserai plutôt un bouton bascule:

Pièce jointe 534685

et la propriété Type Recordset: soit Instantané c'est à dire lecture seule, soit Feuille rép.dyn.(MAJ globale) c'est à dire mise à jour possible.
1) au chargement du formulaire mettre ce code:

Code:

---

1 2 3 4 5

Private Sub Form_Load()   Me.RecordsetType = 2 ' RecordSet en lecture seule   End Sub

---

2) sur clic du bouton bascule:

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Sub btnBascule_Click()   If Me.btnBascule = 0 Then MsgBox "Les changements ont été enregistrés" Me.RecordsetType = 2 Else MsgBox "Vous pouvez à présent éditer l'enregistrement" Me.RecordsetType = 1 End If   End Sub

---

Merci beaucoup pour ta réponse! En effet, ça permet de bien passer de la lecture seule à l'ajout. Le seul souci, c'est que lorsqu'on change, on revient au début de l'enregistrement. J'aurais bien aimé avoir quelque chose où on peut parcourir les enregistrements en lecture seule jusqu'à celui qui nous intéresse, puis, si besoin, passer en mode modification pour faire ce qu'on doit, et ensuite revenir en lecture seule. Je ne sais pas si ça a du sens ce que je dis ? Est-ce possible?

Merci encore pour ton aide. J'apprécie beaucoup que tu prennes le temps de répondre à un débutant comme moi.

Et du coup, peut-être une dernière question: je me demande quand même par curiosité pourquoi mon code ne marchait pas?

Bonne soirée!
Enheduana

Citation:

---

Et du coup, peut-être une dernière question: je me demande quand même par curiosité pourquoi mon code ne marchait pas?

---

je ne sais pas, j'ai testé sur un formulaire simple, je n'ai pas eu de problème ...

Citation:

---

J'aurais bien aimé avoir quelque chose où on peut parcourir les enregistrements en lecture seule jusqu'à celui qui nous intéresse

---

Est-ce un formulaire continu ?

Non c'est un formulaire qui affiche les enregistrements les uns après les autres. Ceci dit il contient un sous formulaire, peut être que le premier problème peut venir de la ?

bonsoir,
j'ai trouvé le problème de ton premier code, il faut forcer la mise à jour de l'enregistrement avec Me.Recalc, sinon on ne peut pas changer de mode:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Private Sub Commande34_Click() If Me.AllowEdits = True Then Me.AllowEdits = False Me.Recalc MsgBox ("Les changements ont été enregistrés") Else Me.AllowEdits = True MsgBox ("Vous pouvez à présent éditer l'enregistrement") End If   End Sub

---

Cela règle tous tes problèmes

Effectivement ça marche. Merci !

bonjour,

Citation:

---

Envoyé par enheduana

Effectivement ça marche. Merci !

---

si tout est entré dans l'ordre, n'oublie pas de mettre le sujet en :resolu: