Discussion :

[enheduana]

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 :

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

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

[tee_grandbois]

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



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 :

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

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 :

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

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

[enheduana]

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

[tee_grandbois]

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 ...

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 ?

[enheduana]

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 ?

[tee_grandbois]

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 :

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

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