New Downloads

Highlights

• Version 3.0 of the FreeAccess Access Utilities CD of Access utilities, code samples, sample applications and articles is now available:

• 474 mb and more than 2,400 files
• auto-start and a new CD Launcher and Browser

Only US$30 including air-mail postage (US$10 Upgrade from v1 or 2)

Version 2.0 is still available for US$20 including air-mail postage.

• Before the New Year FreeAccess will launch a beta of a stand-alone application for managing all your Access projects: The FreeAccess Access Control Center

Use Access97 to Build Prototypes Regrettably, Microsoft has not upgraded the plethora of the free add-ins and wizards they made available for Access97. I prefer Access97 over the later versions because of its speed and the integrated module environment, and I develop the prototypes of all my Access applications in Access97, and then convert to a later version if required. Microsoft has extended mainstream support for Office 97 to January 2004, so there is still some official life in Access97 yet. The following MS Access97 add-ins definitely boost my productivity: Error Search Tool Wizard Builder Command Bar Wizard CrossRefencer Domain Wizard Function Template Wizard Security Manager Tree View Wizard Balloon Wizard Class Builder Wizard Menu Wizard MS Project 4 to Access97 Converter Partial Replica Wizard References Wizard Replica to Regular Access Database Wizard All these add-ins and other 3rd party wizards are on the FreeAccess CD, as well as the source code versions of the native Access97 Wizards. Win a copy of The Access Workbench from vb123.com Use Workbench to track users and computers using a database, lock out new users during maintenance, monitor workgroups and .ldb files, and more... FreeAccess Subscribers can win one of two copies of the WorkBench, which retails for US$35. Winners will be drawn on 15 December and advised by email. Inform Users that a Report has not returned any Data Add this code to a Report's On No Data Event property: Private Sub Report_NoData(Cancel As Integer) ___MsgBox "This report contains no data. Cancelling..." ___Cancel = True End Sub Global Keyboard Shortcuts Menus   Show the shortcut menu SHIFT+F10 Make the menu bar active F10 Show the program icon menu (on the program title bar) ALT+SPACEBAR Select the next or previous command on the menu or submenu DOWN or UP ARROW (with menu/submenu displayed) Select the menu to the left or right; or, with a submenu visible, switch between the main menu and the submenu LEFT or RIGHT ARROW Select the first or last command on the menu or submenu HOME or END Close the visible menu and submenu at the same time ALT Close the submenu only ESC Toolbars   Make the menu bar active F10 Select the next or previous toolbar CTRL+TAB or CTRL+SHIFT+TAB Select the next or previous button or menu on the toolbar (when a toolbar is active) TAB or SHIFT+TAB   Open the menu(when a menu on a toolbar is selected) ENTER   Perform the action assigned to a button ENTER (when a button is selected) Enter text in a text box ENTER (when text box is selected) Select an option from a drop-down list box or from a drop-down menu on a button Arrow keys to move through options in the list or menu; ENTER to select the option you want (when a drop-down list box is selected)

 

Martin Green's Access Tips

 

 

Useful Code

Public Function RefreshLinks(strFilename As String) As Boolean ' Refresh table links to a backend database - strFilename (full path) ' Returns True if successful. ___Dim dbs As Database ___Dim tdf As TableDef ___' Loop through all tables in the database. ___Set dbs = CurrentDb ______For Each tdf In dbs.TableDefs _________' If the table has a connect string, it's a linked table. _________If Len(tdf.Connect) > 0 Then ____________tdf.Connect = ";DATABASE=" & strFilename ____________Err = 0 ____________On Error Resume Next ____________tdf.RefreshLink ' Relink the table. _______________ If Err <> 0 Then __________________RefreshLinks = False __________________Exit Function _______________ End If _________End If ______Next tdf ___RefreshLinks = True ' Relinking complete. End Function

Function ZoomBox() ___Screen.ActiveControl.SetFocus ___RunCommand acCmdZoomBox End Function

Function IsLoaded(ByVal strFormName As String) As Integer ' Returns True ifstr FormName is open in Form or Datasheet view ___Const conObjStateClosed = 0 ___Const conDesignView = 0 ___If SysCmd(acSysCmdGetObjectState, acForm, strFormName) <> ______conObjStateClosed Then _________If Forms(strFormName).CurrentView <> conDesignView Then ____________IsLoaded = True _________End If ___End If End Function

 

 

Sms Consulting

 

The FreeAccess Access Control Center
Manage all your Access projects from within an integrated project environment. The Access Control Center detects which versions of Access are installed on your PC and organises projects by Access versions: 97, 2000, and 2002. Projects are managed centrally and .mdb's are opened by the appropriate Access version automatically. Each .mdb has it's own Notes record. Automatically create secure shortcuts for secured databases.

A new version of the Project Management database
Incorporating daily time management

Updates of FreeAccess AddIns

Also on the drawingboard:
Instant Invoicer Wizard
Consolidation Query Wizard
Currency Exposure Manager Database

 

 

No 13 October 2002
No 14 November 2002

Download a Searchable Compendium of Issues 1-12  

Other Access Newsletters:

Access Unlimited by Garry Robinson http://www.vb123.com

Access Developer News by Mike Gunderloy http://www.larkware.com

Top

Subscription to this newsletter is free.

This newsletter may contain links to sites on the Internet which are owned and operated by third parties. AAD CONSULTING is not responsible for the content of any such third-party site.

Any files are provided "as is", without warranty of any kind. AAD CONSULTING does not assume any liability for use or the consequences of use.

To unsubscribe from this mailing list, enter your email address and click OK:

Unsubscribe

Have questions or comments?
Send them to us.

Access is a trademark of Microsoft Corporation.

©2001-2002
Anthony D'Ambra.
All rights reserved.

Top