Fonction VBA pour access 2003

**castours** · 29/06/2011, 00h07

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 :

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

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** · 29/06/2011, 08h44

Bonjour,

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

Cordialement,

**castours** · 29/06/2011, 16h20

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

**loufab** · 29/06/2011, 16h39

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** · 30/06/2011, 15h03

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** · 01/07/2011, 08h39

Donc

Code :

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

=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 :

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

=CalcPct([champIdArt], [champNbeMois])

Cordialement,

**castours** · 04/07/2011, 11h57

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

**castours** · 08/07/2011, 22h38

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** · 09/07/2011, 15h26

Quelle ligne ?

**castours** · 12/07/2011, 00h31

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** · 12/07/2011, 00h38

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