CodeWidgets.com: Online Source Code Library: C#, ASP, ASP.NET, VB, VB.NET, VB Script, Microsoft Access, Excel, JavaScript, J Script, XML, VBScript, Website Design, DevExpress Components, Reporting, Application and Website Templates.

Widget #CS0009

ProperCase Function VB 6.0

Format and License Info?

Free

Fixes Capitalization on Names to proper case
Microsoft® Access 2000/XP
Visual Basic 6.0
Source Code & Documentation Included
Proper Case Function
Copy and Paste the Code Below
See licencing terms below

Public Function ProperCase1(ByVal strValue As String) As String
Dim strCaps As String
Dim strNotCaps As String
strCaps = UCase(Left$(strValue, 1))
strNotCaps = LCase(Right$(strValue, Len(strValue) - 1))
ProperCase1 = strCaps & strNotCaps
End Function

Public Function ProperCase2(ByVal strValue As String) As String
ProperCase2 = StrConv(strValue, vbProperCase)
End Function


'On Text Box After_Update Event
Public Sub ProperCase3()
Screen.ActiveControl = StrConv(Screen.ActiveControl, vbProperCase)
End Sub

Last Updated: 4/7/2018


Related Widgets 
Price 
# 
CS0005 Pop-Up Search Form Template$18.00Add To Cart
CS0032 ProperCase.Net Function$0.00Add To Cart

Recently Viewed Widgets 
Price 
# 
CS0009: ProperCase Function VB 6.0$0.00Add To Cart

Collapse/Expand
Format

Plug & Play Code

Copy the Source Code Above..

Collapse/Expand
License

License

No Restrictions

Re-Distribution Permitted
This source code is provided to you "as is" without warranty
CLICK HERE FOR TERMS OF USE
Copyright 2000-2006 Comrie Software Solutions

This website uses Cookies to store User information and Shopping Cart Items for the duration of your visit to CodeWidgets.com.

No Credit Card or Financial information is stored by CodeWidgets.com. Click Here For Our Complete Privacy Policy and Terms of Use.

I Understand