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.
In the Declarations section of a module, incude (all on one line):
Declare Function abFileCopy Lib "MSAU200.DLL" Alias "#4" (ByVal strSource As String, ByVal strTarget As String) As Long
And then the procedure:
Twitter
Sub MyFileCopy (strSource As String, strTarget As String)
'strSource is the source file name. strTarget is the target file name.
'A disk and path may be included, but you cannot omit the name of the file.
Dim lngResult As Long, strMsg As String
lngResult = abFileCopy(strSource, strTarget)
Select Case lngResult
Case 0
strMsg = "File copied"
Case -101
strMsg = strSource & " not available"
Case -102
strMsg = "Cannot open the destination. Did you specify the full name? Does a read-only file with that name exist?"
Case -103
strMsg = "Error reading " & strSource
Case -104
strMsg = "Error writing " & strTarget
Case -105
strMsg = "Insufficient memory"
Case -106
strMsg = "Invalid file name"
Case Else
strMsg = "An unknown error occured"
End Select
MsgBox strMsg
End Sub
Rate this article: 
iTech Masters | VAT: GB202994606 | Terms | Sitemap | Newsletter