OVH Cloud OVH Cloud

Select case is

10 réponses
Avatar
lolo_bob2
Bonjour =E0 tous,

J'ai un probl=E8me avec une formule select case...
J'explique comment je fais mon formulaire.
Je fais tout d'abord une requete sur la table principale de la base
J'extrait le nom de la societ=E9, le niveau de r=E9paration, le prix qui
est un champ num=E9rique.
Le niveau de reparation est une table =E0 part, dans laquelle j'ai
rentr=E9e -,niveau 1, niveau2, niveau 3.
Le nom de produit est une table =E0 part aussi.
Apres je construit mon formulaire avec societ=E9 (liste modifiable),
niveau r=E9paration (liste modifiable) nom produit (liste modifiable) et
le champ prix qui lui reste num=E9rique.
je fais un test avec 2 produits dans la table nom produit: harnais et
longe
et j'ai les 3 niveaux -,niveau1,niveau2,niveau3
Apres je vais dans les propri=E9t=E9 de la premi=E8re zone de liste
modifiable produit ainsi que sur la zone de liste modifiable
Niveau_de_r=E9paration_level_of_repair je mets:

Code :
Private Sub Niveau_de_r=E9paration_level_of_repair_AfterUpdate()
Dim NiveauRepLevel As String, NomProd As String
NiveauRepLevel =3D Niveau_de_r=E9paration_level_of_repair.Value
NomProd =3D D=E9signation_designation.Value
Select Case NiveauRepLevel
Case "-": 'Si niveau - s=E9l=E9ctionn=E9
Select Case NomProd
Case "-":
Me.Prix_price.Value =3D 0

End Select
Select Case NiveauRepLevel
Case "niveau 1": 'Si niveau 1 s=E9l=E9ctionn=E9
Select Case NomProd
Case "longe corde":
Me.Prix_price.Value =3D "18,30"
Case "harnais":
Me.Prix_price.Value =3D "20,30"

End Select

Case "niveau 2": 'Si niveau 2 s=E9l=E9ctionn=E9
Select Case NomProd
Case "longe corde":
Me.Prix_price.Value =3D "30,00"
Case "harnais":
Me.Prix_price.Value =3D "50,00"

End Select
Case "niveau 3": 'Si niveau 3 s=E9l=E9ctionn=E9
Select Case NomProd
Case "longe corde":
Me.Prix_price.Value =3D "60,00"
Case "harnais":
Me.Prix_price.Value =3D "80,00"

End Select
End Select
End Select
End Sub
Ca ne fonctionne pas comment cela ce fait il ? J'ai beau selectionner
le niveau et le produit, le prix ne s'affiche pas
Pouvez vous m'aider
Merci beaucoup
A+

10 réponses

Avatar
J-Pierre
Bonjour,

Ton code est un peu compliqué, peut-être devrais-tu faire un formulaire de test avec quelque chose de très simple pour
faciliter la recherche.

Mais je vois une chose:
Me.Prix_price.Value = "20,30" est faux si ce champ est numérique
Me.Prix_price.Value = 20.30 devrait être juste (attention au point)
Me.Prix_price = 20.30 devrait être juste (plus simplement)

Une autre remarque, ce n'est pas très bon d'avoir un prix codé en dur dans ton formulaire, ce prix devrait se trouver dans une
table et tu fais un formulaire pour le mettre à jour.

J-Pierre

a écrit dans le message de news:
Bonjour à tous,

J'ai un problème avec une formule select case...
J'explique comment je fais mon formulaire.
Je fais tout d'abord une requete sur la table principale de la base
J'extrait le nom de la societé, le niveau de réparation, le prix qui
est un champ numérique.
Le niveau de reparation est une table à part, dans laquelle j'ai
rentrée -,niveau 1, niveau2, niveau 3.
Le nom de produit est une table à part aussi.
Apres je construit mon formulaire avec societé (liste modifiable),
niveau réparation (liste modifiable) nom produit (liste modifiable) et
le champ prix qui lui reste numérique.
je fais un test avec 2 produits dans la table nom produit: harnais et
longe
et j'ai les 3 niveaux -,niveau1,niveau2,niveau3
Apres je vais dans les propriété de la première zone de liste
modifiable produit ainsi que sur la zone de liste modifiable
Niveau_de_réparation_level_of_repair je mets:

Code :
Private Sub Niveau_de_réparation_level_of_repair_AfterUpdate()
Dim NiveauRepLevel As String, NomProd As String
NiveauRepLevel = Niveau_de_réparation_level_of_repair.Value
NomProd = Désignation_designation.Value
Select Case NiveauRepLevel
Case "-": 'Si niveau - séléctionné
Select Case NomProd
Case "-":
Me.Prix_price.Value = 0

End Select
Select Case NiveauRepLevel
Case "niveau 1": 'Si niveau 1 séléctionné
Select Case NomProd
Case "longe corde":
Me.Prix_price.Value = "18,30"
Case "harnais":
Me.Prix_price.Value = "20,30"

End Select

Case "niveau 2": 'Si niveau 2 séléctionné
Select Case NomProd
Case "longe corde":
Me.Prix_price.Value = "30,00"
Case "harnais":
Me.Prix_price.Value = "50,00"

End Select
Case "niveau 3": 'Si niveau 3 séléctionné
Select Case NomProd
Case "longe corde":
Me.Prix_price.Value = "60,00"
Case "harnais":
Me.Prix_price.Value = "80,00"

