Discussion :

[Virgile59]

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
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

[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 :

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

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

Quelqu'un peut il m'aider ?

[Frank]

la fonction Right attend une autre information, non ?

Code :

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

Right (monchamp,longueur)

Or là , tu fais un

Code :

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

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

Au risque de passer pour un boulet, je n'ai pas tout saisi...

[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 :

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

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 ...

[geo.mar94]

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 :

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
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.

[random]

sql = sql & " And Planning

peut être un espace entre " et And

[Demco]

Avant:

Me.lstResults.RowSource = SQL

Mets un bon vieux:

Debug.Print SQL

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

En esperant t'aider.