Discussion :

[docjo]

Bonjour

J'ai une image qui doit changer selon la valeur d'un champ sexe: "homme" image d'homme et "femme" image de femme dans un formulaire continu basé sur une requête. J'ai pense au code suivant à l'ouverture du formulaire:

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
 
Private Sub Form_Open(Cancel As Integer)
 
    If Me![Sexe].Value = "Homme" Then
    Me!homme.Visible = True
    Else
    Me!homme.Visible = False
    End If
    If Me![Sexe].Value = "Femme" Then
    Me!femme.Visible = True
    Else
    Me!femme.Visible = False
    End If
 
End Sub

Mais ça marche pas. J'ai recherché sur le forum et trouvé quelques trucs http://www.developpez.net/forums/sho...=image+visible mais pas de solution. Une idée ?

Merci d'avance

[docjo]

PS: je l'ai mis sous current() et ça marche pas !

[Falcdyr]

En regardant ton code et en supposant que les deux soit a False de base ton code serait beaucoup plus simple comme ça:

Code :

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

1
2
3
4
5
6
7
8
9
 
Private Sub Form_Open(Cancel As Integer)
 
    If Me![Sexe].Value = "Homme" Then
    Me!homme.Visible = True
    Else
         Me!femme.Visible = True
    End If
End Sub

Après je ne sais pas trop pour les images mais il faut peut-être refresh la page ?

[bernardmichel]

Hello !

Du fait que - à ma connaissance - il n'y a que deux sexes "officiellement répertoriés" concernant êtres humains, pourquoi ne pas simplifier de la façon suivante :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Private Sub Form_Open(Cancel As Integer)
    If Me![Sexe].Value = "Homme" Then
         Me!homme.Visible = True
         Me!femme.Visible = False
    Else
         Me!femme.Visible = True
         Me!homme.Visible = False
    End If
End Sub

What else...

[docjo]

Merci pour vos réponses rapides.
En fait, si le champ n'est pas renseigné aucune image ne s'affiche.

Le problème est que le code marche en mode continu seulement quand on clique sur un enregistrement. Autrement, il ne s'affiche pas la bonne image. J'aimerai que la mise à jour de l'image se fasse à l'ouverture du formulaire. Quand je mets le code à 'ouverture du formulaire, ça ne marche pas !

[Domi2]

Bonjour,

Le problème est que le code marche en mode continu seulement quand on clique sur un enregistrement

En mode continu, c'est pas si simple...

Regarde cette contribution, qu'il te faudra ensuite adapter.

Domi2

[docjo]

C'est exactement la solution à mon problème. Effectivement, il faut passer par une table qui contient un objet OLE. Cela marche trés bien avec les formulaires continus !
Merci encore

[Domi2]

Bonsoir.

Merci encore

Pour l'auteur de cette géniale contribution, Vodiem, les remerciements...

Bon dév !

Domi2