What's New at FreeAccess?Ezy ProgressBar New
A self-contained and modern progress bar dialog that also displays est. time to finish & pct. complete.
Developer Toolbar v1.1a
Ezy Switchboard 1.4
SmartToolbar v1.0.3
Ezy Reporter for Access2000 v1.2.04
Ezy Filter for Access2000 v3.0.1
Show SubForm in Datasheet View AND Back Again: You know that by right-clicking in a subform that is in Form View, you can click Subform Datasheet in the Subform's right-click PopUp Shortcut Menu to switch the Subform to Datasheet View, but you can't restore Form View for the Subform without closing and then re-opening the main form. There is a nice work-around which I recently discovered:
1. Open a Form with a Subform.
2. Display the Toolbar to be used with that Form, and right-click on that Toolbar, then click Customize...
3. In the Customize Toolbars Dialog, in the Toolbars tab, scroll to the bottom of the Toolbars listbox, and tick Shortcut Menus to display the ShortCuts CommandBar.
4. In the ShortCuts CommandBar, click on Form, then Form View Subform.
5. Drag the Subform Datasheet item in the Form View Subform submenu onto the form's Toolbar.
6. IMPORTANT - Immediately click the Reset button on the Customize Toolbars dialog to re-instate the Subform Datasheet item in the ShortCuts CommandBar. Close the ShortCuts CommandBar.
7. The new toolbar button on the main form's Toolbar will be blank.
8. Locate the Datasheet View Toolbar Button on the Form View Toolbar, right-click on it, and click Copy Button Image.
9. Right-click on the new toolbar button on the main form's Toolbar, and click Paste Button Image. The new toolbar button will now sport the Datasheet View icon.
10. Close the Customize Toolbar dialog.
11. Now place your cursor/mouse in the subform. Clicking on your new toolbar button will switch the subform to Datasheet View, but you will also notice that the button is a toggle button and that is in its pressed state. Click on it to restore it and presto the subform reverts to Form View!
A Pre-Deployment Checklist for Access Projects:
1. Remove Redundant References
2. Check Tab Order in Forms
3. Check Status Bar and ToolTips Text
4. Check Security:
___4.1 If an unsecured .mde, remove Admin design permissions for tables/queries from the .mde
___4.2 If an Access2000 or later .mde, secure VBA code
5. Check Error Handling
Useful Access Keyboard Shortcuts - ctl+' ___Enter same entry for the current field as the previous record
- ctl+: ___Enter current date in current control
Work in both form and datasheet views. Access2002 and Access2000 Revisited Further to last month's piece, some further advice for those with Access2000 installed on a PC with Access2002. Always allow completion of the Access2000 Windows Installer. Pressing Cancel will not reset the Windows Registry entries for Access, and Access2000 will incorrectly reference the Access 10.0 library, leading to problems if you distribute an Access2000 .mde compiled with this incorrect reference. Quickly Save a Web Page in IE
Before clicking Save As, click Work Offline - IE will go offline WITHOUT CLOSING YOUR INTERNET CONNECTION. The page will save in the fraction of the time required if IE is Online. When you next click on a link, you will be prompted to go back Online. Useful Windows System Freeware
From www.freshdevices.com : - FreshUI - for configuring and optimizing Windows
- FreshDiagnose - for system information and benchmarking
Data Strategies - Access Downloads MCW Technologies Downloads viescas.com Downloads
Audit Trail for Table Records In a Data Form:
Private Sub Form_BeforeUpdate(Cancel As Integer)
'Purpose: Timestamp current form record
'Field Controls:
'LastEdit - General Date DataType
'DateAdded - General Date DataType
'CreatedBy - Text DataType
'LastEditBy - Text DataType
On Error GoTo RecStamp_Error
Me.LastEdit = Now
Me.LastEditBy = GetUser()
' Only stamp DateAdded and CreatedBy fields if a new record
If Me.NewRecord Then
___Me.DateAdded = Now
___Me.CreatedBy = GetUser()
End If
RecStamp_Exit:
Exit Sub
RecStamp_Error:
MsgBox Err.Description
Resume RecStamp_Exit
End Sub
In a Code Module:
Option Compare Database
Option Explicit
Public Declare Function GetUserName _
Lib "Advapi32.dll" Alias "GetUserNameA" _
(ByVal ABuffer As String, nSzie As Long) As Long
Public Function GetUser() As String
'Returns Windows User LogOn ID
On Error GoTo GetUser_Err
Dim sUserName As String
Dim lSize As Long
Dim lLength As Long
sUserName = String(15, " ")
lSize = Len(sUserName)
lLength = GetUserName(sUserName, lSize)
GetUser = Left(sUserName, lSize - 1)
Exit Function
GetUser_Err:
GetUser = "Unknown"
Exit Function
End Function
free MS-Access tips - Lebans Com Access Files
- Tony's Main Microsoft Access Page
- Viescas Consulting, Inc.
Windows Users Group
WUGNET® Computing Forums - Access 97 Support Center
- Access 2000 Support Center
Access 2002 Support Center
- ITtoolbox Database
- ITtoolbox Visual Basic Knowledge Base
- VB Helper Tips, Tricks, & Example Programs for Visual Basic Developers
OpenITx/ACCESS MCW Technologies Moscow MS Access user Group
A new Access Mailing List Manager database application A new navigation paradigm for Access Databases A new Access HRIS database application
A comprehensive leave and training tracker
A new version of the Project Management database
Incorporating daily time management
Also on the drawingboard:
Instant Invoicer Wizard
Consolidation Query Wizard
Call Logging Database
Currency Exposure Manager Database
| 
Get the FreeAccess Access Utilities CD