FIRST LETTER CAPITAL

[Sue]

LCase, UCase, ProperCase. Is there a simple way to just cap the first letter of each word and leave the rest alone

Thanks in advance

 

[Ken Snell]

StrConv("String", vbProperCase)

--

Ken Snell
<MS ACCESS MVP>

LCase, UCase, ProperCase. Is there a simple way to just cap the first

letter of each word and leave the rest alone?

 

[Sue]

That won't work. It will make any subsequent upper case letters lower case. I'm just looking to make the first letter upper case.

 

[Graham R Seach]

Sue,

Public Function FirstCharUC(sText As String) As String
Dim sTmp() As String
Dim iCtr As Integer

If Len(Trim(sText)) > 0 Then
sTmp = Split(sText)

For iCtr = 1 To UBound(sTmp)
sTmp(iCtr) = UCase(Left(sTmp(iCtr), 1)) & Mid(sTmp(iCtr), 2)
Next iCtr

FirstCharUC = Join(sTmp)
Else
FirstCharUC = sText
End If
End Function

Regards,
Graham R Seach
Microsoft Access MVP
Sydney, Australia

Microsoft Access 2003 VBA Programmer's Reference
http://www.wiley.com/WileyCDA/WileyTitle/productCd-0764559036.html

That won't work. It will make any subsequent upper case letters lower

case. I'm just looking to make the first letter upper case.

 

[Harmannus]

Hallo,

Or this ;-)

Place it in a query field:
UCase(Left([YourField];1))+LCase(Right([YourField];Len([YourField])-1))


Regards,
Harmannus

 

[Graham R Seach]

Sue,

Put the code in a standard module. You can call it from either VBA or SQL.

Regards,
Graham R Seach
Microsoft Access MVP
Sydney, Australia

Microsoft Access 2003 VBA Programmer's Reference
http://www.wiley.com/WileyCDA/WileyTitle/productCd-0764559036.html

Thanks so much. One question though. Where do I insert this? After

Update Event?

 

[Sue]

How would I call out the code?

Sue,

Put the code in a standard module. You can call it from either VBA or SQL.

Regards,
Graham R Seach
Microsoft Access MVP
Sydney, Australia

Microsoft Access 2003 VBA Programmer's Reference
http://www.wiley.com/WileyCDA/WileyTitle/productCd-0764559036.html



Update Event?

 

[Graham R Seach]

Sue,

If you want to change the text after it has been entered into a textbox by
the user, then add the following code to your textbox's AfterUpdate event:
Private Sub txtMyTextBox_AfterUpdate()
Me!txtMyTextBox = FirstCharUC(Me!txtMyTextBox)
End Sub

Make sure to rename txtMyTextBox to whatever name you've given to your
textbox.

Regards,
Graham R Seach
Microsoft Access MVP
Sydney, Australia

Microsoft Access 2003 VBA Programmer's Reference
http://www.wiley.com/WileyCDA/WileyTitle/productCd-0764559036.html

 

[Sue Harsevoort]

Change the 1 ot a 0 in this line:

For iCtr = 1 To UBound(sTmp)

The split function retruns a 0 based array so the way it was it was starting
with the second word instead of the first.

Sue Harsevoort

Works great. Want I was looking for.

Have one problem though. If the very first letter in the field is lower

case it doesn't capitalize that field. Is there something I can change to
ensure it also looks at the very first character in the field?

 

[Sue]

That was exactly what I was looking for. Thank you so much.

 

[Graham R Seach]

Oops! <blush>

Regards,
Graham R Seach
Microsoft Access MVP
Sydney, Australia

Microsoft Access 2003 VBA Programmer's Reference
http://www.wiley.com/WileyCDA/WileyTitle/productCd-0764559036.html