#ERREUR dans SQL

**molene34** · 16/01/2006, 22h16

Bonsoir,
Je souhaite calculer une somme de temps hebdomadaire par une requête dans une fonction, le résutat est #ERREUR !
Voici la fonction :

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
Dim dhDate As Date
Dim dhInter As String
Dim strSQL As String
Dim rs As DAO.Recordset
 
    dhDate = Me.[Date]
    dhInter = Me.IDIntervenant
 
 
     strSQL = "SELECT Sum([T-Fiche].Temps) AS SommeDeTemps FROM [T-Fiche]GROUP BY [T-Fiche].IDIntervenant, [T-Fiche].IDTRavail, DatePart("ww",dhDate)HAVING ((([T-Fiche].IDIntervenant)=" & dhInter & ") AND (([T-Fiche].IDTRavail)=17));"
 
 
Set rs = CurrentDb.OpenRecordset(strSQL, dbOpenSnapshot)
If (rs.EOF) Then
TotRécupS = 0
Else
TotRécupS = rs!SommeDeTemps
End If
End Function

Quelqu'un peut-il m'aider?
Par avance merci

**micniv** · 16/01/2006, 22h37

Slt,
déjà il te manque un espace avant "having"
Si ça ne suffit pas, pense à un "group by ... "avant having ...

J'espère que cela t'aidera ,

**keita** · 16/01/2006, 22h37

salut
Copier/Coller cette requete dans le mode SQL du QBE

Code :

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

SELECT Sum([T-Fiche].Temps) AS SommeDeTemps FROM [T-Fiche]GROUP BY [T-Fiche].IDIntervenant, [T-Fiche].IDTRavail, DatePart("ww",dhDate)HAVING ((([T-Fiche].IDIntervenant)=" & dhInter & ") AND (([T-Fiche].IDTRavail)=17));"

Mets une valeur à la place de ça: " & dhInter & "
retourne dans le QBE et execute pour voir si ta requete fonctionne et peut ramener une valeur
@+

**micniv** · 16/01/2006, 22h39

sorry pour la remarque sr le group by , j'avais lu ta requete un peu vite ...

**molene34** · 16/01/2006, 23h02

Bonsoir keita

la formulle SQL est copiée d'une requête qui fonctionne,
VBA me souligne une erreur sur "ww" , je ne comprend pas pourquoi.
Merci

**keita** · 16/01/2006, 23h42

Bah erreur sur "ww" c'est pas assez comme info, molene34; le deboggeur s'arrete donc sur la req?
@+

**micniv** · 17/01/2006, 10h14

en VBA, essaie en mettant ' a la place des " pour encadrer ww

**molene34** · 17/01/2006, 22h43

Bonsoir,
Même avec des ' ça ne fonctionne pas.
Je suis un peut perdu.
A+

**micniv** · 18/01/2006, 10h02

J'insiste : relis ta requête : as- tu remis des espaces devant GROUP et devant HAVING
De plus, comme le propose keita fais déjà marcher cette requete directement dans le QBE
Le bout du tunnel n'est pas loin !

**molene34** · 18/01/2006, 23h18

Je vais paraître idio mais qu'est que le QBE ?
et les espaces sont bien devant GROUP et devant HAVING
Merci
A+

**micniv** · 19/01/2006, 09h27

QBE = Query By Example
"C'est la grille sur laquelle vous installez les champs, critères de tris, etc. quand vous demandez Requêtes/Nouveau"

Et dans ton cas. essaies ta requete en mode SQL.
A+

**molene34** · 19/01/2006, 22h51

la fonction transformée en SQL fonctionne bien dans le QBE
Je poursuis mes recherches.
Merci
A+

**micniv** · 20/01/2006, 10h25

Le problème est que :
dhInter est déclaré comme String

alors ... il faut placer sa valeur entre quotes ' '

essaie donc

Code :

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

1
2
 
...[T-Fiche].IDIntervenant)='" & dhInter & "')  ...

Espère t'avoir aidé.

**molene34** · 21/01/2006, 22h27

Merci A+

**Petogaz** · 22/01/2006, 10h17

salut,

Envoyé par molene34

Merci A+

ça veut dire que c'est bon ? si c'est le cas n'oubli pas de mettre le tag

**molene34** · 22/01/2006, 19h43

Merci

#ERREUR dans SQL

Requêtes et SQL.

Discussions similaires

Partager

Partager