Discussion :

[nomade333]

Bonjour,
J'ai la requête ci dessous et pour plus de lisibilité j'aimerais qu'elle soit en en VBA.
Je ne sais pas comment faire?
Si quelqu'un pouvait m'aider
Merci par avance

Code :

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

UPDATE R_PreEquipement INNER JOIN (T_moteur INNER JOIN T_Equipement ON T_moteur.Moteur = T_Equipement.Moteur) ON (R_PreEquipement.ReferencePre = T_Equipement.Reference) AND (R_PreEquipement.Fin = T_Equipement.Fin) SET T_Equipement.ActiviteMoteurEQ = (([ActiviteMoteur]-Int([ActiviteMoteur]))*100/60)+Int([Activitemoteur]), T_Equipement.ActiviteEquipement = (T_Equipement!ActiviteMoteurEQ-T_Equipement!ActiviteMoteuraLaPoseEQ)+T_Equipement!ActiviteEquipementALaPoseEQ, T_Equipement.PotentielEquipementEQ = R_PreEquipement!LimitePre-[ActiviteEquipement], T_Equipement.TypeEQ = R_PreEquipement!Type, T_Equipement.PreEquipementEQ = R_PreEquipement!LimitePre;

[Domi2]

Bonsoirr,

Tu peux utiliser la méthode RunSQL :

Code :

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

DoCmd.RunSQL "UPDATE..."

Domi2

[loufab]

Bonjour,
Ou encore

Code :

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

currentdb.execute "Update..."

Cordialement,

[Domi2]

Arf, pas le temps de finir d'éditer mon message.

Personnellement, je préfère la méthode Execute, dans la mesure où on peut notamment annuler les mises à jour en cas d'erreur.

Code :

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

CurrentDb.Execute "Update...", dbFailOnError

Domi2