Bonjour tous le monde;
Dans un formulaire Continu basé sur une requete de plusieurs tables avec les champs Num ; Nom de societé ; secteur ; status ; offre ; .... ; pays ; Commentaire ...
ou j 'ai appliqué un filtre avec deux listes déroulantes
1) une liste pour choisir le champs que je veux par : Nom de societe ; Secteur ; pays ; status
2) une 2eme qui permet de choisir le type : Contient , Commence par , egale .
un champs de txt et un bouton recherche "Bsearch"
ceci marche bien avec tous les champs sauf un :"Nom de societé " ou j ai eu une erreur
des fois sur ts les champ j ai ceci
et mon formulaire s est bloqué sur un filtre (il n affiche plus tous les enregistrements lorsque aucun filtre n'est appliqué)
j ai mis le code suivant
Svp ou sont les erreurs que j ai commis :/
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 Bsearch_Click() Dim Nomchamp As String listchamps.SetFocus listfilter.SetFocus Nomchamp = listchamps.ItemData(listchamps.ListIndex) Txt.SetFocus If listfilter.Value = "Contains" Then Forms!Projects_Report.RecordSource = "Select * from ProjectsReport where " & Nomchamp & " Like '*" & Txt.Text & "*'" ElseIf listfilter.Value = "Starts With" Then Forms!Projects_Report.RecordSource = "Select * from ProjectsReport where " & Nomchamp & " Like '" & Txt.Text & "*'" ElseIf listfilter.Value = "Exact Match" Then Forms!Projects_Report.RecordSource = "Select * from ProjectsReport where " & Nomchamp & "=" & """" & Txt.Text & """" End If End Sub Private Sub Form_Open(Cancel As Integer) listchamps.SetFocus listchamps.ListIndex = 0 listfilter.SetFocus listfilter.ListIndex = 0 End Sub Private Sub listchamps_KeyDown(KeyCode As Integer, Shift As Integer) KeyCode = 0 End Sub Private Sub listfilter_KeyDown(KeyCode As Integer, Shift As Integer) KeyCode = 0 End Sub
Merci
Cordialment
Partager