Bonjour,
j'ai une fonction dans un module CoeffPrixMAJ()
je veux calculer un champs dans une requête (PRIX est un champ d'une table)
PRIX*CoeffPrixMAJ() pour me retourner le pris après la mise a jour
mais j'ai toujours #Nom
A L'AIDE SVP
Merci
Bonjour,
j'ai une fonction dans un module CoeffPrixMAJ()
je veux calculer un champs dans une requête (PRIX est un champ d'une table)
PRIX*CoeffPrixMAJ() pour me retourner le pris après la mise a jour
mais j'ai toujours #Nom
A L'AIDE SVP
Merci
salut chargeur123 et bienvenu,
Code : Sélectionner tout - Visualiser dans une fenêtre à part =PRIX*CoeffPrixMAJ()![]()
Salut Vodiem,
ma fonction
est dans un module
Code : Sélectionner tout - Visualiser dans une fenêtre à part Public Function CoeffCalculer(AnneePrix As Integer)
je l'appel dans un champ calculé d'une requête
Mais ça marche pas
Code : Sélectionner tout - Visualiser dans une fenêtre à part PrixMAJ: [TPompes]![Prix]*CoeffCalculer([TPompes]![DateDevis])
dans une requête l'expression prixMAJ est correcte.
pourrais tu poster la fonction CoeffCalculer()?
Bonjour,
Voir peut-être l'argument transmis à la fonction
Et dans le calculPublic Function CoeffCalculer(AnneePrix As Integer)
DateDevis est une date et AnnéePrix ?PrixMAJ: [TPompes]![Prix]*CoeffCalculer([TPompes]![DateDevis])
voici ma fonction
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
34
35
36
37
38
39 Public Function CoeffCalculer(AnneePrix As Integer) Dim CoeffTotal As Double Dim CoeffTotal1 As Double Dim rst As Recordset Dim i As Integer Dim BDonnee As Database Dim TCoeff As TableDef Set BDonnee = CurrentDb Set TCoeff = BDonnee.TableDefs!TCoeffMAJPrix With BDonnee Set rst = BDonnee.OpenRecordset("TCoeffMAJPrix") rst.Index = "PrimaryKey" rst.Seek "=", AnneePrix CoeffTotal = 1 For i = (AnneePrix + 1) To Year(Date) rst.MoveNext CoeffTotal1 = CoeffTotal * rst!coeff CoeffTotal = CoeffTotal1 Next End With CoeffCalculer = CoeffTotal End Function
Bonjour Rajmin
DateDevis c'est entier
donc conforme a AnneePrix Integer
ma fonction est
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
34
35
36
37
38
39 Public Function CoeffCalculer(AnneePrix As Integer) Dim CoeffTotal As Double Dim CoeffTotal1 As Double Dim rst As Recordset Dim i As Integer Dim BDonnee As Database Dim TCoeff As TableDef Set BDonnee = CurrentDb Set TCoeff = BDonnee.TableDefs!TCoeffMAJPrix With BDonnee Set rst = BDonnee.OpenRecordset("TCoeffMAJPrix") rst.Index = "PrimaryKey" rst.Seek "=", AnneePrix CoeffTotal = 1 For i = (AnneePrix + 1) To Year(Date) rst.MoveNext CoeffTotal1 = CoeffTotal * rst!coeff CoeffTotal = CoeffTotal1 Next End With CoeffCalculer = CoeffTotal End Function
essai avec :
devant ta boucle for.
Code : Sélectionner tout - Visualiser dans une fenêtre à part On Error Resume Next
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager