Discussion :

[Almenor]

Bonjour,

J'ai créer un formulaire de recherche multicritères en suivant ce Tuto : http://cafeine.developpez.com/access...echerchemulti/

Voici mon code final :

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
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
 
Option Compare Database
 
Private Sub chkNom_Click()
 
If Me.chkNom Then
    Me.cmbNom.Visible = False
Else
    Me.cmbNom.Visible = True
End If
 
RefreshQuery
 
End Sub
 
 
Private Sub chkService_Click()
 
If Me.chkService Then
    Me.cmbService.Visible = False
Else
    Me.cmbService.Visible = True
End If
 
RefreshQuery
 
End Sub
 
Private Sub chkFournisseur_Click()
 
If Me.chkFournisseur Then
    Me.cmbFournisseur.Visible = False
Else
    Me.cmbFournisseur.Visible = True
End If
 
RefreshQuery
 
End Sub
 
Private Sub chkDate_Click()
 
If Me.chkDate Then
    Me.txtDate.Visible = False
Else
    Me.txtDate.Visible = True
End If
 
RefreshQuery
 
End Sub
 
 
Private Sub cmbNom_BeforeUpdate(Cancel As Integer)
 
RefreshQuery
 
End Sub
 
Private Sub cmbService_BeforeUpdate(Cancel As Integer)
 
RefreshQuery
 
End Sub
 
Private Sub cmbFournisseur_BeforeUpdate(Cancel As Integer)
 
RefreshQuery
 
End Sub
 
Private Sub txtDate_BeforeUpdate(Cancel As Integer)
 
RefreshQuery
 
End Sub
 
Private Sub Form_Load()
 
Dim ctl As Control
 
For Each ctl In Me.Controls
    Select Case Left(ctl.Name, 3)
        Case "chk"
            ctl.Value = -1
 
        Case "lbl"
            ctl.Caption = "- * - * -"
 
        Case "txt"
            ctl.Visible = False
            ctl.Value = ""
 
        Case "cmb"
            ctl.Visible = False
 
    End Select
Next ctl
 
Me.lstResults.RowSource = "SELECT userName, nomService, fournisseur, dateEncodage FROM T_BonDeCommande, T_Users, T_Services, T_Fournisseurs WHERE userID=noAgent AND T_Services!noService=T_BonDeCommande!noService AND T_Fournisseurs!noFournisseur=T_BonDeCommande!noFournisseur;"
Me.lstResults.Requery
 
End Sub
 
Private Sub RefreshQuery()
Dim SQL As String
Dim SQLWhere As String
 
SQL = "SELECT userName, nomService, fournisseur, dateEncodage FROM T_BonDeCommande, T_Users, T_Services, T_Fournisseurs WHERE userID=noAgent AND T_Services!noService=T_BonDeCommande!noService AND T_Fournisseurs!noFournisseur=T_BonDeCommande!noFournisseur AND T_BonDeCommande!noBDC <> 0"
 
If Not Me.chkNom Then
    SQL = SQL & "And T_Users!userName = '" & Me.cmbNom & "'"
End If
If Not Me.chkService Then
    SQL = SQL & "And T_Services!nomService = '" & Me.cmbService & "'"
End If
If Not Me.chkFournisseur Then
    SQL = SQL & "And T_Fournisseurs!fournisseur = '" & Me.cmbFournisseur & "'"
End If
If Not Me.chkDate Then
    SQL = SQL & "And T_BonDeCommande!dateEncodage like '*" & Me.txtDate & "*' "
End If
 
SQLWhere = Trim(Right(SQL, Len(SQL) - InStr(SQL, "Where ") - Len("Where ") + 1))
 
SQL = SQL & ";"
 
'Me.lblStats.Caption = DCount("*", "T_BonDeCommande", SQLWhere) & " / " & DCount("*", "noBDC")
Me.lstResults.RowSource = SQL
Me.lstResults.Requery
 
End Sub
 
 
'Private Sub lstResults_DblClick(Cancel As Integer)
'
'DoCmd.OpenForm "frmAutoMedias", acNormal, , "[CodMedia] = " & Me.lstResults
'
'
'End Sub

Et voici le résultat en image :


J'ai cependant quelques soucis :

Je ne comprends pas cette partie du code

