Query on capital letters

[srsteiner]

Is it possible to query a field on capital letters only.

For example I have a table whose records look like this:

HR
three
Heat Rate
hr online
Hrate

and I want the query to just return the following records:

HR
Heat Rate

Thank you.

 

[Dugantrain]

You can use a custom VBA function and call that function from a query to get your results. Basically, you want to return all records where a certain field has a capital letter in it. Capital letters would have an ASCII value between 65 and 90. Here's the function:

Public Function fIs_UCase(strText As String) As Boolean
Dim i As Long
Dim lenText As Long
lenText = Len(strText)
fIs_UCase = False
For i = 1 To lenText
    If Asc(Mid(strText, i, 1)) >= 65 And Asc(Mid(strText, i, 1)) <= 90 Then
        fIs_UCase = True
        Exit Function
    End If
Next i
End Function

You can now call this function from your query. Pull down the field that you want to see. Next, define a new field by:

fIs_UCase([Your_Field_Here])

and in the Criteria of this new field, type True. It should be noted that this function would break if you tried to pass in a Null value, so if you have Nulls in your field, you may want to first write a query which eliminates those Nulls and then use this function in a query based off of that query.