Discussion :

[mona]

Bonjour,

J'utilise un recordset pour faire une recherche à partir d'un textBox d'un formulaire à l'aide d'une requête comme ceci:

Code :

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

 SELECT prenom, nom FROM employe WHERE UCASE(prenom) LIKE UCASE('%" & Me.monTextBox & "%')

J'ai des problèmes lorsque je fais des recherches avec des accents. Si je mets par exemple "côté" ca me sort tous les "CÔTÉ" mais pas les "côté" ? Comment je peux enlever ce problème avec les accents?

Merci

[gscorpio]

Ben supprime les accents partout dans les tables, les requêtes etc...
C'est surement ce qu'il y a de plus simple. après faut voir si c'est nécessaire de les garder pour ce que tu fais

[mona]

Oui, mais je ne comprends toujours pas pourquoi ca me sort uniquement les résultats en lettres majuscules.

J'ai essayer d'utiliser une fonction "SansAccent" que j'ai pris quelque part dans le forum, ca enlève les accents, ca me donne en général les bons résultats, sauf que je met ca dans un recordset et je fais une loop dessus et 1 fois sur 2, ça plante à la ligne recordset.MoveNext...?

Cette expression présente une syntaxe incorrecte, ou est trop complexe pour être évaluée. Par exemple, une expression numérique peut contenur des éléments trop compliqués. Essayez de la simplifier en en affectant des parties à des variables.

Et voici la fonction SansAccent (qui ne génère par d'erreur)

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
 
'Cette fonction remplace les lettres avec accents pour les même mais sans accents
Public Function sansAccent(ByVal chaine As String, EnMajuscule As Boolean) As String
chaine = LCase(chaine)
chaine = Replace(chaine, Chr(232), "e")
chaine = Replace(chaine, Chr(233), "e")
chaine = Replace(chaine, Chr(234), "e")
chaine = Replace(chaine, Chr(235), "e")
chaine = Replace(chaine, Chr(249), "u")
chaine = Replace(chaine, Chr(250), "u")
chaine = Replace(chaine, Chr(251), "u")
chaine = Replace(chaine, Chr(242), "o")
chaine = Replace(chaine, Chr(254), "o")
chaine = Replace(chaine, Chr(255), "y")
chaine = Replace(chaine, Chr(224), "a")
chaine = Replace(chaine, Chr(225), "a")
chaine = Replace(chaine, Chr(226), "a")
chaine = Replace(chaine, Chr(238), "i")
chaine = Replace(chaine, Chr(239), "i")
 
If EnMajuscule Then chaine = UCase(chaine)
sansAccent = chaine
End Function

[mona]

L'erreur venait du fait que une chaine vide passant dans la fonction SansAccent retournait #Error j'ai donc ajouté un

Code :

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

Where prenom IS NOT NULL