UPPER CASE

[mike via AccessMonster.com]

Hi,

I need to change my existing data into Uppercase, Some of the data in certain
field are in lowercase and i need them to change to uppercase. Is there a way
to change them all together in just one click?.
thanks
--
Message posted via http://www.accessmonster.com

[Anton]

Hi Mike,

Easiest way is probably to roll through a recordset and use UCase to
change the existing data.

NB: You'll need to ensure you have a reference to DAO 3.6

On Error Resume Next
Dim db As DAO.Database, rs As DAO.Recordset, X As Integer
Set db = CurrentDb
Set rs = db.OpenRecordset("tbl_Names")
rs.MoveLast
X = rs.RecordCount
rs.MoveFirst
If Not X = 0 Then
For X = 1 To X
rs.edit
rs("FirstName") = UCase(rs("FirstName"))
rs("LastName") = UCase(rs("LastName"))
rs.Update
rs.MoveNext
Next X
Select Case X - 1
Case 1
MsgBox "1 record has been converted to uppercase.", _
vbInformation + vbOKOnly, "Complete"
Case 2
MsgBox "Both records has been converted to uppercase.", _
vbInformation + vbOKOnly, "Complete"
Case Else
MsgBox "All " & X - 1 & " records have been converted to
uppercase.", _
vbInformation + vbOKOnly, "Complete"
End Select
End If
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing

[mike via AccessMonster.com]

Thank you sir!,,'preciate it...

Anton wrote:

Hi Mike,

Easiest way is probably to roll through a recordset and use UCase to
change the existing data.

NB: You'll need to ensure you have a reference to DAO 3.6

On Error Resume Next
Dim db As DAO.Database, rs As DAO.Recordset, X As Integer
Set db = CurrentDb
Set rs = db.OpenRecordset("tbl_Names")
rs.MoveLast
X = rs.RecordCount
rs.MoveFirst
If Not X = 0 Then
For X = 1 To X
rs.edit
rs("FirstName") = UCase(rs("FirstName"))
rs("LastName") = UCase(rs("LastName"))
rs.Update
rs.MoveNext
Next X
Select Case X - 1
Case 1
MsgBox "1 record has been converted to uppercase.", _
vbInformation + vbOKOnly, "Complete"
Case 2
MsgBox "Both records has been converted to uppercase.", _
vbInformation + vbOKOnly, "Complete"
Case Else
MsgBox "All " & X - 1 & " records have been converted to
uppercase.", _
vbInformation + vbOKOnly, "Complete"
End Select
End If
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing

--
Message posted via http://www.accessmonster.com

[Nigel C]

If you did not need to provide user feedback - you could create an
update query to change the relevant fields. This could reduce the code
to 2 or 3 lines - bearing in mind you need to setwarnings off.

[Keith]

"Nigel C" <ni************@hotmail.com> wrote in message
news:11**********************@g47g2000cwa.googlegr oups.com...

If you did not need to provide user feedback - you could create an
update query to change the relevant fields. This could reduce the code
to 2 or 3 lines - bearing in mind you need to setwarnings off.

Why not just use an update query? No need for any code at all:

Update to: UCase([MyField])

Regards,
Keith.
www.keithwilby.com

[lylefair]

Run a update query. Here is an example:
UPDATE Transactions SET Description = UCase(Description);

[jeremygetsmail]

[Sorry if this gets posted three times, I'm having some issues w/google
groups...]

This seems really complex. Why not just use a simple update query?
UPDATE MyTable SET [MyField] = UCASE([MyField])

mike via AccessMonster.com wrote:

Thank you sir!,,'preciate it...

Anton wrote:

Hi Mike,

Easiest way is probably to roll through a recordset and use UCase to
change the existing data.

NB: You'll need to ensure you have a reference to DAO 3.6

On Error Resume Next
Dim db As DAO.Database, rs As DAO.Recordset, X As Integer
Set db = CurrentDb
Set rs = db.OpenRecordset("tbl_Names")
rs.MoveLast
X = rs.RecordCount
rs.MoveFirst
If Not X = 0 Then
For X = 1 To X
rs.edit
rs("FirstName") = UCase(rs("FirstName"))
rs("LastName") = UCase(rs("LastName"))
rs.Update
rs.MoveNext
Next X
Select Case X - 1
Case 1
MsgBox "1 record has been converted to uppercase.", _
vbInformation + vbOKOnly, "Complete"
Case 2
MsgBox "Both records has been converted to uppercase.", _
vbInformation + vbOKOnly, "Complete"
Case Else
MsgBox "All " & X - 1 & " records have been converted to
uppercase.", _
vbInformation + vbOKOnly, "Complete"
End Select
End If
rs.Close
db.Close
Set rs = Nothing
Set db = Nothing

--
Message posted via http://www.accessmonster.com

[Nigel C]

You would usually run a query from code - not just run the query from
the database window - so to that end I was just informing that you need
to setwarnings false to run an action query. Thats all.

[Keith]

"Nigel C" <ni************@hotmail.com> wrote in message
news:11*********************@g44g2000cwa.googlegro ups.com...

You would usually run a query from code - not just run the query from
the database window - so to that end I was just informing that you need
to setwarnings false to run an action query. Thats all.

The OP didn't specify where he wanted to run it from so I assumed it would
be from the db window, it was Anton's response that suggested coding it and
my comment was really intended to illustrate to the OP that no coding was
necessary.

Regards,
Keith.

[lito b via AccessMonster.com]

thanks men,,

I had a question:

my current format in a certain field is:
AA2C21

I want to change to AA2-C2-1 is there a way to change it in just one click?

thanks again for you help...

je************@gmail.com wrote:

[Sorry if this gets posted three times, I'm having some issues w/google
groups...]

This seems really complex. Why not just use a simple update query?
UPDATE MyTable SET [MyField] = UCASE([MyField])

Thank you sir!,,'preciate it...

[quoted text clipped - 37 lines]

>Set rs = Nothing
>Set db = Nothing

--
Message posted via AccessMonster.com
http://www.accessmonster.com/Uwe/For...ccess/200509/1