ACCESS Recherche approximative dans une zone de texte

[Résolu]
Signaler
Messages postés
16
Date d'inscription
jeudi 16 novembre 2000
Statut
Membre
Dernière intervention
26 juillet 2005
-
Messages postés
16
Date d'inscription
jeudi 16 novembre 2000
Statut
Membre
Dernière intervention
26 juillet 2005
-
J'ai encore une question .... (ça fai trois en 3heures !)
j'ai un formulaire avec une zone de texte ... dans cette zone je demande à l'utilisateur
de taper un Nom ou un prénom d'un employé (donc ça va chercher l'info dans la colonne "Nom" ou bien dans la colonne "prénom" de la table "employés") . ... le problème c que je n'arrive pas à faire une recherche approximative
si on tape "Rene" au lieu de "René" il me le trouve pas ....
J'ai cherché sur le web, mais aucune réponse ne correspondait à mon problème si quelqun veut bien encore une fois me sauver la mise ce serai cool !!
MERCI !!

5 réponses

Messages postés
82
Date d'inscription
dimanche 2 novembre 2003
Statut
Membre
Dernière intervention
13 avril 2017
1
Viens de trouver une fonction toute faite sur developpez.com :

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
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 70 internautes nous ont dit merci ce mois-ci

Messages postés
16
Date d'inscription
jeudi 16 novembre 2000
Statut
Membre
Dernière intervention
26 juillet 2005
2
Tant pis pour les accents ... MERCI quand même!
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 70 internautes nous ont dit merci ce mois-ci

Messages postés
16
Date d'inscription
jeudi 16 novembre 2000
Statut
Membre
Dernière intervention
26 juillet 2005
2
Merci ça m'a aidé !!
bonne journée !
1
Merci

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 70 internautes nous ont dit merci ce mois-ci

Messages postés
288
Date d'inscription
mercredi 4 mai 2005
Statut
Membre
Dernière intervention
26 janvier 2012
1
...pour le problème des accents, j'en sais pas plus...

en revanche, si en tapant 'ren' -> tu veux trouver tout ce qui contient 'ren', c'est pas dur :

dans ta requête :



dim param as string = "ren"

dim req as string = "select nom, prénom from matable where nom like '%"+ ren +"%' "



le ' dis que ce qui suit est une valeur

% pour : 'il peut y'en avoir avant (..après)

" pour casser le string

+ pour en rajouter
.Maytheforcebewithyou.Maxime.
Messages postés
82
Date d'inscription
dimanche 2 novembre 2003
Statut
Membre
Dernière intervention
13 avril 2017
1
C'est possible avec un replace...

Mais bon, s'il faut le faire avec tous les accents ça fait pas mal de replace

nom = Replace(nom, "é", "e")
nom = Replace(nom, "è", "e")
nom = Replace(nom, "ê", "e")
nom = Replace(nom, "à", "a")

etc