Code :

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

1
2
3
4
5
6
7
 
'Private Sub lstResults_DblClick(Cancel As Integer)
'
'DoCmd.OpenForm "frmAutoMedias", acNormal, , "[CodMedia] = " & Me.lstResults
'
'
'End Sub

Je ne l'utilise pas dans mon code et ne sachant pas à quoi ça sert...

Actuellement, pour la date, je suis obliger de cliquer ailleurs après avoir choisis la date pour que les résultats s'actualise. Ceci est gérer par cette partie du code :

Code :

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

1
2
3
4
5
6
 
Private Sub txtDate_BeforeUpdate(Cancel As Integer)
 
RefreshQuery
 
End Sub

Comment faire pour que ça s'actualise dès que l'on a choisis la date dans le petit calendrier ?

Et dernière chose, mon label "lblStats" qui dois indiquer le nombre de résultats ne fonctionne pas, c'est pour cette raison que cette partie du code

Code :

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

1
2
 
'Me.lblStats.Caption = DCount("*", "T_BonDeCommande", SQLWhere) & " / " & DCount("*", "noBDC")

est en commentaire.

Voici le message d'erreurs :



Merci d'avance pour votre aide.

[paidge]

Bonjour,

Je ne comprends pas cette partie du code

Code :

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

1
2
3
4
5
6
7
 
'Private Sub lstResults_DblClick(Cancel As Integer)
'
'DoCmd.OpenForm "frmAutoMedias", acNormal, , "[CodMedia] = " & Me.lstResults
'
'
'End Sub

DoCmd.OpenForm sert à ouvrir un formulaire. Ici ça cherche à ouvrir le formulaire frmAutoMedias avec comme critère "[CodMedia] = " & Me.lstResults

Comment faire pour que ça s'actualise dès que l'on a choisis la date dans le petit calendrier ?

Sur l’événement Change() de ton contrôle (Sur changement en FR).

Et dernière chose, mon label "lblStats" qui dois indiquer le nombre de résultats ne fonctionne pas, c'est pour cette raison que cette partie du code

Code :

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

1
2
 
'Me.lblStats.Caption = DCount("*", "T_BonDeCommande", SQLWhere) & " / " & DCount("*", "noBDC")

est en commentaire.

Normal, tu essaies de compter le nbre d'enregistrements dans une table qui n'existe pas (appremment tu n'as pas de table ni de requête qui s'appelle noBDC). A priori, tu devrais écrire :

Code :

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

Me.lblStats.Caption = DCount("*", "T_BonDeCommande", SQLWhere) & " / " & DCount("*", "T_BonDeCommande")

Un peu d'efforts de recherche et tu aurais trouvé les réponses tout seul.....

[Almenor]

Bonjour,


DoCmd.OpenForm sert à ouvrir un formulaire. Ici ça cherche à ouvrir le formulaire frmAutoMedias avec comme critère "[CodMedia] = " & Me.lstResults

Ok, je comprends, ça ouvre un formulaire sur double-clic sur un des résultats de la recherche.

Sur l’événement Change() de ton contrôle (Sur changement en FR).

J'ai essayé

Code :

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

1
2
3
4
5
Private Sub txtDate_Change()
 
RefreshQuery
 
End Sub

Et

Code :

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

1
2
3
4
5
Private Sub txtDate_Change(Cancel As Integer)
 
RefreshQuery
 
End Sub

Car je ne sais pas trop à quoi sert le cancel As Integer mais ça ne fonctionne pas :

Normal, tu essaies de compter le nbre d'enregistrements dans une table qui n'existe pas (appremment tu n'as pas de table ni de requête qui s'appelle noBDC). A priori, tu devrais écrire :

Code :

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

Me.lblStats.Caption = DCount("*", "T_BonDeCommande", SQLWhere) & " / " & DCount("*", "T_BonDeCommande")

Un peu d'efforts de recherche et tu aurais trouvé les réponses tout seul.....

J'ai fait quelques tests et le DCount("*", "T_BonDeCommande") fonctionne très bien et m'affiche 5 ce qui est juste.
Donc le soucis vient du DCount("*", "T_BonDeCommande", SQLWhere) qui est censé afficher le nombres de bon de commande retourné avec application des filtres et là je cale...
Le "userID" indiqué dans le message d'erreur (voir screen sur le premier post) est le nom du champ de la clé primaire de la table T_Users ou sont stockés les utilisateurs.

