Discussion :

[Geache]

Bonjour,

Je cherche à faire ceci :

Dans la ligne détail d'un formulaire, j'ai x champs. A la fin de la ligne détail, je veux placer un bouton qui soit visible selon la valeur du contenu d'un champ afin de déclencher, par exemple, l'ouverture d'un formulaire supplémentaire d'informations.

Par exemple :

Ligne1 : Champ1 Champ2 Champ3 Bouton1
Ligne2 : Champ1 Champ2 Champ3 Bouton1
etc

Si Champ3 de Ligne1 est à 1, Bouton1 sera invisible, sinon il sera visible sans affecter la visibilité de Bouton1 dans la ligne2.

On peut programmer des variations lors de l'impression dans un état, par exemple une alternance de couleur à chaque ligne, mais ce que je veux faire est il possible dans un Formulaire ? Je ne trouve rien à ce sujet dans la FAQ.

Merci de vos conseils.

[bigbib]

Salut,
je ne m'y connais pas de trop (pas du tout d'ailleurs ) en vba
mais je pense que si tu met:

Code :

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

1
2
3
4
5
6
7
if (champ3 = 1)
bouton1.visible=false     'pour invisible
bouton1.visible=true     'pour visible
else

endif

dans évènement/sur chargement
de ton formulaire ça devrait aller.

amicalement,
JP

[Jeannot45]

Je pense que tu t'attaques à quelque chose d'impossible.
En effet, l'affichage en mode continu d'un formulaire ne permet pas d'afficher différemment un contrôle indépendant dans les enregistrements.

(Un contrôle indépendant = contrôle qui n'a pas de source attachée)

Astuce : Dans la requête source du formulaire, tu ajoutes un champ calculé représentant une case à cocher qui sera à Vrai en fonction de la valeur de ton contrôle.
Si la case est cochée, en cliquant sur celle-ci, tu peux déclencher l'ouverture d'un autre formulaire

Bonne continuation

[Invité]

Bonjour
Je ne sais pas si cela va fonctionner dans un formulaire continu.
A l'ouverture le formulaire va se positionner sur le premier enregistrement, et va afficher ou non le bouton pour tous les enregistrements.
Par contre l"évènement déclanché par le bouton peut être différent

Code :

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

1
2
3
4
5
6
7
Private Sub MonBouton_Click()
If Me.Champ3.Value = 1 Then
MsgBox "vous ne pouvez pas...."
Else
 Procédure autorisée
End If
End Sub

[Invité]

Ah, je vois que je me suis fait doubler par Jeannot45 , pendant que j'écrivais.
Son astuce est surement mieux adaptée à ton cas.

[Geache]

Bonjour,

le .visible = true ou =false, ça, c'est du maîtrisé, en ce qui me concerne, merci quand même, mais ce qui coince, c'est en effet qu'il n'existe pas, à ma connaissance, de possibilité de modifier un contrôle indépendant ligne par ligne.

Je n'avais pas pensé à l'astuce de Jeannot, mais je vais explorer cette possibilité. Je pense en effet que c'est la meilleure de possibilités pour ce que je veux réaliser.

Réponse dans le courant de la semaine. Je ne pourrai plus me pencher sur cette programmation avant lundi ou mardi.

Merci pour vos conseils.

[Geache]

Bonjour,

Désolé, j'ai été absent une bonne semaine. Je n'ai dés lors pas donné de suivi ) ce message. J'ai utilisé l'astuce de Jeannot finalement. Ca fonctionne très bien comme cela. En vous remerciant de votre aide.