Manufacturing Information Solutions

[mistux]

Asuming the data 'Test', 'test', 'TEST' etc is held in a field called MyField in the table MyTable, then the query would be:

You would simply have to paste the following function into a code module:
SELECT MyField, Count(*) AS MyTotal
FROM MyTable
GROUP BY MyField, GetAscString([MyField])

' ************************************************** ***
Public Function GetAscString(varInput) As String

Dim lngCount As Long
Dim strOut As String

If Len(varInput) > 0 Then
For lngCount = 1 To Len(varInput)
strOut = strOut & Asc(Mid$(varInput, lngCount, 1))
Next lngCount
End If

GetAscString = strOut

End Function