[f6k]

peut-on obtenir un résultat de tri sans tenir compte des accents? i.e. que les Étienne et les Etienne soient triés indépendamment du fait qu'il y soit inscrit avec ou sans un accent dans Access

[Livinloud]

A moins de faire un tri manuellement, non c'est pas possible.

[francishop]

Bonsoir,

On peut essayer à l'aide d'une fonction genre :

CODE

Public Function SansAccent(ByVal Texte As String) As String
Dim Place As Integer
For Place = Len(Texte) To 1 Step -1
  Select Case Mid(Texte, Place, 1)
    Case "à", "á", "â", "ã", "ä", "å", "Ä"
Texte = Left(Texte, Place - 1) & "a" & Mid(Texte, Place + 1)
    Case "ç"
Texte = Left(Texte, Place - 1) & "c" & Mid(Texte, Place + 1)
    Case "é", "è", "ë", "ê"
Texte = Left(Texte, Place - 1) & "e" & Mid(Texte, Place + 1)
    Case "ì", "í", "î", "ï"
Texte = Left(Texte, Place - 1) & "i" & Mid(Texte, Place + 1)
    Case "ñ"
Texte = Left(Texte, Place - 1) & "n" & Mid(Texte, Place + 1)
    Case "ò", "ó", "ô", "õ", "ö"
Texte = Left(Texte, Place - 1) & "o" & Mid(Texte, Place + 1)
    Case "ù", "ú", "û", "ü"
Texte = Left(Texte, Place - 1) & "u" & Mid(Texte, Place + 1)
    Case "ý", "ÿ"
Texte = Left(Texte, Place - 1) & "y" & Mid(Texte, Place + 1)
    End Select
   Next Place
SansAccent = Texte
End Function

L'appel -->

CODE

SELECT tblAccents.EssaiAccents,
SansAccent([EssaiAccents]) AS ResultSansAccent
FROM tblAccents;

Cordialement.