Discussion :

[jacko842]

Alors donc je fais des recherches dans ma tables mais en utilisant un critere qui est en faite la collone de ma table toutes les recherches marche sauf celui pour l age

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
Private Sub Txt_Recherche_KeyUp(KeyCode As Integer, Shift As Integer)
 
    Dim str_critere As String
    Dim str_recherche As String
    str_critere = Combo2.Text
    str_recherche = Txt_Recherche.Text
 
    If KeyCode = vbKeyReturn Then
 
        If str_critere <> "Age" Then
 
            'Data1.RecordSource = "Select * From Personne Where " & str_critere & "='" & str_recherche & "'"
             Data1.Recordset.FindFirst str_critere & "='" & str_recherche & "'"
 
                If Data1.Recordset.NoMatch Then
 
                    MsgBox "Valeur introuvable"
 
                    Exit Sub
 
                Else
 
                    List1.AddItem Data1.Recordset.Fields("Nom") & " " & Data1.Recordset.Fields("Prenom")
 
                End If
        Else
 
 
            Data1.Recordset.FindFirst str_critere & "='" & str_recherche & "'"
                If Data1.Recordset.NoMatch Then
 
                    MsgBox "Valeur introuvable"
 
                    Exit Sub
 
                Else
 
                    List1.AddItem Data1.Recordset.Fields("Nom") & " " & Data1.Recordset.Fields("Prenom")
 
                End If
 
        End If
 
    End If
 
 
End Sub

Le probleme vient de la Data1.Recordset.FindFirst str_critere & "='" & str_recherche & "'" ca convient pour un type string biensur j ai essayé avec une variable de type integer ca ne marche pas non plus j ai essayé de mettre directement un chiffre a la place de str_recherche mais ca ne fonctionne pas Il me renvois type de donnée incompatible je dois surement retiré des guillemets mais lesquelles ???

merci d avance

[Pynuch]

Si l'age est de type numerique enleve les cotes autour de ton parametre

Code :

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

Data1.Recordset.FindFirst str_critere & "=" & str_recherche & "

pardon plutot :

Code :

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

str_critere & "=" & str_recherche