Discussion :

[Sylcoco]

Bonjour,

J'ai un formulaire dont tous les champs sont verrouillés.
Je souhaiterai par l'intermédiaire d'un bouton déverrouiller les champs pour modification et qu'ils soient de nouveaux verrouillés à la fermeture du formulaire.
Au clic sur le bouton je souhaiterai un message du genre "Voulez-vous modifier ?" à valider par Oui ou Non.

D'avance merci pour l'aide qui pourrait m'être apportée.

Sylvain

[loufab]

Bonjour,

On peut jouer avec la propriété du formulaire AllowEdit.

Cordialement,

[Sylcoco]

Loufab bonjour,

Merci pour votre réponse.
Mais je n'ai pas les connaissances suffisantes en VBA pour faire seul.

Cordialement,

[hyperion13]

Salut
Une autre méthode
A copier dans le module standard du frm.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Option Compare Database
Option Explicit
Dim ctrl As Control
Dim ctrlLockUnlock As Boolean
Private Sub Form_Current()
 
    Me.btnLockUnlock.Caption = "Modifier ?"
 
    ctrlLockUnlock = (Me.btnLockUnlock.Caption = "Modifier ?") ' La légende est "Modifier", ctrlLockUnlock est alors VRAI
    'on parcourt tous les contrôles du frm pour verrouiller tous
    'ceux qui ont la valeur "LockMe" dans la propriété Remarque (Tag)
    For Each ctrl In Me.Controls
        If ctrl.Tag = "LockMe" Then
            ctrl.Locked = ctrlLockUnlock
        End If
    Next ctrl
End Sub

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub btnLockUnlock_Click()
 
    ctrlLockUnlock = (Me.btnLockUnlock.Caption = "Modifier ?")
 
    If ctrlLockUnlock Then ' Si la légende est "Modifier"
        Me.btnLockUnlock.Caption = "Verrouiller ?" ' alors la légende passe à "Verrouiller"
    Else
        Me.btnLockUnlock.Caption = "Modifier ?" ' sinon la légende passe à "Modifier"
    End If
    'on parcourt tous les contrôles du frm pour déverrouiller tous
    'ceux qui ont la valeur "LockMe" dans la propriété Remarque (Tag)
    For Each ctrl In Me.Controls
        If ctrl.Tag = "LockMe" Then
            ctrl.Locked = Not ctrlLockUnlock
        End If
    Next ctrl
End Sub

[Sylcoco]

Bonsoir,

Merci beaucoup pour votre aide.
Si j'ai compris, désolé mais je débute, je dois d'abord créer les deux boutons comme sur votre capture d'écran.
Ensuite je dois coller votre code dans le module standard : clic droit sur le formulaire puis insertion de module puis coller le code. J'ai fait.
Ensuite que faut-il faire au niveau des boutons ?

Merci,

Sylvain

[hyperion13]

Salut
Modifier ? et Verrouiller ? sont un et un seul même btn de commande. La légende change lorsque l'on clique dessus.
Si votre btn de commande est nommé btnLockUnlock alors recopier le 2ème code Post#4 sinon vous adaptez à votre interface.

[Sylcoco]

Bonsoir,

Pourriez-vous vérifier ?
Je pense ne pas procéder de la bonne manière.
D'avance merci,

Sylvain