Discussion :

[gogo850]

Bonjour,

J'ai créé une base Access afin de mettre en place une méthode ABC dans une entreprise.
Je rencontre un problème au niveau du calcul du coût de l'inducteur qui doit être le montant des charges / le nombre d'inducteur.
Toutes ces informations se trouvent dans la table COUT_ACTIVITE.
J'ai essayé de faire une requête, cependant je rencontre le problème d'un dépassement de capacité.
Je suis un peu perdu entre les requêtes SQL et le VBA. J'ai un shéma type, il doit y avoir quelque chose qui coince...

Je vous mets mon fichier Access en PJ
Merci d'avance pour l'aide

[marot_r]

Quelle version de Access utilises-tu 2007 ou 2010 ?

Pourrais-tu décrire un peu le calcul que tu fais ?

Quel est le type des champs utilisés pour tes données numériques, Décimal ? Monaitaire ? Réel Double ?

Quand et où se produit ton dépassement de capacité ? Sur une somme, une division ?

A+

[gogo850]

Bonjour,

J'utilise ACCESS 2010.

Le but de mon calcul est de calculer le cout d'un inducteur = montant des charges / nbre inducteurs.
Toutes ces informations se trouvent dans la table cout_activite.
Le type de champs utilisé est numérique.
Je pense que je me plante dans ma requête, j'ai eu quelques formations dessus mais j'ai du mal à le mettre en pratique.
Je n'ai pas Access sur le poste d'où je vous écris ce message.
Je pourrais donner plus de précision ce soir.

En tout cas merci pour votre patience.

[marot_r]

Bonjour si tu peux poster le SQL de ta requête qui plante cela aiderai.

De plus je repose ma question sur le type de données car c'est numérique, certe, mais quel type de numérique ?

• Décimal ?
• Monaitaire ?
• Réel Double ?

A+

[gogo850]

Du numérique décimale...
Voici ma requête...
Je ne sais pas si cela t'inspire ?

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

[VincentNguon]

Pas la peine de te fatiguer avec du VBA si tu as toutes les données sous Access.

Crée une requête "Mise à jour" où tu spécifieras sous ton champ COUT_INDUC de la table COUT_ACTIVITES ta division ie "= [COUT_ACTIVITES].[MONTANT_CHARGES] / [COUT_ACTIVITES].[NBRE_INDUC]"

Une fois ça fait tu peux enregistrer ta requête, la voir au format SQL et l'insérer dans du code VBA si tu veux utiliser le tout.

PS : le problème dans ta requête c'est que tu ne fais rien du tout en fait Pour spécifier le champ d'une requête en VBA il faut écrire "Dtreq.[Nom_du_champ]" ou "Dtreq.Fields("Nom_du_Champ")". Ensuite je rajouterais un "Dtreq.Edit" après ton while et un "Dtreq.update" avant le movenext.

Je suis pas sur de moi, si quelqu'un peut valider ou préciser davantage.