Discussion :

[ensascience]

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

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

Svp ou sont les erreurs que j ai commis :/

Merci
Cordialment

[ensascience]

Bonjour,

Bon j ai pu resoudre un premier probleme on changeant le nom du champs de "Nom societe" a "Nom_societe" et j ai plus de message d erreur le seul probleme c est que mon formulaire n affiche toujours pas tous les enregistrements ....
avez vous une autre suggestion autre que changer le nom de mon champs parceque sa m as creer d'autre problemes... .

A+
Merci