End Select
End Select
End Select
End Sub
Ca ne fonctionne pas comment cela ce fait il ? J'ai beau selectionner
le niveau et le produit, le prix ne s'affiche pas
Pouvez vous m'aider
Merci beaucoup
A+
Avatar
lolo_bob2
Ok merci

Peux tu m'en dire un peu plus sur le formulaire pour la mise à jour
car je suis novice avec access et j'apprend au fur et à mesure...
Merci beaucoup
A+
Avatar
J-Pierre
Je suppose que le prix est par produit, dans ta table produit, tu rajoutes un champ prix.

Tu as un formulaire de MAJ de ta table produit ? tu rajoutes ce champ. Dans tes requêtes, tu inclus ce champ.

Si tu ne sais pas ce qu'est un formulaire de mise à jour, avant de te lancer dans du développement, achète et potasse un
bouquin ou va sur des sites de formation..

Tu trouveras des références sur http://www.mpfa.info/, le site est écrit en belge, mais très agréable :-)

Ou bien sur http://www.self-access.com/, Hervé écrit des bouquins, mais il n'est pas le seul.....

J-Pierre
Avatar
3stone
"J-Pierre"
| Tu trouveras des références sur http://www.mpfa.info/, le site est écrit en belge, mais très
agréable :-)


Détrompe toi... en français du sud-ouest à 90pc !!



--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/
Avatar
Eric
"J-Pierre"
| Tu trouveras des références sur http://www.mpfa.info/, le site est écrit en belge, mais très
agréable :-)


Détrompe toi... en français du sud-ouest à 90pc !!



Ben, viii !!!

C'est comme pour n'importe quelle hotline, c'est toujours *délocalisé* :-(

;-)
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
J-Pierre
J'envoie ta réponse à mes copains basques ?
Tu sais ce qu'ils vont faire de toi ?
Du pâté d'alouette ou de je ne sais plus quoi, ils manquent de matière première, depuis l'interdiction de la chasse.,

J-Pierre

"Eric" a écrit dans le message de news:
"J-Pierre"
| Tu trouveras des références sur http://www.mpfa.info/, le site est écrit en belge, mais très agréable :-)


Détrompe toi... en français du sud-ouest à 90pc !!



Ben, viii !!!

C'est comme pour n'importe quelle hotline, c'est toujours *délocalisé* :-(

;-)
--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr



Avatar
3stone
Salut Eric,

"Eric"
| C'est comme pour n'importe quelle hotline, c'est toujours *délocalisé* :-(


Non, mais il faut remonter au début de l'histoire...



MPFA
-----
Il était une fois, un vieux con et un gamin en culotte courte qui se promenait...



bon, j'arrête... cela me rend trop nostalgique ;-))


--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/
Avatar
Eric
Bonsoir Pierre & Jean-Pierre,

Je connais, certes, pas toute l'histoire , car je suis un vieux jeune
débarqué (ou jeune vieux au choix ;-) ), mais quand je suis venu pour la
1ere fois, j'ai eu l'occasion de me promener sur les pages de
memoaccess.free.fr (du rouge et du noir si je ne me trompe pas, coté
charte graphique) et dont je félicite l'auteur ( ou les ) qui nous fait
le plaisir de venir répondre quand il n'est pas trop loin de sa Gironde ;-)

Ce qui expliquait mon 2eme smiley à la fin du post précédent.

PS: mais bon, mon humour 'sudiste' est tombé à côté de la plaque.

Salut Eric,

"Eric"
| C'est comme pour n'importe quelle hotline, c'est toujours *délocalisé* :-(


Non, mais il faut remonter au début de l'histoire...



MPFA
-----
Il était une fois, un vieux con et un gamin en culotte courte qui se promenait...



bon, j'arrête... cela me rend trop nostalgique ;-))




--
A+
Eric
http://www.mpfa.info/
Archives : http://groups.google.fr/group/microsoft.public.fr.access?hl=fr

Avatar
lu
:-)


"Eric" a écrit dans le message de news:
Bonsoir Pierre & Jean-Pierre,

Je connais, certes, pas toute l'histoire , car je suis un vieux jeune débarqué (ou jeune vieux au choix ;-) ), mais quand je suis
venu pour la 1ere fois, j'ai eu l'occasion de me promener sur les pages de memoaccess.free.fr (du rouge et du noir si je ne me
trompe pas, coté charte graphique) et dont je félicite l'auteur ( ou les ) qui nous fait le plaisir de venir répondre quand il
n'est pas trop loin de sa Gironde ;-)

Ce qui expliquait mon 2eme smiley à la fin du post précédent.

PS: mais bon, mon humour 'sudiste' est tombé à côté de la plaque.


Avatar
3stone
"Eric"
| mais quand je suis venu pour la
| 1ere fois, j'ai eu l'occasion de me promener sur les pages de
| memoaccess.free.fr (du rouge et du noir si je ne me trompe pas, coté
| charte graphique) et dont je félicite l'auteur ( ou les ) qui nous fait
| le plaisir de venir répondre quand il n'est pas trop loin de sa Gironde ;-)



Vouii... mais ca, ce n'était pas www.mpfa.info dont parlait J-Pierre ;-)



--
A+
Pierre (3stone) Access MVP
Perso: http://www.3stone.be/
Conseils MPFA: http://www.mpfa.info/