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

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

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
@+

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
> @+
>

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
@+