Discussion :

[darksage]

bonjour j'ai crée un moteur de recherche avec l'aide du tuto de loufab tout fonctionne sauf ma recherche simple critere. mon formulaire comporte 3 zones modifiables : 1 pour choisir la table 1 pour selectionner le champs de recherche et le dernier pour la recherche complementaire afin d'affiner le resultat

le formulaire comporte egalement 2 zone de texte qui servent a la saisie des données recherchée 1 pour la recherche principale et l'autre pour affiner le resultat.

le probleme est que lorsque je laisse la zone modifiable de la recherche complementaire le bouton rechercher ne fait rien et m'affiche veuillez entrer le parametre de la valeur

ci joint ma page de 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
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
Option Compare Database
 
Private Sub cbo_table_AfterUpdate()
Me.cbo_champ.RowSource = Me.cbo_table.Value
Me.cbo_champ.Requery
Me.cbo_champ2.RowSource = Me.cbo_table.Value
Me.cbo_champ2.Requery
 
End Sub
 
Private Sub cmd_recherche_Click()
Dim strTable As String, strField As String, strField2 As String, strCriteria As String, strCriteria2 As String, strSql As String
Dim criter As Variant
 
strTable = "[" & Me.cbo_table & "]"
strField = "[" & Me.cbo_champ & "]"
strField2 = "[" & Me.cbo_champ2 & "]"
 
 
Select Case Me.opt_recherche
    Case 1
        strCriteria = strTable & "." & strField & " Like """ & Me.txt_critere & """"
        strCriteria2 = strTable & "." & strField2 & " Like """ & Me.txt_critere2 & """"
 
    Case 2
        strCriteria = strTable & "." & strField & " Like """ & Me.txt_critere & "*"""
        strCriteria2 = strTable & "." & strField2 & " Like """ & Me.txt_critere2 & "*"""
 
    Case 3
        strCriteria = strTable & "." & strField & " Like ""*" & Me.txt_critere & "*"""
        strCriteria2 = strTable & "." & strField2 & " Like ""*" & Me.txt_critere2 & "*"""
End Select
 
If strField2 = Null Then
strSql = "SELECT DISTINCTROW " & strTable & ".*"
strSql = strSql & " FROM " & strTable
strSql = strSql & " WHERE ((" & strCriteria & "));"
Else
strSql = "SELECT DISTINCTROW " & strTable & ".*"
strSql = strSql & " FROM " & strTable
strSql = strSql & " WHERE ((" & strCriteria & ""
strSql = strSql & " AND " & strCriteria2 & "));"
End If
 
Me.lst_resultat.RowSource = strSql
Me.lst_resultat.Requery
End Sub
 
Private Sub Commande18_Click()
On Error GoTo Err_Commande18_Click
 
 
    DoCmd.Close
 
Exit_Commande18_Click:
    Exit Sub
 
Err_Commande18_Click:
    MsgBox Err.Description
    Resume Exit_Commande18_Click
 
End Sub

merci d'avance pour l'aide

[Gandalf24]

Hug,

je serais toi je ferai un

Code :

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

1
2
3
4
5
6
...
debug.print strSql
 
Me.lst_resultat.RowSource = strSql
Me.lst_resultat.Requery
End Sub

...

Tu recupere la requete,
tu vers a l'oeuil peut etre ce qui ne marche pas, tu peux eventuellement la copier dans les requetes.

Pour info d'apres le message d'erreur il s'afit d'un nom d'un champ de ta requete qui ne se retrouve pas ds les tables..
a+

[pc75]

Bonjour,

Voila comment je procède :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
 
.....
Select Case Me.opt_recherche
    Case 1
        strCriteria = " AND " & strTable & "." & strField & " Like """ & Me.txt_critere & """"
        strCriteria2 = " AND " & strTable & "." & strField2 & " Like """ & Me.txt_critere2 & """"
......
strSql = "SELECT DISTINCTROW " & strTable & ".*"
strSql = strSql & " FROM " & strTable
strSql = strSql & " WHERE 1 = 1 "
strSql = strSql & strCriteria 
.....

[darksage]

merci pour les reponses

j'ai essayé autre chose et ca marche

encore merci et bonne soirée