Discussion :

[dbzzzde]

salut,

Je cherche a compter le nombre d'enregistrement dans une requete sql avec un UNION.

Voici le code que j'ai testé mais je me prend un message d'erreur : "Erreur d'exécution '3075': Erreur de syntaxe(operateur absent) dans l'expression..."

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim sql As String
Dim SQLWhere As String
 
sql = "SELECT * FROM [MA_TABLE] WHERE [DATE_LIVRAISON]=Date() UNION SELECT * FROM [MA_TABLE] WHERE [URGENT] = -1"
 
SQLWhere = Trim(Right(sql, Len(sql) - InStr(sql, "Where ") - Len("Where ") + 1))
 
MsgBox (DCount("*", "[MA_TABLE]", SQLWhere))

Par contre ma requete fonctionne parfaitement si j'enleve la ligne du DCount.

Si qu'elqu'un a une idée ?

Merci d'avance.

[vodiem]

salut et bienvenu,

eh non, c'est pas comme ca que ca marche.
SQLWhere dans le DCount ne peut contenir l'instruction UNION.

tu peux obtenir ce que tu veux en créant une requete Ma_Table_Union construite par ta requete 'sql':

Code :

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

SELECT * FROM [MA_TABLE] WHERE [DATE_LIVRAISON]=Date() UNION SELECT * FROM [MA_TABLE] WHERE [URGENT] = -1;

tu peux ensuite utiliser le DCount:

Code :

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

MsgBox (DCount("*", "[Ma_Table_Union]"))

sinon passer par les recordsets et utiliser la fonction RecordCount de l'objet recordset.

[dbzzzde]

Merci pour ta reponse vodiem.

Voici la solution que j'ai utilisé :

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim sql As String
Dim rst As DAO.Recordset
 
sql = "SELECT * FROM [MA_TABLE] WHERE [DATE_LIVRAISON]=Date() UNION SELECT * FROM [MA_TABLE] WHERE [URGENT] = -1"
 
Set rst = CurrentDb.OpenRecordset(sql)
 
MsgBox (rst.RecordCount)

encore merci de ton aide.

DBzzzDE