[paidge]

je ne sais pas trop à quoi sert le cancel As Integer

Si dans la procédure, tu mets Cancel = True, ça annule l’événement.

J'ai fait quelques tests et le DCount("*", "T_BonDeCommande") fonctionne très bien et m'affiche 5 ce qui est juste.
Donc le soucis vient du DCount("*", "T_BonDeCommande", SQLWhere) qui est censé afficher le nombres de bon de commande retourné avec application des filtres et là je cale...
Le "userID" indiqué dans le message d'erreur (voir screen sur le premier post) est le nom du champ de la clé primaire de la table T_Users ou sont stockés les utilisateurs.

A mon avis, ta requête est mal écrite sur les lignes 100 et 109 :

Code sql :

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

SELECT userName, nomService, fournisseur, dateEncodage FROM T_BonDeCommande, T_Users, T_Services, T_Fournisseurs WHERE T_Users!userID=nomDeTable!noAgent AND T_Services!noService=T_BonDeCommande!noService AND T_Fournisseurs!noFournisseur=T_BonDeCommande!noFournisseur;

où nomDeTable est le nom de la table qui contient le champ noAgent

[Almenor]

J'ai fait les changements dans le SQL mais j'obtiens la même erreurs à la différence qu'au lieu d'avoir userID j'ai T_Users!userID

[paidge]

En effet, comme tu ne fais pas de jointures (INNER JOIN) et que le nom de champ est (apparemment) unique, le nom de la table n'est pas nécessaire pour identifier le champ. Mais c'est bizarre du coup qu'il te génère une erreur (cela voudrait dire que le champ est manquant dans ta table ?!). Copies/colles ton code SQL dans le générateur de requête et passe en mode création/feuille de données pour voir les messages de Microsoft Jet

[Almenor]

Oula ! Je suis totalement autodidacte et j'avoue n'avoir rien compris du tout à ta dernière phrase

[paidge]

Le générateur de requêtes (parfois appelé QBE) est l'interface qui permet de créer des requêtes en mode graphique (en faisant des glisser/déposer sur les tables et les champs, etc.). On peut l'afficher en mode création (pour générer sa requête sans écrire de SQL), en mode SQL(pour créer sa requête directement en SQL) et en mode feuille de données (pour visualiser les résultats). Le moteur SQL dans Access s'appelle Microsoft Jet. En copiant/collant le code SQL dans le QBE (il faut obligatoirement l'afficher en mode SQL pour le coup), puis en passant en mode graphique (création ou feuille de données), le moteur SQL (Microsoft Jet) affichera un message d'erreur s'il y a lieu; car, pour le moment, ce sont des messages d'erreurs générés par le VBE (Visual Basic Editor) qui sont liés au VBA. Et ceux-ci ne sont pas suffisamment précis parfois pour identifier d'où vient le problème.
En espérant avoir été clair...

[Almenor]

Donc, si j'ai bien compris, j'ai lancé outil de création de requêtes que j'ai passé en mode SQL et j'y ai c/c mon code SQL :



Ensuite je repasse le tout en mode graphique :



Tout parait nickel et le résultat de la requête est bon :

[paidge]

OK. Ce qui veut dire que ta requête est bien écrite
Je pense donc que ton code plante quand tu tentes d'affecter ta requête à ta zone de liste. Sur quelle ligne as-tu cette erreur ?

[Almenor]

Bon, j'ai contourné le problème en comptant directement le nombre de ligne dans la zone de liste :

Code :

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

Me.lblStats.Caption = lstResults.ListCount & " / " & DCount("*", "T_BonDeCommande")

Sinon, l'erreur est sur la ligne

Code :

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

Me.lblStats.Caption = DCount("*", "T_BonDeCommande", SQLWhere) & " / " & DCount("*", "T_BonDeCommande")

[paidge]

Je me doutais un peu que c'était sûrement ta variable SQLWhere qui était mal construite. Pour voir ce qu'elle te retourne, place un

Code :

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

msgBox SQLWhere

à la ligne 125. Tu pourras ajuster ton code en fonction