Pravish si tablica:
Key AutoNumber
t Text

dobavqsh edin modul sys slednia code:


Public Function GetChars(text As String) As String
Dim i As Long
Dim result As String

For i = Len(text) To 1 Step -1
If IsUnique(result, Mid(text, i, 1)) Then
result = result + Mid(text, i, 1)
End If
Next

GetChars = result

End Function



Public Function IsUnique(text As String, char As String) As Boolean
Dim i As Long
Dim result As Boolean

result = True

For i = 1 To Len(text)
If Mid(text, i, 1) = char Then
result = False
Exit For
End If
Next

IsUnique = result

End Function

i nakraia si pravish edno query:

SELECT key, t, GetChars(t)
FROM Table1;


i gotovo... ;)