blocage sur Left

**TSS** · 09/03/2006, 14h15

bonjour tout le monde,

voilà, j'ai repris le code du formulaire de recherche prêt à l'emploi by Fabrice CONSTANS.

Tout parait fonctionner correctement, sauf lorsque j'arrive sur la ligne suivante :

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
' construit la requête sql
If Me.Opt_RechCourante And Not Len(Me.lst_resultat.RowSource) = 0 Then
If Not Me.lst_resultat.RowSource Like "*FROM " & "[" & strTable & "]" & "*" Then
MsgBox "La recherche précédente ne porte pas sur la même table que la recherche actuelle.", vbExclamation + vbOKOnly, "Erreur"
Exit Sub
End If
   strSql = Left(Me.lst_resultat.RowSource, Len(Me.lst_resultat.RowSource) - 3)   strSql = strSql & " AND " & strCriteria & "));"
Else
' construit la rq sql
strSql = "SELECT DISTINCTROW " & "[" & strTable & "]" & ".*"
strSql = strSql + " FROM " & "[" & strTable & "]"
strSql = strSql + " WHERE ((" & strCriteria & "));"
End If
Me.lst_resultat.RowSource = strSql ' affecte sql a lst_Resultat
Me.lst_resultat.Requery ' recalcule la liste
End Sub

Problème sur la ligne

Code :

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

   strSql = Left(Me.lst_resultat.RowSource, Len(Me.lst_resultat.RowSource) - 3)   strSql = strSql & " AND " & strCriteria & "));"

Si j'enlève la ligne Left, la lecture du code se déroule jusqu'au bout, par contre avec cette ligne, arrêt sur Left.

Quelqu'un aurait une suggestion de manière à que je puisse garder la ligne ?

Par avance merci pour votre précieuse aide.
TSS

[Modération, cafeine : Pensez à utiliser la balise [CODE] qui améliore la lisibilité, merci]

**Arkham46** · 09/03/2006, 14h23

salut,

Précise le message d'erreur STP

**TSS** · 09/03/2006, 14h27

Bonjour Arkham46

Le message est :

"Compile error: Can't find project or library"

Mais ce qui est étonnant c'est que j'ai bien la librairie : Microsoft DAO 3.6 Object Library

bizzare...

merci d'avance pour ton aide