Discussion :

[elyboss]

Bonsoir,
J'utilise pour mon projet des adodc.
J'ai ajouté un bouton rechercher pour faire la recherche dans le datagrid,
Voila le 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
Private Sub cmdresult_Click()
On Error Resume Next
Ado.Refresh
lblaffich.Visible = True
If txtcode.Text <> "" Then
Ado.Recordset.Filter = "[code] like '" & txtcode.Text & "*'"
ElseIf txtnom.Text <> "" Then
Ado.Recordset.Filter = "[nom] like '" & txtnom.Text & "*'"
ElseIf txtacteur.Text <> "" Then
Ado.Recordset.Filter = "[acteur] like '" & txtacteur.Text & "*'"
Else
Ado.Recordset.Filter = ""
End If
cmdresult.Visible = False
cmdrechercher.Visible = True
End Sub

Ca fonctionne quand j'effectue la recherche suivant le nom ou l'acteur, mais quand je veux effectuer une recherche suivant le code, vb me fait sortir le message d'erreur attaché en miniatures.
Y a-t-il une solution pour ce problème de filtre?
Merci d'avance.