Discussion :

[kinof]

Bonjour j'avais déjà posté une question pour ce probleme et il avait été résolu
voici le lien
http://www.developpez.net/forums/d13...i-par-critere/

Seulement j'ai voulu refaire le même type de requete avec exactement la même syntaxe seulement l me met un message d'erreur donc je ne comprend pas puisque cela avait tres bien marché la premiere fois

Voici mon code

Code sql :

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

"UPDATE DevisLigne SET DevisLigne.[Temps Réel] = DSum('[Heure (1)]','[MO]','[Tache 1]=' & [Libelle])"

Seulement il met erreur de syntaxe dans '[Tache 1]=' et il précise "Opérateur absent"

Avez vous une idée

[madefemere]

Bonjour,
Comme j'imagine que Libelle,c'est du texte et est un variable, il faut le sortir de tes guillemets et le mettre entre '

Code :

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

1
2
"UPDATE DevisLigne SET DevisLigne.[Temps Réel] = DSum('[Heure 
(1)]','[MO]',[Tache 1]='" & [Libelle] & "')"

@+

[kinof]

Non ce n'est pas une variable. il s'agit d'une colonne de la table DevisLigne
En faite j'ai deux table avec deux colonne pour simplifier

DevisLigne ( Libelle , Temps Réel )
MO ( Tache 1 , Heure (1) )

je veux faire la somme des Heure (1) et que ca apparaisse dans Temps réel mais qu'il choisisse seulement les lignes de MO où Tache 1 est identique à Libelle

J'ai fait un petit dessin de principe pour que ce soit plus clair

[madefemere]

Bonjour,

Je crois bien que nous avons atteint la limite de la combinaison de ces trois outils dans le cas où le critère est du texte. Il y a un problème au niveau de l'interpretateur VBA je pense

Parce que
1 - si tu enregistres la requête sous MAJDevisLigne et tu lances cette requête avec un

Code :

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

Docmd.OpenQuery MAJDevisLigne

dans VBA, ça marche.

2 - Soit il faudrait re écrire le DSUM en une syntaxe SQL comme étant sous-requête. Et refaire exécuter la totalité du syntaxe en VBA. Soyons humble, n'étant pas un grand spécialiste de ce genre de choses, je laisse le soin à d'autres membres qui pourront peut-être nous donner une solution de cette façon.

3 - Moi, je te propose un petit code VBA-fonction ACCESS qui fait la même chose :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim rstDevis As DAO.Recordset
Set rstDevis = CurrentDb.OpenRecordset("DevisLigne")
With rstDevis
    .MoveFirst
    Do While Not .EOF
    .Edit
    ![Temps Réel] = Nz(DSum("[Heure (1)]", "[MO]", "[Tache 1]='" & ![Libelle] & "'"), 0)
    .Update
    .MoveNext
    Loop
End With
rstDevis.Close
Set rstDevis = Nothing

@+