Discussion :

[Gabout]

Bonjour,

J'ai un petit problème de syntaxe dans la requête suivante :

Code :

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

1
2
3
4
5
Dim sSQL As String
sSQL= "SELECT SPE.speageid, Min(DCount("*","MOD","[modspeid]=" & [speid])) AS iMod " & _
      "FROM CAT INNER JOIN SPE ON CAT.catid = SPE.specatid " _
      "GROUP BY SPE.speageid " _
      "HAVING (((SPE.speageid)="EQU354000500"));"

La question que je me pose également (c'est peut être l'origine du plantage) : peut-on imbriquer une fonction de regroupement du genre DCount dans une requête SQL ?

Une idée ?

[Jean-Philippe André]

salut,
j'aurais plutôt cherché directement ca:

Code :

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

1
2
3
4
sSQL= "SELECT SPE.speageid, Min(" & DCount("*","MOD","[modspeid]=" & [speid]) &") AS iMod " & _
      "FROM CAT INNER JOIN SPE ON CAT.catid = SPE.specatid " _
      "GROUP BY SPE.speageid " _
      "HAVING (((SPE.speageid)="EQU354000500"));"

qu te donne le debug.print de ssql d'ailleurs ?

[Gabout]

Re,

J'ai testé ta proposition, mais j'ai toujours une erreur de syntaxe. J'y ai modifié la fin pour supprimer les guillemets.

Code :

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

1
2
3
4
sSQL= "SELECT SPE.speageid, Min(" & DCount("*","MOD","[modspeid]=" & [speid]) &") AS iMod " & _
      "FROM CAT INNER JOIN SPE ON CAT.catid = SPE.specatid " _
      "GROUP BY SPE.speageid " _
      "HAVING (((SPE.speageid)='EQU354000500'));"

Par contre désolé je ne sais pas faire un debug.print.

[Jean-Philippe André]

dans le code, juste en dessous de sSQL = ... tapes ceci :

Code :

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

Debug.Print sSQL

Ca t'affichera la valeur de la chaine dans la fenetre d'execution.

[Gabout]

C'est ce que j'avais essayé... mais que faut-il faire après : je ne peux pas compiler parce que l'erreur de syntaxe m'en empêche

[Jean-Philippe André]

il manque les esperluettes en fin de ligne, avant les underscores

[Gabout]

Oui merci, j'avais remarqué. J'ai même légèrement changé le code comme suit :

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
Dim sSQL As String
 
sSQL = "SELECT SPE.speageid, Min(" & DCount("*", "MOD", "[modspeid]=" & [speid]) & ") AS iMod " & _
       "FROM CAT INNER JOIN SPE ON CAT.catid = SPE.specatid " & _
       "GROUP BY SPE.speageid " & _
       "HAVING (((SPE.speageid)='" & Me.ageid & "'));"
 
Debug.Print sSQL
 
Dim oRst As DAO.Recordset
Dim oDb As DAO.Database
Set oDb = CurrentDb
Set oRst = oDb.OpenRecordset(sSQL, dbOpenDynaset)
Me.Test = oRst.Fields("iMod").Value
'Libération des objets
oRst.Close: oDb.Close: Set oRst = Nothing: Set oDb = Nothing

Maintenant, je peux compiler. J'ai maintenant un message d'erreur

Erreur d'exécution 2465
Impossible de trouver le champ | auquel il est fait référence dans votre expression

[Jean-Philippe André]

- dans ton dcount, change le parametre attendu (pas de * quoi).
- enlève les apostrophes pour ton speageid s'il s'agit d'un champs numérique.

[Gabout]

Rien de 9, toujours le même message d'erreur ageid est alphanumérique

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
Private Sub Form_Current()
    Dim sSQL As String
 
    sSQL = "SELECT SPE.speageid, Min(" & DCount("[modid]", "MOD", "[modspeid]=" & [speid]) & ") AS iMod " & _
           "FROM CAT INNER JOIN SPE ON CAT.catid = SPE.specatid " & _
           "GROUP BY SPE.speageid " & _
           "HAVING (((SPE.speageid)='" & Me.ageid & "'));"
 
    Debug.Print sSQL
 
    Dim oRst As DAO.Recordset
    Dim oDb As DAO.Database
    Set oDb = CurrentDb
    Set oRst = oDb.OpenRecordset(sSQL, dbOpenDynaset)
    Me.Test = oRst.Fields("iMod").Value
    'Libération des objets
    oRst.Close: oDb.Close: Set oRst = Nothing: Set oDb = Nothing
 
    Me.cboage = Me.ageid        'Affecter à la liste déroulante le nom de l'agent actif
    Me.cboage.SetFocus          'Mettre le focus à la liste déroulante
    If IsNull(Me.agenom) Then
        Me.Caption = "Saisie d'un nouvel agent"
    Else
        Me.Caption = "Fiche de " & PremMajMotsComp(Me.agepre) & " " & Me.agenom
    End If
End Sub

Le plantage se situe toujours sur le sSQL

[Jean-Philippe André]

ok,
que te retourne:

Code :

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

msgbox DCount("[modid]", "MOD", "[modspeid]=" & [speid])

[Gabout]

Désolé jpcheck je pense qu'il faut que je revoie ma copie... j'ai l'impression que la requête (crée dans le requêteur) sur laquelle je me suis basé pour écrire ma requête SQL est peut être erronée.

Embarrassé de t'avoir fait perdre ton temps. Je sens que je vais avoir du boulot à la maison ce soir

[Jean-Philippe André]

vilain va