enchainement de 2 conditions pour l'affichage d'un formulaire !!!

Le
lorenzo
Bonjour !!!

Voila le topo
j'ai une liste deroulante pour aller chercher un N° ([Numero_ADP])
mias je voudrais aussi, que suivant la valeur de mon champs (Indicateur)
les images52, 53, 54 s'affichent.

Mon code est le suivant mais il ne marche pas
pouvez vous m'aider svp.

--
Private Sub Modifiable46_AfterUpdate()
' Rechercher l'enregistrement correspondant au contrôle.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Numero_ADP] = '" & Me![Modifiable46] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Exit Sub
Me.Image52.Visible = (Nz(Me.Indicateur, 0) = 1)
Me.Image53.Visible = (Nz(Me.Indicateur, 0) = 2)
Me.Image54.Visible = (Nz(Me.Indicateur, 0) = 3)

End Sub

--

Cordialement

Laurent
Vidéos High-Tech et Jeu Vidéo
Téléchargements
Vos réponses
Gagnez chaque mois un abonnement Premium avec GNT : Inscrivez-vous !
Trier par : date / pertinence
Fabien
Le #18986371
lorenzo a écrit :
Bonjour !!!

Voila le topo ...
j'ai une liste deroulante pour aller chercher un N° ([Numero_ADP])
mias je voudrais aussi, que suivant la valeur de mon champs (Indicateur)
les images52, 53, 54 s'affichent.

Mon code est le suivant mais il ne marche pas ...
pouvez vous m'aider svp....

-----------------------------------------------------------------
Private Sub Modifiable46_AfterUpdate()
' Rechercher l'enregistrement correspondant au contrôle.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Numero_ADP] = '" & Me![Modifiable46] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Exit Sub
Me.Image52.Visible = (Nz(Me.Indicateur, 0) = 1)
Me.Image53.Visible = (Nz(Me.Indicateur, 0) = 2)
Me.Image54.Visible = (Nz(Me.Indicateur, 0) = 3)

End Sub

-----------------------------------------------------------------

Cordialement

Laurent


Salut Laurent
Je pense au premier abord que c'est le exit sub qui est en cause et en trop.
ou alors il te manque un else
If Not rs.EOF Then
Me.Bookmark = rs.Bookmark
Exit Sub
else
> Me.Image52.Visible = (Nz(Me.Indicateur, 0) = 1)
> Me.Image53.Visible = (Nz(Me.Indicateur, 0) = 2)
> Me.Image54.Visible = (Nz(Me.Indicateur, 0) = 3)
End if
@+
lorenzo
Le #18986901
Merci pour ton aide Fabien ;)
mais je n'y arrive pas !!!
si tu as une idee plus precise je suis preneur ...

Amicalement

Laurent

"Fabien" a écrit :

lorenzo a écrit :
> Bonjour !!!
>
> Voila le topo ...
> j'ai une liste deroulante pour aller chercher un N° ([Numero_ADP])
> mias je voudrais aussi, que suivant la valeur de mon champs (Indicateur)
> les images52, 53, 54 s'affichent.
>
> Mon code est le suivant mais il ne marche pas ...
> pouvez vous m'aider svp....
>
> -----------------------------------------------------------------
> Private Sub Modifiable46_AfterUpdate()
> ' Rechercher l'enregistrement correspondant au contrôle.
> Dim rs As Object
>
> Set rs = Me.Recordset.Clone
> rs.FindFirst "[Numero_ADP] = '" & Me![Modifiable46] & "'"
> If Not rs.EOF Then Me.Bookmark = rs.Bookmark
> Exit Sub
> Me.Image52.Visible = (Nz(Me.Indicateur, 0) = 1)
> Me.Image53.Visible = (Nz(Me.Indicateur, 0) = 2)
> Me.Image54.Visible = (Nz(Me.Indicateur, 0) = 3)
>
> End Sub
>
> -----------------------------------------------------------------
>
> Cordialement
>
> Laurent
Salut Laurent
Je pense au premier abord que c'est le exit sub qui est en cause et en trop.
ou alors il te manque un else
If Not rs.EOF Then
Me.Bookmark = rs.Bookmark
Exit Sub
else
> Me.Image52.Visible = (Nz(Me.Indicateur, 0) = 1)
> Me.Image53.Visible = (Nz(Me.Indicateur, 0) = 2)
> Me.Image54.Visible = (Nz(Me.Indicateur, 0) = 3)
End if
@+



