1 membre
Connectés : ( personne )
- La Charte du Forum - Forum - Questions générale
Sujet n° 501 |
Utilisation d'une function? |
le 01/05/2011 : 16:23 par lemeruvien
visiteur |
Salut Pierre, oui me revoila!Je constate que tu n'a pas beaucoup de demande, alors me voila pour ne pas que tu t'ennuie!!Voila l'objet de ma visite, dans ma base, j'ai un form dans lequel j'ai un champ que je nome "période"Dans ce champ, à la saisie, je tape: 0511, et après MaJ je vais dans la procédure suivante:Private Sub période_AfterUpdate() CalculMois période,1End SubQui m'envoie dans la fonction CalculMois avec période= 0511Function CalculMois(moisnum,)Dim mois As String If Left(moisnum, 2) = "01" Then mois = "Janv." If Left(moisnum, 2) = "02" Then mois = "Févr." If Left(moisnum, 2) = "03" Then mois = "Mars" If Left(moisnum, 2) = "04" Then mois = "Avril" If Left(moisnum, 2) = "05" Then mois = "Mai" If Left(moisnum, 2) = "06" Then mois = "Juin" If Left(moisnum, 2) = "07" Then mois = "Juil." If Left(moisnum, 2) = "08" Then mois = "Aout" If Left(moisnum, 2) = "09" Then mois = "Sept." If Left(moisnum, 2) = "10" Then mois = "Oct." If Left(moisnum, 2) = "11" Then mois = "Nov." If Left(moisnum, 2) = "12" Then mois = "Déc." Me!période = mois & " " & Right(période1, 2)End Functionça marche tres bien, et donc mon champ période est: "Mai 11"Mon problème est que j'utilise cette formule dans 5 form différents, et donc ces deux procédures sont répétées dans chaque formulaire, donc 5 fois!Je pense que c'est pas bien?et comme je ne suis pas doué, mais que je veus toujours évoluer, je voudrais transformer ça en une seule procédure ou fonction que chaque formulaire pourait appeler!Alors, comment transformer ça, et aussi comment l'appeler en vba depuis chaque form??Merci beaucoup!roger |
|
|
Réponse n° 1 -------- le 01/05/2011 : 17:32 par 3Stone
Administrateur
|
Bonjour,
Utilise cette fonction :
Code :Function CalcMois(s) As String Dim s1 As Integer, s2 As Integer If Len(s) >= 3 Then s1 = Left(s, Len(s) - 2) s2 = Right(s, 2) If Val(s1) < 12 Then CalcMois = MonthName(s1, True) & " " & Format(s2, "00") Else CalcMois = Format(Date, "mm yyyy", 2, 2) End If End If End Function
Place la dans un module général que tu nommeras mod_calcmois par exemple.
Après, tu peux l'utiliser de n'importe ou...
Cordialement, Pierre(3stone) |
|
|
sujet actif
sujet clos
Important!
Nouveau message -
Rectifier message
Clôturer sujet
Remonter
|