Discussion :

[DamKre]

Bonjour,

Petit souci à vous soumettre, je ne vois pas de solution.

Certains champs sont le résultat d'un calcul. En principe, ces données n'ont pas à être modifiées manuellement.

Dès lors, dans un formulaire, plusieurs champs ont donc les propriétés suivantes :

• Activé = Non
• Verrouillé = Oui

comme le montre cette capture d'écran.


Le champ possède une Mise en Forme conditionnelle, pour laquelle, si la condition est vérifiée, s'applique également la propriété "Activé = Non :"


Le tout fonctionne parfaitement en l'état:


L'utilisateur ne peut pas "aller dans" la case. C'est le résultat recherché.


Mais cela pose problème si l'utilisateur désire quand même modifier manuellement ces valeurs.

Sur clic d'un bouton à cocher, je prévois :

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub ModifManuel_AfterUpdate()
 
If ModifManuel = True Then
    LeChamp.Locked = False
    LeChamp.Enabled = True
Else
    LeChamp.Locked = True
    LeChamp.Enabled = False
End If

Et cela donne ceci :

-> Impossible de modifier le champ "55" en "32", par exemple.

Voyez-vous où cela coince ?
Merci de votre aide, toujours précieuse...

[ClaudeLELOUP]

Bonjour,

Voyez-vous où cela coince ?

Probablement ici :

Certains champs sont le résultat d'un calcul.

Si la propriété Source contrôle est du style

Code :

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

 = UnCalcul

Sa valeur n'est plus accessible, sauf à modifier le(s) élément(s) qui constitue(nt) la base du cacul.

P.-S. Et si c'est l'origine du problème, alors verrouiller et activer ne servent à rien : ils sont "par nature" inaccessibles.

[DamKre]

Bonjour,

Merci de la réponse.
Le fait qu'ils soient le résultat d'un calcul ne change rien au fond du problème - qui se pose au fond dans d'autres formulaires pour d'autres champs.
La source est un champ d'une table.

[laurent_42]

Bonjour,

Je ne sais pas si c'est vraiment en rapport mais

Sur clic d'un bouton à cocher, je prévois :

Code :

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

1
2
3
4
5
Private Sub ModifManuel_AfterUpdate()
 
If ModifManuel = True Then
    LeChamp.Locked = False
...

D'abord ce n'est pas sur le clic que l'événement se produit mais sur un "Après mis à jour".

Ensuite un bouton à cocher prend les valeurs -1/0. Du coup est-ce que le ModifManuel = True fonctionne ?
Ne faudrait-il pas plutôt un :

Code :

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

1
2
3
4
Private Sub ModifManuel_Click()
 
If ModifManuel.Value = -1 Then
...

A bientôt
Laurent

[DamKre]

Oui, cela fonctionne...
Je pense que c'est (+/-) la même chose.

[DamKre]

Je crois avoir trouvé ce qui cloche : c'est la Mise en Forme Conditionnelle, qui gardait le champ désactivé.

Donc, code pour la procédure :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
MonChamp.FormatConditions.Delete
 
 
If ModifManuel = True Then
    MonChamp.Enabled = True
    MonChamp.Locked = False
    MonChamp.FormatConditions.Add etc
 
Else
    MonChamp.Enabled = False
    MonChamp.Locked = True
    MonChamp.FormatConditions.Add etc
End If

Pour moi, plus de souci sauf...
Ai-je oublié de penser à quelque chose ?

[laurent_42]

Bonjour,

Super merci de nous avoir fait profiter de la solution.

Pour moi, plus de souci sauf...
Ai-je oublié de penser à quelque chose ?

Peut-être d'avoir passé le sujet en résolu ?

Laurent