Discussion :

[valery17]

Salut a tous,
J'ai cree un formulaire Lieferant qui fonctionne sans probleme.Mais je suis confronte au niveau de la recherche multi-critere.Je me suis base sur la FAQ avec l'exemple de Cafeine.Mais malheureusement,cela m'affiche toujours des erreurs. Stp je voudrais aussi que vous me dites ou se trouve mon Erreur.
Car je ne peux pas rechercher par exemple M*(tous les noms commencant par m).Ou alors de la Periode (date de ... a ...).Cela m'affiche toujours Erreurs.

Voici mon Kode:

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
Private Sub RefreschQuery()
Dim Krit As String
Krit = ""
Dim SQL As String
Dim SQLWhere As String
SQL = "SELECT * FROM Recherche " 'where Recherche.ID <> 0"
If Not Me.KHT Then
SQL = SQL & "And ID = '" & Me.KombHT & " ' "
End If
If Not (Me.KProjet) Then
SQL = SQL & " And nomprojet LIKE '*" & Me.TxtProjet & "*'"
End If
If Not IsNull(Me.Kfirme) Then
SQL = SQL & " And nomfirme like '*" & Me.TxtFirme & "*'"
End If
 
If Not IsNull(Me.KDate) Then Krit = Krit & " AND Date >=" & Format(Me.TxtDatede, "tt-mm-jjjj") & ""
'End If
If Not IsNull(Me.KDate) Then Krit = Krit & " And Date <= " & Format(Me.TxtDatede, "tt-mm-jjjj") & ""
'End If
If Krit <> "" Then SQL = SQL & "WHERE " & Mid(Krit, 5)
 
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
SQL = SQL & ";"
Me.lststats.Caption = DCount("*", "Recherche", SQLWhere) & " / " & DCount("*", "Recherche", SQLWhere)
'Me.lststats.Caption = DCount("*", "Recherche", SQLWhere) & " / " & DCount("*", "Recherche")
Me.Lstrecherche.RowSource = SQL
Me.LstRecherche.Requery

CORDIALEMENT

[Demco]

Tu as un message d'erreur ? Si oui sur quelle ligne s'arrete l'execution ?

[Dolphy35]

Salut,

Pour les dates tu dois les entourer de #.

exemple:

Code :

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

...>#01/01/2006#...

Pour les recherches commencant par M il faut mettre * qu'a la fin

exemple

Code :

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

... LIKE  M* ...

[Petogaz]

salut,

de plus

Code :

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

SQL = "SELECT * FROM Recherche " 'where Recherche.ID <> 0"

que vient faire les quotes avant le where ?

[valery17]

Salut,voici l'erreur que cela affiche:

ERREUR DE SYNTAX DANS LA REQUETE 'Recherche.ID<>0 AND nomfirme LIKE '* M** Where Date >= AND Date<=.'

Quant a L'erreur de Kode que vous aviez mentionné.je l'ai rectifie depuis. voici ma rectification

Code :

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

1
2
3
4
 
Dim SQL As String
 
SQL = "SELECT * FROM Recherche where Recherche.ID <> 0"

[Dolphy35]

re,

Tu n'as toujours pas mis les # pour les dates et tu as des * en trop...

[Demco]

Tu semble avoir des erreurs sur plusieurs instructions donc la meilleure solution est de faire du pas a pas en reprennant depuis le debut du code.
Des que tu modifie la chaine SQL tu mets un Debug.Print apres pour voir si le resultat attendu s'affiche.

Tu peux commencer avec:

Code :

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

1
2
3
 Dim SQLWhere As String
SQL = "SELECT * FROM Recherche " 'where Recherche.ID <> 0"
Debug.Print SQL

Si l'erreur n'est pas apparante tu peux creer une nouvelle requete, y coller le code et l'executer. Access te dira ce qui ne va pas.