[VBA] Erreur avec fonction Dcount

Version imprimable

Code:

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
27
28
29
30
31
32
Private Sub RefreshQuery()
Dim sql As String
Dim SQLWhere As String
 
sql = "SELECT Gestion.CDMATN, IP5_1FIDS_SALARN.NOMSAN, IP5_1FIDS_SALARN.PRENON, Gestion.Metier, Gestion.Trimestre, Gestion.Annee,Planning.[Num Planning] "
sql = sql & "FROM Planning INNER JOIN (Metier INNER JOIN (IP5_1FIDS_SALARN INNER JOIN Gestion ON IP5_1FIDS_SALARN.CDMATN = Gestion.CDMATN) ON Metier.[Num Metier] = Gestion.Metier) ON Planning.[Num Planning] = Metier.Planning "
 
sql = sql & "WHERE Gestion.Trimestre = forms![Principal]![Trimestre] "
sql = sql & "And Planning.[Num Planning]= 4 "
sql = sql & "And Gestion.Annee = forms![Principal]![Annee] "
 
 
If IsNull(Me.Metier) Then
Else
sql = sql & "And Gestion.Metier = forms![Principal]![Metier] "
End If
 
SQLWhere = Trim(Right(sql, Len(sql) - InStr(sql, "Where ") - Len("Where ") + 1))
 
If Me.Tri = "Nom" Then
sql = sql & "ORDER BY IP5_1FIDS_SALARN.NOMSAN;"
End If
If Me.Tri = "Matricule" Then
sql = sql & "ORDER BY Gestion.CDMATN;"
End If
If Me.Tri = "Metier" Then
sql = sql & "ORDER BY Gestion.Metier;"
End If
 
Me.lblStats.Caption = DCount("*", "Gestion", SQLWhere) & " Chauffeurs"
Me.Liste.RowSource = sql
End Sub

Voilà le code, l'erreur se situe dans la ligne suivante :
Me.lblStats.Caption = DCount("*", "Gestion", SQLWhere) & " Chauffeurs"

Cette erreur n'est apparut que depuis que j'au ajouter celle ci :
sql = sql & "And Planning.[Num Planning]= 4

Quelle est la raison du message d'erreur : Erreur d'éxecution 2001 : Opération annulée... :?:

Merci d'avance pour l'aide

28/12/2005, 11h09
Virgile59

J'ajoute que je crois que l'erreur vient de cette ligne qui après l'ajout d'une clause Where ne fonctionne plus :

Code:

SQLWhere = Trim(Right(sql, Len(sql) - InStr(sql, "Where ") - Len("Where ") + 1))

Quelqu'un peut il m'aider ?
28/12/2005, 11h23
Frank

la fonction Right attend une autre information, non ?

Code:

Right (monchamp,longueur)

Or là , tu fais un

Code:

Trim(right(sql, len(sql) - InStr(sql, "Where ") - Len("Where ") + 1))

Au risque de passer pour un boulet, je n'ai pas tout saisi...
28/12/2005, 11h43
Virgile59

Hé bien c'est un code que j'ai repris à Caféine

Il a créé un tutoriel pour monter un formulaire de recherche multi critère et cette ligne est dans son code, c'est pour un compteur, qui affiche le nbr d'enregistrements qui se trouvent dans la liste.
Ce compteur fonctionne très bien mais quand j'ajoute la ligne suivante :

Code:

sql = sql & "And Planning.[Num Planning]= 4 "

le compteur ne fonctionne plus pourquoi ? J'ai besoin de vos lumlières pour le remettre en service ...

J'ai le même souci moi avec mon code pris aussi sur le tutoriel caféine de la recherche multi critère, et j'ai cru voir que je suis loin d'être le seul à avoir ce souci alors que leur exemple marche très bien.
Je vous montres mon code :
Code:

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 27 28 29 Private Sub RefreshQuery() Dim SQL As String Dim SQLWhere As String SQL = "SELECT ID, RAISON SOCIALE, CODE POSTAL, VILLE, ACTIVITE, GROUPE FROM CLIENTS " If Not Me.chksociete Then SQL = SQL & "And CLIENTS!RAISON SOCIALE like '*" & Me.cmbRechsociete & "*' " End If If Not Me.chkactivite Then SQL = SQL & "And CLIENTS!ACTIVITE like '*" & Me.cmbRechactivite & "*' " End If If Not Me.chkrechnom Then SQL = SQL & "And CLIENTS!NOM like '*" & Me.txtRechnom & "*' " End If If Not Me.chkcode Then SQL = SQL & "And CLIENTS!CODE POSTALE like '*" & Me.txtrechcode & "*' " End If If Not Me.chkfonction Then SQL = SQL & "And CLIENTS!FONCTION like '*" & Me.txtRechfonction & "*' " End If SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1)) SQL = SQL & ";" Me.lstResults.RowSource = SQL Me.lstResults.Requery End Sub
J'ai enlever la fonction dcount car elle me faisait bugué et sert juste aux statistiques mais j'ai mm la fonction recherche qui marche pas, j'ai beau rentré des valeurs de recherche il fait rien du tout.

15/06/2006, 09h49
random

sql = sql & " And Planning

peut être un espace entre " et And
15/06/2006, 09h56
Demco

Avant:

Citation:

Me.lstResults.RowSource = SQL

Mets un bon vieux:

Citation:

Debug.Print SQL

Puis execute la requete dans le QBE afin de voir si elle correspond a tes attentes.

En esperant t'aider.