property for small and big letters ?

  • Thread starter Thread starter Zlatko Matiæ
  • Start date Start date
Z

Zlatko Matiæ

What is the name of property that defines wheter a letter is big or small
(upper case, lower case) in VBA ?
 
No property that I ever heard of but there are formating for display and
UCase and LCase that change the characters of the field.
UCase([YourField])
 
Zlatko said:
What is the name of property that defines wheter a letter is big or small
(upper case, lower case) in VBA ?
Click to expand...

Use the Asc() function. Uppercase letters have ASCII values from 65 to
90. Lowercase letters have ASCII values from 97 to 122. To convert a
lowercase letter to an uppercase:

Chr(Asc("m") - 32) = "M"

James A. Fortune
 
You can easily write a little function which returns True if upper case,
False if lower:

Function IsUpper(strChr As String) As Boolean

IsUpper = (StrComp(strChr, UCase(strChr), vbBinaryCompare) = 0)

End Function

So, IsUpper("M") returns True, IsUpper("m") returns False. Not alphabetic
characters always return True of course. If a string of more than one
character is passed into the function it will act on the complete string,
i.e. it will return True only if all alphabetic characters are upper case.
 
Hello,

Thank you guys for answer.

In fact, I want to change all my fields in all tables, linked tables,
queries and pass-through queries to lower case.
What would be the fastest way ?

Thanks in advance.
 
You should be able to update the local and linked tables with some DAO which
loops throgh the Fields collection of each tabledef object and executes a
series of SQL statements. Be sure to back everything up first!

Dim dbs As DAO.Database, tdf As DAO.TableDef, fld As DAO.Field
Dim strSQL As String

Set dbs = CurrentDb

For Each tdf In dbs.TableDefs
If Left(tdf.Name, 4) <> "Msys" Then
For Each fld In tdf.Fields
strSQL = "UPDATE " & tdf.Name & _
" SET " & fld.Name & " = LCASE(" & _
fld.Name & ")"
On Error Resume Next
dbs.Execute strSQL
On Error GoTo 0
Next fld
End If
Next tdf
 
Hello, Ken!
Thank you for the code. I just added part for queries and successfuly done
it.

For Each qdf In dbs.QueryDefs
If Left(qdf.Name, 4) <> "Msys" Then
qdf.SQL = LCase(qdf.SQL)
End If
Next qdf

Thanks again,

Zlatko
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Change from all UPPER case letters 5
Change all upper case letters to lower case 2
Differences between lower case and upper case 4
Input mask for last name 5
Formatting upper or lower case text 3
Force Lower Case 3
All capital Letters ! 1
Case being changed in table 1

Back
Top