enchainement de 2 conditions pour l'affichage d'un formulaire !!!
4 réponses
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)
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Fabien
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)
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 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)
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
@+
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)
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
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 @+
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
@+
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
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 > @+ >
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
> @+
>
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
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)
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. @+
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)
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.
@+
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)
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. @+