Discussion :

[Morgoth818]

Bonjour,

J'ai un exercice pour l'école où je dois créer un formulaire basé sur une base de données (grâce à un recordset), l'utilisateur doit pouvoir rechercher un vendeur d'une table par numéro, nom ou prénom, j'ai tous les enregistrements de la table dans mon recordset et je dois utiliser la propriété filter pour ne contenir que le ou les enregistrement(s) qui concordent avec les données entrées.
Mais lorsque je clique sur le bouton cmdrechercher qui appelle cette procédure, ça me fait une erreur sur la ligne où j'ai mon filtre.
Il est mis "Les arguments sont de type incorrect, en dehors des limites autorisées ou en conflit les uns avec les autres."
J'imagine que j'ai fait une erreur stupide, mais même en cherchant dans mon syllabus, sur internet etc je n'ai pas résolu le problème, j'espère que vous pourrez m'aider.

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
Private Sub CmdRechercher_Click()
 
    Set co = CurrentProject.connection
    Call rs.Open("Vendeur", co, adOpenDynamic, adLockOptimistic)
 
    If TxtRef.Value <> "" Then
        rs.Filter = "Réf_Vendeur = " & TxtRef.Value
        Else
            If TxtNom.Value <> "" Then
                rs.Filter = "Nom = " & TxtNom.Value
                Else
                    If TxtPrenom.Value <> "" Then
                        rs.Filter = "Prénom = " & TxtPrenom.Value
                    End If
            End If
    End If
 
    TxtRef.Value = rs("Réf_Vendeur")
    TxtNom.Value = rs("Nom")
    TxtPrenom.Value = rs("Prénom")
    TxtRue.ValidationRule = rs("Rue_Numéro")
    TxtCodePostal.Value = rs("CodePostal")
    TxtVille.Value = rs("Ville")
    TxtPays.Value = rs("Pays")
    CoVigneron.Value = rs("Vigneron")
    TxtProd.Value = rs("ProductionAnnuelle")
    TxtHectares.Value = rs("Hectares")
    CoChambreHotes.Value = rs("ChambreHotes")
    CoGites.Value = rs("Gîtes")
 
End Sub

Merci

[LedZeppII]

Bonjour,

Pour un champ de type texte on encadre la valeur avec des guillemts simples (').
Exemple :

Code vb :

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

rs.Filter = "Nom = '" & TxtNom.Value & "'"

A+

[Morgoth818]

Super merci beaucoup ça fonctionne