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
40
|
' ***************************************************************************************
' Calcul des coûts inducteurs (unitaires) : COUT_INDUCTEUR
' ***************************************************************************************
Private Sub BTN_MAJ_Click()
Dim db As Object
Dim dbws As Object
Dim req As String
Dim Dtreq As Object
Dim MONTANT_CHARGES As Double
Dim NBRE_INDUC As Double
Dim COUT_INDUC As Double
Set dbws = DBEngine.Workspaces(0)
Set db = CurrentDb
'Sélection des champs nécessaires au calcul
req = "SELECT MONTANT_CHARGES, NBRE_INDUC, COUT_INDUC" & _
" FROM COUT_ACTIVITES"
Set Dtreq = db.OpenRecordset(req)
' On lit la première ligne (intitulé des colonnes)
Dtreq.MoveFirst
' Tend que l'on est pas à la fin
While Not Dtreq.EOF
'calcul du cout de l'inducteur
COUT_INDUC = MONTANT_CHARGES / NBRE_INDUC
Dtreq.MoveNext
Wend
End Sub |
