3 Caractères et plus pour la recherche

Résolu
Sinsitrus Messages postés 849 Date d'inscription samedi 11 juin 2005 Statut Membre Dernière intervention 21 août 2015 - 16 janv. 2010 à 16:38
Sinsitrus Messages postés 849 Date d'inscription samedi 11 juin 2005 Statut Membre Dernière intervention 21 août 2015 - 18 janv. 2010 à 09:40
Salut !

J'ai ce bout de code que je voudrais éditer. Il me donne = à 3 et me fait rien à 4 caractères ou plus. Je voudrais que si dans la zone de texte T_Rech j'entre plus de 3 caractères alors il exécute tout de même la commande.

Dim SQL As String
Dim I As Integer

If T_Rech <> "" Then
SQL "select * from Articles where left(Code, 3) '" & T_Rech & "' order by Code"
Set RS = BAZ.OpenRecordset(SQL)

If Not (RS.BOF And RS.EOF) Then
RS.MoveLast
RS.MoveFirst
Tablo.Rows = RS.RecordCount + 1
I = 1
Do While Not RS.EOF

If IsNull(RS!Famille) Then
Tablo.TextMatrix(I, 0) = ""
Else
Tablo.TextMatrix(I, 0) = RS!Famille
End If

If IsNull(RS!Code) Then
Tablo.TextMatrix(I, 1) = ""
Else
Tablo.TextMatrix(I, 1) = RS!Code
End If

I = I + 1
RS.MoveNext
Loop
Else
Tablo.Rows = 1
End If
End If

SQL "select * from Articles where left(Code, 3) '" & T_Rech & "' order by Code"
Éditer de sorte à avoir > à 3 donc la recherche comprise entre 3 et +

Merci d'avance pour votre aide.
----------
OS : Windows XP SP3 et Vista 32
Platforme : VB 6.0 + SP6
Ok VB6.0 c'est pas net !

21 réponses

Sinsitrus Messages postés 849 Date d'inscription samedi 11 juin 2005 Statut Membre Dernière intervention 21 août 2015
18 janv. 2010 à 09:40
Salut !

Merci PCPT pour ton aide. J'ai résolu le problème ce matin (tronche encore plus calme et fraiche) :p

Il ne cherche pas QUE le début mais prends en compte les lettres du Code.
Si je met E il me donnera HDD80IDE
ou sinon avec un H me donnera HDD80IDE
Enfin, c'est exactement ce que je souhaitais !

Merci encore pour ton aide !

----------
OS : Windows XP SP3 et Vista 32
Platforme : VB 6.0 + SP6
Ok VB6.0 c'est pas net !
0
Rejoignez-nous