Je reviens vous voir avec un problème de constantes ; j'ai deux
constantes à déclarer :
Const GP =15
Const PRO=40.66
Dans mon sous-form, j'ai 3 champs : TypeLicence ; superficieKm2 ;Montant
TypeLicence contient une liste de choix avec GP ou PRO; si je choisi GP
et que dans le champ SuperficieKm2 j'inscris3, le champ Montant doit
être égal à 45 .
Le souci est que je sais faire une petite fonction pour une seule
constante ( Eric et 3 stone m'ont expliqué en fin de semaine dernière )
mais là, avec deux valeurs et e nmodifiant la fonction, ça ne fonctionne
pas ; mon champ Montant m'affiche 0 ; j'ai essayé à peu près tout ce que
je sais faire ( ou plutôt le peu que je sais faire ;-) ) et je n'y
arrive pas
Voilà ma petite fonction :
Private Function MonTotal(UneSomme As Long)
If UneSomme = GP Then
MonTotal = UneSomme * GP
Else
MonTotal = UneSomme * PRO
End If
End Function
Par contre, je ne sais pas comment, dans mon appel, faire référence à
l'une ou l'autre de ces constantes de façon à ce que le résultat soit le
suivant :
Pour exemple-------------> TypeLicence = PRO Superficie = 2 Montant =
81.32 ?
TypeLicence=GP
Superficie=4 Montant= 60 ?
Merci de votre aide
J'espère que je me suis bien expliqué !
--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Bonjour *3stone* Dans ton message de news:, Tu as pensé très fort :-(*)
Salut,
Re 3stone,
J'aurais même fait :
if IsNull(TypeLicence) then Msgbox "Sélectionnez un type de licence !" TypeLicence.SetFocus else Montant = val(TypeLicence.Column(1)) * Nz(SuperficieKm2, 0) end if
Effectivement c'est mieux ;-) Ce qui me plait la dedans ( hormis l'obligation de saisir dans TypeLicence ) c'est que la syntaxe me plait mieux car il n'y a qu'une fois Nz ; c'est un truc que je ne maîtrise pas bie net j'ai du mal à bie nle placer dans une syntaxe ; et je vois que dans la tienne il n'apparaît qu'une seule fois alors que moi je me le tapais deux fois ( remarque, c'était deux fois la même chose ;-) ) Mais bon, je me rappelle m'être un peu embêté avec ce truc là, donc je retiens la tienne ;-) D'ailleurs ma pauvre petite tête va finir par exploser à force de retenir tes géniales syntaxes ! Heureusement que le Doliprane existe lol
L'utilisation de la variable est à conseiller si à partir de là, elle sert dans une série de calcul... ce qui n'est pas le cas ici ! Autant utiliser la source de la donnée.
Je prends note de ça ; à l'avenir je saurais me rappeler ce que tu m'expliques pour savoir si je dois mettre en source ou si ça vaut la peine d'utiliser des variables
PS : je viens de mefaire une petite fonction rapide en rajoutant un champ PrixUnitaire dans mon appli ; il se remplit en fonction du critère choisi ( GP ou PRO ) et vient juste avant le résultat final ( qui correspond à la fonction de calcul que tu m'as faite et expliqué ) ; je me suis souvenu de ce que tu m'as indiqué et j'en ai fait une où il n'y a pas de calcul dedans ( j'en avais pas besoin ) ; j'ai bien fait mon appel en suivant tes conseils et....................................................ça fonctionne pil poil ! ! ! Ca ne me sert pas à grand chose dans l'appli mais cela m'apprends ! c'est une façon de s'entrainer sans perdre de temps et mettant en application toutes tes explications et tes conseils géniaux !
Encore merci pour tout Pierre Bonne fin de soirée
-- @+ Ayrton http://cerbermail.com/?ljOK1CRTMt Recherche dans les Archives : http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr Charte NG : http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Bonjour *3stone*
Dans ton message de news:OLfkuRW6FHA.3588@TK2MSFTNGP15.phx.gbl,
Tu as pensé très fort :-(*)
Salut,
Re 3stone,
J'aurais même fait :
if IsNull(TypeLicence) then
Msgbox "Sélectionnez un type de licence !"
TypeLicence.SetFocus
else
Montant = val(TypeLicence.Column(1)) * Nz(SuperficieKm2, 0)
end if
Effectivement c'est mieux ;-)
Ce qui me plait la dedans ( hormis l'obligation de saisir dans
TypeLicence ) c'est que la syntaxe me plait mieux car il n'y a qu'une
fois Nz ; c'est un truc que je ne maîtrise pas bie net j'ai du mal à bie
nle placer dans une syntaxe ; et je vois que dans la tienne il
n'apparaît qu'une seule fois alors que moi je me le tapais deux fois (
remarque, c'était deux fois la même chose ;-) ) Mais bon, je me
rappelle m'être un peu embêté avec ce truc là, donc je retiens la tienne
;-)
D'ailleurs ma pauvre petite tête va finir par exploser à force de
retenir tes géniales syntaxes ! Heureusement que le Doliprane existe
lol
L'utilisation de la variable est à conseiller si à partir de là, elle
sert dans une série de calcul... ce qui n'est pas le cas ici !
Autant utiliser la source de la donnée.
Je prends note de ça ; à l'avenir je saurais me rappeler ce que tu
m'expliques pour savoir si je dois mettre en source ou si ça vaut la
peine d'utiliser des variables
PS : je viens de mefaire une petite fonction rapide en rajoutant un
champ PrixUnitaire dans mon appli ; il se remplit en fonction du critère
choisi ( GP ou PRO ) et vient juste avant le résultat final ( qui
correspond à la fonction de calcul que tu m'as faite et expliqué ) ; je
me suis souvenu de ce que tu m'as indiqué et j'en ai fait une où il n'y
a pas de calcul dedans ( j'en avais pas besoin ) ; j'ai bien fait mon
appel en suivant tes conseils
et....................................................ça fonctionne pil
poil ! ! ! Ca ne me sert pas à grand chose dans l'appli mais cela
m'apprends ! c'est une façon de s'entrainer sans perdre de temps et
mettant en application toutes tes explications et tes conseils géniaux !
Encore merci pour tout Pierre
Bonne fin de soirée
--
@+
Ayrton
http://cerbermail.com/?ljOK1CRTMt
Recherche dans les Archives :
http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr
Charte NG :
http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
Bonjour *3stone* Dans ton message de news:, Tu as pensé très fort :-(*)
Salut,
Re 3stone,
J'aurais même fait :
if IsNull(TypeLicence) then Msgbox "Sélectionnez un type de licence !" TypeLicence.SetFocus else Montant = val(TypeLicence.Column(1)) * Nz(SuperficieKm2, 0) end if
Effectivement c'est mieux ;-) Ce qui me plait la dedans ( hormis l'obligation de saisir dans TypeLicence ) c'est que la syntaxe me plait mieux car il n'y a qu'une fois Nz ; c'est un truc que je ne maîtrise pas bie net j'ai du mal à bie nle placer dans une syntaxe ; et je vois que dans la tienne il n'apparaît qu'une seule fois alors que moi je me le tapais deux fois ( remarque, c'était deux fois la même chose ;-) ) Mais bon, je me rappelle m'être un peu embêté avec ce truc là, donc je retiens la tienne ;-) D'ailleurs ma pauvre petite tête va finir par exploser à force de retenir tes géniales syntaxes ! Heureusement que le Doliprane existe lol
L'utilisation de la variable est à conseiller si à partir de là, elle sert dans une série de calcul... ce qui n'est pas le cas ici ! Autant utiliser la source de la donnée.
Je prends note de ça ; à l'avenir je saurais me rappeler ce que tu m'expliques pour savoir si je dois mettre en source ou si ça vaut la peine d'utiliser des variables
PS : je viens de mefaire une petite fonction rapide en rajoutant un champ PrixUnitaire dans mon appli ; il se remplit en fonction du critère choisi ( GP ou PRO ) et vient juste avant le résultat final ( qui correspond à la fonction de calcul que tu m'as faite et expliqué ) ; je me suis souvenu de ce que tu m'as indiqué et j'en ai fait une où il n'y a pas de calcul dedans ( j'en avais pas besoin ) ; j'ai bien fait mon appel en suivant tes conseils et....................................................ça fonctionne pil poil ! ! ! Ca ne me sert pas à grand chose dans l'appli mais cela m'apprends ! c'est une façon de s'entrainer sans perdre de temps et mettant en application toutes tes explications et tes conseils géniaux !
Encore merci pour tout Pierre Bonne fin de soirée
-- @+ Ayrton http://cerbermail.com/?ljOK1CRTMt Recherche dans les Archives : http://groups.google.fr/group/microsoft.public.fr.windowsxp?hl=fr Charte NG : http://support.microsoft.com/directory/worldwide/fr/newsgroup/regles.htm
