What's New at FreeAccess?Ezy Reporter 1.01
Easily create complex reports in a variety of formats: datasheet, Access report, Excel, RTF, ASP, and HTML. An add code options allows developers to add Ezy Reporter to their applications.
Ezy Documenter 4.2
Fast documentation of Access databases.
Check out the easy way to create switchboards
Ezy Switchboard 1.1
Visually create and maintain Access switchboards.
Smart Form Wizard 3.0
Build ready to run Access forms with navigation and autofiltering
Vizual Dezigner 12.1
The ultimate Access add-in - now includes the latest versions of Ezy Reporter and the Smart Form Wizard.
Hard to find files that are no longer on the Microsoft web site - new files in each newsletter
Sample Databases
Access97 Neatcode Samples Database
Access97 Forms Samples Database
White Paper
Jet 3.5 Performance Overview and Optimization Techniques White Paper The extraction password for each zip file was included in the subscriber mailing of 31Augt2001.
Free Active-X Controls
Axsoft provides a wide range of free .ocx's
VFOutBar is an easy-to-use third-party .ocx that allows you to add an Outlook-style navigation bar to your database. In Access, register the control in the ActiveX Controls dialog opened from Tools, ActiveX Controls in the Database Window.
Replace String
A neat function from Vincent Billard that you can use in Access97, which does not have the native Replace function available in Access2000. Visit Vincent's web site at http://www.rezo.net/skrol29 to download his great V97/V2000 Access add-in.
Public Function ReplaceString(Str As String, WhatStr As String, WithStr As String) As String
'Vincent BILLARD
'skrol29@freesurf.fr
Dim s As String
Dim i As Integer
s = Str
i = 1
If Len(WhatStr) > 0 Then
Do Until i > Len(s)
If Mid$(s, i, Len(WhatStr)) = WhatStr Then
s = Left$(s, i - 1) & WithStr & Mid$(s, i + Len(WhatStr))
i = i + Len(WithStr)
Else
i = i + 1
End If
Loop
End If
aad_ReplaceString = s
End Function
Get rid of screen-flicker!
The Access command DoCmd.Echo rarely works. Use the Windows API instead. Source code from Christine Solomon's book, "Microsoft Office97 Developer's Handbook". 1. Add the following declaration to a code module:
'This prevents screen redraw. It's especially handy when using OLE automation.
Declare Function LockWindowUpdate Lib "user32" _
(ByVal hwndLock As Long) As Long
2. Add the this function:
Public Function fnEcho(intFlag As Integer)
Dim hwnd As Long
Dim lngRetVal As Long
Dim hwndPrevious As Long
Select Case intFlag
'Echo OFF.
Case 0
'Get the handle to this Access window.
hwnd = FindWindowByClass("OMAIN", 0&)
'Prevent updates to this window.
lngRetVal = LockWindowUpdate(hwnd)
'Echo ON.
Case 1
lngRetVal = LockWindowUpdate(0&)
End Select
End Function
3. Call the function in your code as follows. Don't forget to turn the echo back on in your error-trapping.
fnEcho (0) ' Turn echo off fnEcho (1) ' Turn echo on
Access Tutorials
Smart Access Home
GR-FX - Access
Table Warehouse Access Add-In
The ultimate source for pre-designed Access tables!
A new Access HRIS database application
A comprehensive leave and training tracker
A new version of the Project Management database
incorporating daily time management
New versions of:
Vizual Einstein
Web Tarantula
| 