[AC-2003] Fonction VBA pour access 2003 [Résolu]

[castours]

Bonjour,
J'essaie d'appliquer cette fonction sur un champ d'un sous formulaire pour que le champ CoéfCharge se remplisse automatiquement.
Les parties conditionnelles et les resultats peuvent ils etre ecrite en SQL dans le champ en question?
Les champs utilises sont Vetuste;Franchise;PctMens;QuotePartet CoéfCharge pour le resultat.
Message erreur Nombre argument incorrect lors du lancement de la fonction.
Je vous remercie de votre aide.

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
Public Function CalcPct(IdArt As Long, Nbmois As Long) As Single
Dim Vetuste As Long
Dim Franchise As Long
Dim PctMens As Single
Dim QuotePart As Long
'Dim Nbmois As Long
Vetuste = DLookup("Vetuste", "Req_LisDégra", "IdArticle = " & IdArt)
'Vetuste = DLookup("Vetuste", "R_Trouve_Data", "IdArticle = " & IdCat)
Franchise = DLookup("Franchise", "Req_LisDégra", "IdArticle = " & IdArt)
'Franchise = DLookup("Franchise", "R_Trouve_Data", "IdArticle = " & IdCat)
PctMens = DLookup("PctMens", "Req_LisDégra", "IdArticle = " & IdArt)
'PctMens = DLookup("PctMens", "R_Trouve_Data", "IdArticle = " & IdCat)
QuotePart = DLookup("QuotePart", "Req_LisDégra", "IdArticle = " & IdArt)
'QuotePart = DLookup("QuotePart", "R_Trouve_Data", "IdArticle = " & IdCat)
If Nbmois > Vetuste Then
CalcPct = QuotePart
GoTo Fin:
End If
If Nbmois < Franchise Then
CalcPct = 100
GoTo Fin:
End If
CalcPct = 100 - ((Nbmois - Franchise) * PctMens)
 
'MsgBox Chx_Art.Value
'MsgBox Chx_Ent.Value
'MsgBox Chx_Sor.Value
Nbmois = DateDiff("m", Chx_Ent, Chx_Sor)
'MsgBox "mois = " & NbMois
CoèfCharge = CalcPct(Chx_Art.Value, Nbmois) & " %"
Fin:
 
End Function

[loufab]

Bonjour,

Vu le message ce serait bien de TOUT fournir ! Notamment la ligne où tu utilises cette fonction.

Cordialement,

[castours]

Bonjour
Merci de votre aide
J'appelle cette fonction comme source dans un champ de sous formulaire pour avoir la reponse du calcul .

[loufab]

Envoyé par castours

Bonjour
Merci de votre aide
J'appelle cette fonction comme source dans un champ de sous formulaire pour avoir la reponse du calcul .

Moi aussi ça m'arrive de lancer des fonctions à partir d'une source...

N'attend pas qu'on te supplie pour nous la fournir cette ligne !

[castours]

Bonjour
Dans les propriétés du champs comme source, je mets le nom de la fonction. comme ceci =NomFonction().
Sinon je ne comprends pas votre réponse.
Merci de votre aide

[loufab]

Donc

Code :

=CalcPct()

C'est bien comme cela que tu fais l'appel ?

Parceque la fonction possède 2 paramètres obligatoires.

Tu devrais faire l'appel comme ceci :

Code :

=CalcPct([champIdArt], [champNbeMois])

Cordialement,

[castours]

Bonjour
Je vous remercie de votre aide.
Cela fonctionne.
A une autre fois
Guy

[castours]

Bonjour
J'ai crié trop vite victoire. Cela ne fonctionne pas.Message d'erreur nombre argument incorrect. Lesquelles dans la fonction?
Merci de votre aide
Guy

[loufab]

Quelle ligne ?

[castours]

Bonjour
J'ai utilisé l'appel de la fonction comme décrit plus haut.
Mais le resultat obtenu est faux. Je ne sais pas ou cela beug.
quelqu'un peut il m'aider ou me soumettre une autre solution.
Je vous remercie de votre aide.
Guy

[castours]

Bonjour
Vous m'avez repondu sur la question de resultat d'une dans un champ de sous formulaire.J'ai bien un resulat mais il est faut.
Pouvez vous m'expliquer comment resoudre ce probleme si cela est possible .
L'appel de la fonction est faite de cette maniere =CalcPct([IdArticle]![NbMois])
J'ai intégré les elements de cette base dans mon projet.
http://www.cijoint.fr/cjlink.php?fil...cijtauww7z.zip

C'est le resultat de la MsgBox que je voudrai afficher dans un champ de formulaire
Merci de votre aide

[loufab]

Bonjour,
1 seul paramètre dans cet appel !

Code :

=CalcPct([IdArticle]![NbMois])

Il faut être plus rigoureux avec les caractères séparateur de paramètres.

, avec VBA
; en dehors.

Cordialement,