Discussion :

[amartik]

Bonsoir à tous j'ai un module avec une requête en Count pour afficher la valeur dans une zone de texte, jusque ici pas de problème la valeur s'affiche correctement dans la zone de texte. Je viens de voir que j'ai des doublons donc j'ai essayé de mettre un DISTINCT mais ça ne marche pas

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
Function Sco_lex_hiver(Annee As Long)
Dim Rst As DAO.Recordset
Dim Db As DAO.Database
Dim Source As String
Set Db = CurrentDb

Source = "SELECT Count(DISTINCT INSCRITS.Num_enfant)FROM INSCRITS, SEMAINES, ENFANTS WHERE ENFANTS.Num_enfant = INSCRITS.Num_enfant AND INSCRITS.Num_semaine=SEMAINES.Num_semaine And Scolarise_lexy = True And SEMAINES.Nom IN ('H-1','H-2')  And SEMAINES.Annee= " & Annee & ";"
Set Rst = Db.OpenRecordset(Source, dbOpenDynaset)

Sco_lex_hiver = Rst.Fields(0)

Rst.Close
Db.Close
Set Rst = Nothing
Set Db = Nothing

End Function

Erreur syntaxe opérateur absent dans l'expression (...)

[LedZeppII]

Bonsoir,

Effectivement, DISTINCT n'est accepté qu'immédiatement derrière SELECT.

Transforme ta requête en requête SELECT DISTINCT et compte le nombre d'enregistrements retournés :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Source = "SELECT DISTINCT INSCRITS.Num_enfant FROM INSCRITS, SEMAINES, ENFANTS " & _
         "WHERE ENFANTS.Num_enfant = INSCRITS.Num_enfant " & _
         "AND INSCRITS.Num_semaine = SEMAINES.Num_semaine " & _
         "And Scolarise_lexy = True And SEMAINES.Nom IN ('H-1','H-2')  And SEMAINES.Annee= " & Annee & ";"
 
Set Rst = Db.OpenRecordset(Source, dbOpenDynaset)
If Not Rst.EOF Then
    Rst.MoveLast
    Sco_lex_hiver = Rst.Recordcount
Else
    Sco_lex_hiver = 0
End If

A+