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

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

Recently Viewed Widgets 
Price 
# 
No data to display

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