IN THE SPOTLIGHT: MDE to MDB Conversion Service
(also supports: ACCDE to ACCDB, ADE to ADP, etc)
IN THE SPOTLIGHT: vbWatchdog
VBA error handling just got easier...
" vbWatchdog is off the chart. It solves a long standing problem of how to consolidate error handling into one global location and avoid repetitious code within applications. "
- Joe Anderson,
Microsoft Access MVP
Meet Shady, the vbWatchdog mascot watching over your VBA code →
(courtesy of Crystal Long, Microsoft Access MVP)
IN THE SPOTLIGHT: vbMAPI
An Outlook / MAPI code library for VBA, .NET and C# projects
Get emails out to your customers reliably, and without hassle, every single time.
Use vbMAPI alongside Microsoft Outlook to add professional emailing capabilities to your projects.
Use this function to correct case for proper nouns. For example, if company names have been entered in all upper case, create an Update Query that calls this function to correct it. You will probably need to manually correct those that don't follow the rule: the function does not handle names like McDonald or van Leen
Function Proper (var As Variant) As Variant ' Purpose: Convert the case of var so that the first letter of each word capitalized. Dim strV As String, intChar As Integer, i As Integer Dim fWasSpace As Integer 'Flag: was previous char a space? If IsNull(var) Then Exit Function strV = var fWasSpace = True 'Initialize to capitalize first letter. For i = 1 To Len(strV) intChar = Asc(Mid$(strV, i, 1)) Select Case intChar Case 65 To 90 ' A to Z If Not fWasSpace Then Mid$(strV, i, 1) = Chr$(intChar Or &H20) Case 97 To 122 ' a to z If fWasSpace Then Mid$(strV, i, 1) = Chr$(intChar And &HDF) End Select fWasSpace = (intChar = 32) Next Proper = strV End Function
Have your say - comment on this article.
What did you think of 'VBA: Convert text to proper case (alternative to StrConv())'?
No comments yet.
Why not be the first to comment on this article?!
Have your say...