Discussion :

[loucasse]

Bonjour tout le monde,

Voici ma problématique : dans un formulaire continu, j'ai une liste déroulante "Statut" et un bouton "copier". Je souhaite rendre visible le bouton en fonction de la valeur prise par la liste déroulante. Pour cela, j'ai insérer le code suivante sur la liste déroulante :

Code :

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

1
2
3
4
5
6
7
Private Sub Statut_Change()
If Me.Statut = "inscrite au PA" Then
    Me.copier.Visible = True
Else
    Me.copier.Visible = False
End If
End Sub

Cela fonctionne effectivement car lorsque la valeur de "Statut" est "inscrite au PA", mon bouton "copier" apparaît bien... Mais ils apparaît également pour tous les autres enregistrements de mon formulaire continu. Exemple ci-dessous en image :


Donc ma question : comment rendre visible mon bouton copié uniquement à partir de la valeur d'un enregistrement indépendamment des autres enregistrements.

Merci.

[Filou07]

Et si tu mets ton code dans form_current ou si tu utilises enabled à la place de visible, ça fait pareil ?

[loucasse]

En modifiant le code comme tu l'indiques, ça ne fonctionne pas mieux.

[madefemere]

Bonsoir,

Je ne pense pas que cela soit possible dans un formulaire en continu.
Comme la gestion des zones de textes indépendantes impossible aussi à gérer par VBA.

Il faudra trouver autre chose pour l'ergonomie

Cordialement

[Filou07]

Désolé

[loucasse]

Merci de vos réponses. Je laisse le post ouvert au cas où quelqu'un aurait une solution (alternative).

[Vijinn]

Bonjour.
Je viens de clore ma discussion sur le même sujet : http://www.developpez.net/forums/d15...d-case-cocher/
La bidouille est la suivante : mettre un objet OLE au-dessus du champ à masquer. Puis en VBA mettre un petit code qui affiche ou non une image semblable au fond de ton formulaire dans cet objet OLE. Ça donne l'illusion que le champ apparaît ou non suivant la condition.

Pas trouvé mieux...

[Didier L]

Bonsoir,

Effectivement dans un formulaire en mode continu nous ne pouvons pas nous servir du code VBA pour agir sur les proriété d'un champ, car dans ce cas, il l'applique a toutes les lignes. La seule solution est d'utiliser les formats conditionnels (pour rendre actif ou non un champ) mais cette dernière n'est pas disponible pour les boutons. Pour ma part, je teste le statut sur le code du bouton et dans votre cas, je ne copie (exécute mon code) que si j'ai le bon statut :

Code :

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

1
2
3
4
5
6
7
Private Sub Copier_Click()
If Me.Statut = "inscrite au PA" Then
    .... 'ce que vous vouler faire
Else
    Msgbox "Copie impossible !", vbexclamation ' par exemple
End If
End Sub

[loucasse]

Merci pour vos réponses. Il n'y a donc pas de solutions à mon problème dans l'absolu. Reste à le contourner avec différentes solutions...