Discussion :

[sesmar]

Bonjour,

Pourriez-vous m'éclairer...

J'affiche une table contact dans un formulaire, un des champs de la table est une case à cocher qui a pour utilité d'archivé un contact sans devoir le supprimer.

Je fais donc simplement un filtre pour ne plus le rendre disponible via une requête.

Dans la pratique je voudrais "simplement" à l'affichage du formulaire qui est en mode feuille de donnée verrouiller les champs si la case à cocher nommée cont_archive est cochée.

Et bien entendu si on décoche la case rendre de nouveau les autres champs déverrouillés.

Pouvez-vous m'éclairer car quand je modifie via me.cont_nom.Enableb = True ou False cela verrouille tous les enregistrements et pas uniquement celui que j'ai coché.

Merci de votre aide.

[Orion34080]

Bonjour,

Je ne sais si cela peut t'aider, mais pour ma part, dans l'évènement "Sur activation" du formulaire, je placerais un test pour évaluer si la case est ou non cochée.

Si elle est cochée, une à une, je verrouillerais les rubriques qui doivent l'être et si pas cochée, toujours une à une, je les déverrouillerais.

Rajout :
Bien sur je mettrais ce même code de test dans l'évênement "Sur Modification" de la case à cocher elle-même pour le cas où l'utilisateur souhaiterait la décocher (ou la cocher, si elle ne l'était pas).

Michel

[sesmar]

Mon problème c'est que dans l'affichage, en feuille de données, il y a plusieurs fois le champ [cont_nom] et çà bloque donc tous les champs du même nom dans le recordset.
J'ai essayé Me.cont_nom(2) pour faire la mise à jour uniquement sur le 2eme mais ca ne fonctionne pas.
Une idée ?

[Domi2]

Bonjour,

Cela doit fonctionner sans autre, pour autant que ta case à cocher ne soit pas indépendante et que tu utilises les bons événements, soit Sur Activation de ton formulaire et Sur clic de ta case à cocher.

Exemples de code :

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 Form_Current()
 
    Select Case Me.chkVinSelection
 
        Case Is = True
 
            Me.txtVinRegion.Locked = True
            Me.txtVinCouleur.Locked = True
 
        Case Else
 
            Me.txtVinRegion.Locked = False
            Me.txtVinCouleur.Locked = False
 
    End Select
 
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 chkVinSelection_Click()
 
    Select Case Me.chkVinSelection
 
        Case Is = True
 
            Me.txtVinRegion.Locked = True
            Me.txtVinCouleur.Locked = True
 
        Case Else
 
            Me.txtVinRegion.Locked = False
            Me.txtVinCouleur.Locked = False
 
    End Select
 
End Sub

La valeur de la case à cocher chkVinSelection est évaluée lors de chaque changement d'enregistrement ou de chaque événement Sur clic et les champs txtVinRegion et txtVinCouleur sont verrouillés ou déverrouillés en conséquence.

Domi2

[Edit] Pas fait attention, c'est déjà exactement ce que te disait Orion34080 plus haut !

[Orion34080]

Pour Domi2

[Edit] Pas fait attention, c'est déjà exactement ce que te disait Orion34080 plus haut !

Bonsoir : oui, mais ... avec une grosse différence : tu as eu le courage de coder... et par les temps qui courent (quelle chaleur !) il fallait le faire !

Michel
[Edit] Je crois quand même que ce qui l'embarasse c'est que dans les solutions que nous proposons, comme tu le dis plus haut :

pour autant que ta case à cocher ne soit pas indépendante

... et j'ai bien l'impression que là est son problème... sa case à cocher doit l'être.