[AC-2010] Champs calculés dans une requete

[chargeur123]

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

[vodiem]

salut chargeur123 et bienvenu,

Code :

=PRIX*CoeffPrixMAJ()

[chargeur123]

Salut Vodiem,

ma fonction

Code :

Public Function CoeffCalculer(AnneePrix As Integer)

est dans un module

je l'appel dans un champ calculé d'une requête

Code :

PrixMAJ: [TPompes]![Prix]*CoeffCalculer([TPompes]![DateDevis])

Mais ça marche pas

[vodiem]

dans une requête l'expression prixMAJ est correcte.
pourrais tu poster la fonction CoeffCalculer()?

[rjamin]

Bonjour,
Voir peut-être l'argument transmis à la fonction

Public Function CoeffCalculer(AnneePrix As Integer)

Et dans le calcul

PrixMAJ: [TPompes]![Prix]*CoeffCalculer([TPompes]![DateDevis])

DateDevis est une date et AnnéePrix ?

[chargeur123]

voici ma fonction

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

[chargeur123]

Bonjour Rajmin

DateDevis c'est entier

donc conforme a AnneePrix Integer

[chargeur123]

ma fonction est

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

[vodiem]

essai avec :

Code :

On Error Resume Next

devant ta boucle for.