bonjour

J'essaie de créer une base acces qui permet de calculé le prix d'une référence, beaucoup de paramètre entre en compte (choix d'un cable, de sa longueur, choix des appareils qui se connectent aux deux extrémités de se cable, et le tout avec un prix unitaire variant suivant la quantité). J'aimerais maintenant introduire le choix de monnaie.

Étant donné qu'à l'origine ce n'est pas moi qui est créer la base et que je découvre ce logiciel j'éprouve beaucoup de difficultés à trouver une solution pour ce problème de choix de monnaie. Voici ce qu'a fait mon prédécésseur dans un module nommé 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
Function PT(Q As Integer, L As Single) As Single
On Error Resume Next   'Une erreur survient dans les calculs ci-dessous lorsque tous les champs ne sont pas remplis
                       'Pour éviter un plantage, les erreurs sont ignorées
 
 
    pt1 = DMin("Prix", "Terminis", "Termini=FChT1() and Quantité<=" & Q)  'Prix unitaire du termini1
    pt2 = DMin("Prix", "Terminis", "Termini=FChT2() and Quantité<=" & Q)  'Prix unitaire du termini2
    PC = DLookup("Cout", "Cables", "Référence=dlookup('Cable','Cable','RefHarnais=FChC()')")  'Prix unitaire pour 1m de câble
 
    Select Case Q
        Case 1 To 2
            F = 2           'F désigne le facteur multiplicatif du prix du câble selon quantité
            i = 3           'I désigne le facteur multiplicatif de la mains d'oeuvre selon quantité
        Case 3 To 4
            F = 2
            i = 2.5
        Case 5 To 9
            F = 2
            i = 2.2
        Case 10 To 24
            F = 2
            i = 2
 
    End Select
 
    PC = PC * L * F      'Prix unitaire du câble'
    MO = 20 * i          'Prix de la main d'oeuvre'
    PT = (pt1 + pt2 + PC + MO) 'Prix total d'un Harnais'
_________________________________________________________________

Et voici ce qui se trouve dans la zone de texte qui calcul le prix

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
=PT([Q1];[Longueur]/VraiFaux([Unité]=1;100;1))           Q1 étant une zone de texte, idem pour Q2 etc
=PT([Q2];[Longueur]/VraiFaux([Unité]=1;100;1))
=PT([Q3];[Longueur]/VraiFaux([Unité]=1;100;1))
=PT([Q4];[Longueur]/VraiFaux([Unité]=1;100;1))
=PT([Q5];[Longueur]/VraiFaux([Unité]=1;100;1))
=PT([Q6];[Longueur]/VraiFaux([Unité]=1;100;1))
=PT([Q7];[Longueur]/VraiFaux([Unité]=1;100;1))
Je veux maintenant intégrer le choix de la monnaix dans ce calcul de prix, j'ai essayer différentes choses (création d'une table monnaie avec une dlokkup dans la fonction pt) mais ça fonctionne pas.

Avez vous une idée sur la meilleure solution possible pour ce calcul de prix?

Merci par avance