Discussion :

[igour]

Bonjour,

j'ai un formulaire de saisie concernant une tarification applicable suivant des bornes.
exemples : poids inférieur ou égal à 20 g ---> tarif = 3,25
poids supérieur à 20 et inférieur ou égal à 50 g ---> tarif = 6,50
etc.
je veux qu'à la saisie du poids le tarif s'affiche automatiquement.

comment faire SVP, merci.

[Jean-Philippe André]

salut,
tu peux gérer ca dans l'évènement après MAJ.
- soit avec un Dlookup si les données sont stockées dans une table
- soit avec un Select Case si les bornes ne sont pas trop nombreuses
- soit par tout moyen que tu seras en mesure de gérer

[igour]

merci pour votre réponse.

pour la Dlookup je n'en sais rien.
j'ai essayé la select case avec le code suivant mais la valeur qui s'affiche est toujours celle de la 1ère condition même si je change le poids :

Private Sub poids_AfterUpdate()
Dim tarification
tarification = [poids]
Select Case tarification
Case Is <= 20
[prix] = "3,25"
Case Is > 20, Is <= 50
[prix] = "6,50"
End Select
End Sub

[Jean-Philippe André]

en mettant les types de données correctement au début peut-êter ?

Code :

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

1
2
3
4
5
6
7
8
9
10
Private Sub poids_AfterUpdate()
Dim tarification As Double
tarification = poids.Value
Select Case tarification
Case 0 to 19
[prix].Value = "3,25"
Case 20 to 50
[prix] = "6,50"
End Select
End Sub

[igour]

Oui maintenant ça marche, je vous en remercie beaucoup.

par la même occasion, le tarif s'affiche avec un chiffre arrondi alors que je veux qu'il s'affiche telquel "3,25"

comment faire, merci

[Jean-Philippe André]

tu peux appliquer la fonction Format() voir l'aide en ligne pour les syntaxes à adapter

[igour]

Bonjour,

c'est résolu.

dans la table en mode création j'ai choisi "standard" comme format et "réél simple" comme taille du champ.

à bientôt.