IN THE SPOTLIGHT: MDE to MDB Conversion Service
(also supports: ACCDE to ACCDB, ADE to ADP, etc)
IN THE SPOTLIGHT: Access Database Repair Service
An in-depth repair service for corrupt Microsoft Access files
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.
IN THE SPOTLIGHT: Code Protector
Standard compilation to MDE/ACCDE format is flawed and reversible.
These two functions are very simple but useful in Access 1 and 2, since Nulls propagate like rabbits. From Access 95 onwards, use the built-in Nz() function.
Use Null2Zero() to prevent runtime errors when assigning values to non-variants, or to prevent calculations choking over Nulls.
Twitter
Function Null2Zero(AValue)
' Purpose: Return the value 0 if AValue is Null.
If IsNull(AValue) Then
Null2Zero = 0
Else
Null2Zero = AValue
End If
End Function
Len() returns Null as the length of a Null variant, so StrLen() is a quick substitute. Since any non-zero value = True, you can test for no entry (Null or zero length string) with If Not StrLen([MyControl]) Then
Function StrLen(AVariant) As Integer
' Returns the length of a variant or string, treating Null as a zero-length string.
If IsNull(AVariant) Then
StrLen = 0
Else
StrLen = Len(AVariant)
End If
End Function
Rate this article: 
iTech Masters | VAT: GB202994606 | Terms | Sitemap | Newsletter