lorenzo
Le #18987341
Ca y est en fait j'ai reussi ...
en tout cas merci pour ton aide ...

Mais une autre question ... avec le selecteur d'enregistrement en bas du
formulaire comment pourrais je faire apparaitre les images en fonction de la
valeur du champ "Indicateur"

Merci par avance

Laurent

"lorenzo" a écrit :

Merci pour ton aide Fabien ;)
mais je n'y arrive pas !!!
si tu as une idee plus precise je suis preneur ...

Amicalement

Laurent

"Fabien" a écrit :

> lorenzo a écrit :
> > Bonjour !!!
> >
> > Voila le topo ...
> > j'ai une liste deroulante pour aller chercher un N° ([Numero_ADP])
> > mias je voudrais aussi, que suivant la valeur de mon champs (Indicateur)
> > les images52, 53, 54 s'affichent.
> >
> > Mon code est le suivant mais il ne marche pas ...
> > pouvez vous m'aider svp....
> >
> > -----------------------------------------------------------------
> > Private Sub Modifiable46_AfterUpdate()
> > ' Rechercher l'enregistrement correspondant au contrôle.
> > Dim rs As Object
> >
> > Set rs = Me.Recordset.Clone
> > rs.FindFirst "[Numero_ADP] = '" & Me![Modifiable46] & "'"
> > If Not rs.EOF Then Me.Bookmark = rs.Bookmark
> > Exit Sub
> > Me.Image52.Visible = (Nz(Me.Indicateur, 0) = 1)
> > Me.Image53.Visible = (Nz(Me.Indicateur, 0) = 2)
> > Me.Image54.Visible = (Nz(Me.Indicateur, 0) = 3)
> >
> > End Sub
> >
> > -----------------------------------------------------------------
> >
> > Cordialement
> >
> > Laurent
> Salut Laurent
> Je pense au premier abord que c'est le exit sub qui est en cause et en trop.
> ou alors il te manque un else
> If Not rs.EOF Then
> Me.Bookmark = rs.Bookmark
> Exit Sub
> else
> > Me.Image52.Visible = (Nz(Me.Indicateur, 0) = 1)
> > Me.Image53.Visible = (Nz(Me.Indicateur, 0) = 2)
> > Me.Image54.Visible = (Nz(Me.Indicateur, 0) = 3)
> End if
> @+
>


Fabien
Le #18987491
lorenzo a écrit :
Ca y est en fait j'ai reussi ...
en tout cas merci pour ton aide ...

Mais une autre question ... avec le selecteur d'enregistrement en bas du
formulaire comment pourrais je faire apparaitre les images en fonction de la
valeur du champ "Indicateur"

Merci par avance

Laurent

"lorenzo" a écrit :

Merci pour ton aide Fabien ;)
mais je n'y arrive pas !!!
si tu as une idee plus precise je suis preneur ...

Amicalement

Laurent

"Fabien" a écrit :

lorenzo a écrit :
Bonjour !!!

Voila le topo ...
j'ai une liste deroulante pour aller chercher un N° ([Numero_ADP])
mias je voudrais aussi, que suivant la valeur de mon champs (Indicateur)
les images52, 53, 54 s'affichent.

Mon code est le suivant mais il ne marche pas ...
pouvez vous m'aider svp....

-----------------------------------------------------------------
Private Sub Modifiable46_AfterUpdate()
' Rechercher l'enregistrement correspondant au contrôle.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Numero_ADP] = '" & Me![Modifiable46] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
Exit Sub
Me.Image52.Visible = (Nz(Me.Indicateur, 0) = 1)
Me.Image53.Visible = (Nz(Me.Indicateur, 0) = 2)
Me.Image54.Visible = (Nz(Me.Indicateur, 0) = 3)

End Sub

-----------------------------------------------------------------

Cordialement

Laurent


Salut Laurent
Je pense au premier abord que c'est le exit sub qui est en cause et en trop.
ou alors il te manque un else
If Not rs.EOF Then
Me.Bookmark = rs.Bookmark
Exit Sub
else
> Me.Image52.Visible = (Nz(Me.Indicateur, 0) = 1)
> Me.Image53.Visible = (Nz(Me.Indicateur, 0) = 2)
> Me.Image54.Visible = (Nz(Me.Indicateur, 0) = 3)
End if
@+







Re,
tu peux faire me("Image5" & me.indicateur).visible= true
a condition que le champ indicateur ne soit pas nul.
@+
Publicité
Poster une réponse
Anonyme