Bonjour,

j'ai trouvé un tutoriel sur la façon de faire une recherche sans tenir compte des accents.
Par contre, je ne comprends pas comment l'appliquer à ma requête, si jamais c'est applicable.

Ce que j'ai trouvé:
Il faut créer une fonction personnalisée qui remplace la lettre accentuée par la même mais sans l'accent.
Dans un module :
Sélectionnez
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")
chaine = Replace(chaine, Chr(244), "o")
If EnMajuscule Then Chaine = UCase(Chaine)
sansAccent = Chaine
End Function
Et la requête :

Sélectionnez
Code : Sélectionner tout - Visualiser dans une fenêtre à part
SELECT * FROM MaTable WHERE SansAccent(MonChamp,True)=sansaccent("élève",true)
Et là, ma requête:
Code sql : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
SELECT T_Fournisseur.CodeFournisseur, T_Categorie.Categorie, T_Fournisseur.CodeRegion, T_Fournisseur.CodeCategorie, T_Fournisseur.Adresse, T_Fournisseur.Nom, T_Region.Region, T_Fournisseur.RFI_Statut, T_Fournisseur.Suspension_Statut, T_Fournisseur.RENA_Statut, T_Fournisseur.DandB_Statut, T_Fournisseur.Code_Space, T_Fournisseur.Ville, T_Fournisseur.Code_Postal, T_Fournisseur.Province, T_Fournisseur.Telephone_Compagnie, T_Fournisseur.Fax, T_Fournisseur.Courriel_Compagnie, T_Fournisseur.SiteWeb, T_Fournisseur.Personne_Contact, T_Fournisseur.Cellulaire_Contact, T_Fournisseur.Courriel_Contact, T_Fournisseur.Commentaires, T_Fournisseur.Notes_Appro, T_Fournisseur.Date_Ajout, T_Fournisseur.Anciens_Noms, T_Fournisseur.Date_Reception_RFI, T_Fournisseur.RENA_Fin_Interdiction, T_Fournisseur.DandB_Date_Verification, T_Fournisseur.DandB_PDF, T_Fournisseur.PDF_RFI, T_Fournisseur.Mots_cles, T_Fournisseur.Suspension_Date, T_Fournisseur.[Logo Fournisseur], T_Fournisseur.Compte_680, T_Fournisseur.Compte_977, T_Fournisseur.Compte_1611, T_Fournisseur.Compte_1981, T_Fournisseur.Compte_2000, T_Fournisseur.Compte_2020, T_Fournisseur.Compte_2200, T_Fournisseur.Compte_333GA, T_Fournisseur.Compte_801GA, T_Fournisseur.Compte_880AvHM, T_Fournisseur.[Compte_880_930 CHSF], T_Fournisseur.Compte_900RL, T_Fournisseur.Compte_925GA, T_Fournisseur.Compte_955GA, T_Fournisseur.Compte_1080GA, T_Fournisseur.Compte_1091GA, T_Fournisseur.Compte_1122_26_34, T_Fournisseur.Compte_1150GA, T_Fournisseur.Compte_1200, T_Fournisseur.Compte_MARLY, T_Fournisseur.Compte_522
FROM T_Region INNER JOIN (T_Categorie INNER JOIN T_Fournisseur ON T_Categorie.CodeCategorie = T_Fournisseur.CodeCategorie) ON T_Region.CodeRegion = T_Fournisseur.CodeRegion
WHERE (((T_Fournisseur.CodeRegion)=IIf([Formulaires]![F_RMC_Appro]![cboRegion]=0,[T_Fournisseur].[CodeRegion],[Formulaires]![F_RMC_Appro]![cboRegion])) AND ((T_Fournisseur.CodeCategorie)=IIf([Formulaires]![F_RMC_Appro]![cboCategorie]=0,[T_Fournisseur].[CodeCategorie],[Formulaires]![F_RMC_Appro]![cboCategorie])) AND ((T_Fournisseur.Nom) Like "*" & [Formulaires]![F_RMC_Appro]![TxtFournisseur] & "*") AND ((T_Fournisseur.Mots_cles) Like "*" & [Formulaires]![F_RMC_Appro]![Motclé] & "*")) OR (((T_Fournisseur.CodeRegion)=IIf([Formulaires]![F_RMC_Appro]![cboRegion]=0,[T_Fournisseur].[CodeRegion],[Formulaires]![F_RMC_Appro]![cboRegion])) AND ((T_Fournisseur.CodeCategorie)=IIf([Formulaires]![F_RMC_Appro]![cboCategorie]=0,[T_Fournisseur].[CodeCategorie],[Formulaires]![F_RMC_Appro]![cboCategorie])) AND ((T_Fournisseur.Anciens_Noms) Like "*" & [Formulaires]![F_RMC_Appro]![TxtFournisseur] & "*") AND ((T_Fournisseur.Mots_cles) Like "*" & [Formulaires]![F_RMC_Appro]![Motclé] & "*"))
ORDER BY T_Fournisseur.Nom, T_Region.Region;

Mes deux zones de texte pour lesquelles j'aimerais pouvoir faire une recherche avec ou sans accent sont: TxtFournisseur et Motclé.

Est-il possible de ne pas tenir compte des accents dans mon cas?

Merci.

Laurent.