Discussion :

[auriolbeach]

Salut,

J'ai cherché sur la Faq et sur le Forum (peut-être mal....) mais je n'ai pas trouvé la réponse à mon problème.

Sur un Form, je voudrais vérouiller un enregistrement complet en cliquant sur une case à cocher et le dévérouiller en recliquant dessus.
Celà éviterai à l'opérateur de modifier involontairement un enregistrement déjà validé et imprimé ( type facture...).

Merci pour votre aide

[ActionAccess]

Bonjour,

Pour empêcher l'accès à des contrôles en modification, tu peux utiliser la propriété Locked. A utiliser pour chaque contrôle que tu souhaites verrouiller.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Verrouiller_Click() 'la case à cocher s'appelle 'Verrouiller'
If Verrouiller.Value = -1 Then 'la case est cochée
Me!Control1.Locked = True
Me!Control2.Locked = True
Else
Me!Control1.Locked = False
Me!Control2.Locked = False
End If
End Sub

Si l'information est stockée dans la table (la case à cocher 'verrouiller' est alors un contrôle dépendant d'un champ dans ta table), tu peux ajouter ceci qui verrouille ou non les contrôles choisis à l'activation de l'enregistrement.

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Form_Current()
If Verrouiller.Value = -1 Then 'la case est cochée
Me!Control1.Locked = True
Me!Control2.Locked = True
Else
Me!Control1.Locked = False
Me!Control2.Locked = False
End If
End Sub

Enfin, tu peux choisir de verrouiller complètement le formulaire pour l'ensemble des enregistrements. Pour cela, utilises la commande suivante:

Code :

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

1
2
3
Private Sub cmdverrouillageComplet_Click()
Me.AllowEdits = False
End Sub

A mettre forcément sur un bouton, car si tu le mets sur la case à cocher cela la verrouille (comme l'ensemble du formulaire) et tu ne pourras plus la décocher. (Prévoir donc un bouton qui fait le contraire..)

Bon courage.

[auriolbeach]

Merci pour ton aide çà marche.

A bientôt