CodeWidgets.com Online Source Code Library -ASP, ASP.NET, VB, VB.Net, Microsoft® Access, Javascript, VBScript, Website Design, Web Applications, Custom Programming Services Available.

 CodeWidgets.com ASP, ASP.NET, VB, VB.Net,
Microsoft® Access, Javascript, VBScript,
Website Design, Web Applications
Shopping Cart (0) Items $0.00      
 CodeWidgets.com
CodeWidgets.com

 

Website Stats to Date

Pages Viewed 4,401,732
Visitors 1,206,536
Widgets Viewed 3,009,755
Since January 1/2003
 
 
Active Users: 13
 

 
PayPal: Secure online payments!
 
Widget #CS0009

ProperCase Function VB 6.0

ProperCase Function VB 6.0

Send Link

Questions

Currency Conv.
  Widget Info  
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
 Licensing
Format: Plug & Play Code
Copy the Source Code Above..
Licencing Terms: No Restrictions
Re-Distribution Permitted
This source code is provided to you "as is" without warranty
CLICK HERE FOR TERMS OF USE
Copyright 2002-2006 Comrie Software Solutions
 Related Widgets

Age Function VB 6.0 Using DateDiff()
Centralized Error Logging Function with Email
Corrupted Access Database Repair with Data Extractor.
Pop-Up Search Form Template
ProperCase.Net Function

ShoppingCart Empty
Services Contact Info Legal Info
Designated trademarks and brand names are the property of their respective owners.

By accessing this website it is assumed that you agree to the TERMS OF USE.

Send questions or comments regarding this website to  Comrie Software Solutions.

Click here for a complete list of available Widgets.