Maak een module met volgende functie:
Public Function Spatieloos(Str As String) As String
Dim i As Integer
Dim woord As String
For i = 1 To Len(Str)
If Mid(Str, i, 1) <> " " And Mid(Str, i, 1) <> "-" And Mid(Str, i, 1) <> "'" Then
woord = woord & Mid(Str, i, 1)
End If
Next i
Spatieloos = woord
End Function
Zet volgende regel in een query:
proper: Spatieloos([tabel]![Naam])
En je hebt een lijst van de namen zonder spaties. Als je hier op sorteert, ...