Bonjour,
j'ai un petit problème de recherche. je voudrais faire une recherche mot par mot dans 1 zone de texte sur et j'arrive pas à consulter les enregistrements. j'ai utilisé les codes ci-dessous.

Dim db As Database
Dim rstrans As Recordset
Set db = OpenDatabase("C:\COURRIERDTI\db1.mdb")
Set rstrans = db.OpenRecordset("FICHE DE TRANSMISSION")
Dim s As String
Dim x As Integer
chaine = ""

s = 50
x = 0
Do While Not rstrans.EOF

For i = 1 To s
x = x + 1
chaine = Mid(txtdest, i, 1)
If chaine <> "" Then
chaine = chaine & "'*" & txtdest & "*'"
If x = 50 Then
i = i + 1
If chaine = txtdest Then
vsortie = 1
End If
End If
Else
i = i + 1
x = 0
End If
If vsortie = 1 Then
i = s
End If

Next
Loop
Data1.Visible = False
Data1.DatabaseName = App.Path & "\db1.mdb"
Data1.RecordSource = "SELECT * from [FICHE DE TRANSMISSION] WHERE [Destination (Abreviation)] = '" & txtdest & "'*"
Data1.Refresh
DBGrid1.Refresh

je vous remercie d'avance de votre soutien car le partage est notre force.

Configuration: Windows XP
Internet Explorer 7.0