Discussion :

[wag71]

Bonjour,

j'ai une table contenant un non, prénom et Société et souhaiterais chercher dans ces 3 champs sans tenir compte des accents etc.

pour rechercher dans les trois champs en même temps, j'en ai créé un 4eme qui, lui contient le nom le prénom et la société sans ponctuation ou caractère spéciaux ainsi il me suffit de faire la recherce dans ce seul champ

Existe t-il qqchose d'autre que "replace" pour faire ce genre de chose?
ou une autre technique que la mienne?

Code :

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

1
2
 
Forms!f_accueil!liste_personne.RowSource = "SELECT t_personne.id_personne, t_personne.nom_personne, t_personne.prenom, t_personne.societe FROM t_personne WHERE ( ((t_personne.recherche) Like '*" & Forms!f_accueil!recherche_nom.Text & "*') and ((t_personne.id_type_personne) = " & Forms!f_accueil!liste_type_personne & ") ) order by t_personne.nom_personne, t_personne.prenom"

suis-je obligé de passer par cette fonction trouvée dans la FAQ?

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
 
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(244), "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

merci
Wag71

[wag71]

bon, merci quand même je vais utiliser cette facon de faire, en esperant que tout ces remplacements ne ralentisse pas trop.

A+