Discussion :

[el_quincho]

Bonjour,

Je dois faire un algorithme pour mettre a jour le budget a partir des factures deja rentré.

Je veux faire quelque chose comme ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
for each facture in tableFacture
               docmd.runsql...
 
          next facture

Mais je sais pas comment exprimer en VB l'expression facture in tableFacture.

Merci de me donner une piste

[Tofalu]

Bonjour

Deux possibilités

• Une requête SQL Action qui modifie les données (UPDATE)
• Si les calculs sont complexes, alors il faut envisager le parcours de la table avec un recordset cf : http://warin.developpez.com/access/dao

[marot_r]

Salut, très beau code orienté objet mais, mauvaise nouvelle, Access n'est pas vraiment orienté objet :-). C'est de la programmation procédurale avec des objets.

La solution est la suivante :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
 
dim db as database:set db=currentdb
dim rFacture as recordset
set rFacture=db.openrecordset("TableFacture",dbOpenDynaset)
do while not rFacture.eof
   'Faire ici le traitement
   rFacture.movenext
loop
rFacture.close:set rFacture=nothing
db.close:set db=nothing

Ton code pourrait marché si tu faisais tu utilisais une 'Collection' de 'modules de classe' l'équivalent d'Objets en Access mais de toute façon il faudrait que tu charge les données dans tes modules de classe.

A+

[Shansson]

Bonjour,

La mise à jour du budget correspond-t'elle a une mise à jour d'une table ou bien d'un champ d'une table ?

En gros, ton budget correspond-t'il simplement à la somme des montants de X factures répondants à N critères ? Si oui, il te suffirait de faire quelque chose dans le genre :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Dim lngBudget as Long
lngBudget = DSum("[MontantFacture]","[tableFacture]")

(mince pas assez rapide sur ce coup)

[el_quincho]

en fait j'ai une table budget avec plusieurs champs

Je recupere le montant de la facture je fais une requete update pour mettre a jour un champ de la table budget grace a un calcul puis a partir de ce champ mis a jour je fais une autre requete update qui met a jour par un calcul un autre champ de la table budget

Je voudrais executer c'est 2 mise a jour dans la boucle for each ou do until je verrais apres lequel est le plus rapide

[el_quincho]

J'ai crée une fonction comme indiqué dans le message plus haut avec do while et je veut executer une requete update dans le traitement.

J'ai un probleme dans ma requete de mise a jour :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
DoCmd.RunSQL ("UPDATE budget2 SET budget2.[Factures reçues selon contrat] = budget2.[Factures reçues selon contrat] + [facture]![montan]  WHERE (((budget2.Idbudget)=[facture]![recupidbudget]));")

Access me demande la valeur du parametre [facture]![montan] qui est un champ de ma table facture

Est ce que dans le recordset y faudrait que je lui dise que j'ai besoin du champs montan?

[el_quincho]

J'ai crée une fonction comme indiqué dans le message plus haut avec do while et je veut executer une requete update dans le traitement.

J'ai un probleme dans ma requete de mise a jour :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
DoCmd.RunSQL ("UPDATE budget2 SET budget2.[Facturesreçuesseloncontrat] = budget2.[Factures reçues selon contrat] + [facture]![montan]  WHERE (((budget2.Idbudget)=[facture]![recupidbudget]));")

Access me demande la valeur du parametre [facture]![montan] qui est un champ de ma table facture

Est ce que dans le recordset y faudrait que je lui dise que j'ai besoin du champs montan?

[marot_r]

il ne manquerait pas un t à la fin de montan ?

A+