Finding Uppercase values

[ejhatch]

Hi All,

How can I report on records which have uppercase values in a record. The data I have in the table is a mixture of Titlecase and UPPERCASE. I need to report on the uppercase values.

Thanks,

Evan

 

[Ian Mac]

Hi,

You probebly need something like a custom function to test it:

Public Function ISUPPERCASE(strTestUpper As String) As Boolean

Dim intTestUpper As Integer
Dim i As Integer
Dim test As Boolean
Dim test1 As Boolean

intTestUpper = Len(strTestUpper)

test1 = True

For i = 1 To intTestUpper

If Asc(Mid(strTestUpper, i, 1)) >= 65 And Asc(Mid(strTestUpper, i, 1)) <= 95 Then
test = True
Else
test = False
End If

test1 = test1 * test

Next i

ISUPPERCASE = test1

End Function

would work for you.

It's not pretty but it would work.

 

[ejhatch]

Hi Ian,

Thanks very much for answering my query and for writing the required code.

Much appreciated.

Cheers,

Evan