Give-Aways and Discounts The Newsletter's circulation has reached 1,000 this month. FreeAccess is celebrating with Access give-aways and special subscriber discounts on Access-related products from our sponsors:
Access Databases on a Network Generally, Access can handle up to 50 concurrent users over a network without any trouble, but there are other issues to consider:
Does the server and do the client PCs have enough grunt?
Is LAN broadband sufficient?
How big is the database?
How is it split?
Keep administrative functions in the back-end
Locate all lookup tables and those with static data in the front-end
How is the back-end queried? Are you using ODBC, JET, DAO, or ADO etc...?
Don't open tables across the network. Locate back-end queries in the back-end
Open queries with the minimum recordset required. Use Snapshots where possible
What RecordLocking regime is in place ...optimistic, pessimistic... ?
Your level of experience with and knowledge of Client/Server databases. The Chapter Building Client/Server Applications in the Access documentation,Building Applications with Microsoft Access, is a good starting point.
Visual Basic and Access Development When searching the Web for code samples and guidance in Access, don't ignore Visual Basic sites, as they are a great source of useful code, free type libraries, free .ocx's and information for Access and Office Developers.
The Toolshed is an eBook from vb123.com of Access resources including the latest editions of the popular Access Unlimited magazine plus source code, databases and downloads not available online.
The Toolshed is written and edited by Garry Robinson, a contributing editor to the SmartAccess Newsletter.
ABD Access Auto-Compactor from ABD Software Solutions is a high-end automated system for Access database maintenance.
Compact and repair an unlimited number of databases at scheduled intervals, with auto-backup before compacting for safe restore with the click of a button. Schedule email reports for db administrators.
Mention FreeAccess when you order for the special discount price of US$125.
Designed by Alan B. Densky Microsoft Certified Professional
SSW Access Reporter for IIS lets you deliver your existing Access reports online. Leverage your investment in Access reports.Check out the online demo. An evaluation copy can be downloaded.
Mention FreeAccess when you order to obtain the 40pct discount.
SSW Principal: Adam Cogan MSDN Regional Director
Reset AutoNumber in a Table
To create a new empty table and reset the AutoNumber field from an existing data table:
rename the existing table as "x_tblData", and
open x_tblData in Design View and save as "tblData" using File, Save As.
Use API Calls to determine Windows and Systems Directories Source: Christine Solomon, Microsoft Office Developer's Handbook, Microsoft Press,1997
Option Compare Database 'Use database order for string comparisons Option Explicit
'To get a string from an API function, you need to pass the function 'a string buffer (a variable for storing the string retrieved), and 'an integer specifying the length of the string buffer. 'You must ensure that this buffer is big enough to hold the whole 'string. One way to do this is to use the String$() function to create a '"space" holder of the maximum length you'll need + 1 to accommodate 'the null character that terminates strings.
'Gets the Windows directory. Declare Function GetWindowsDirectory Lib "kernel32" _ Alias "GetWindowsDirectoryA" (ByVal lpBuffer As String, _ ByVal nSize As Long) As Long
'Gets the Windows\System directory. Declare Function GetSystemDirectory Lib "kernel32" _ Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, _ ByVal nSize As Long) As Long
Sub devGetWindowsDirectory()
Dim strBuffer As String Dim intLen As Integer
'Provide strBuffer enough space to hold the path. 'String$() returns a repeating character string of 'the length specified. strBuffer = String(256, 0)
'Copy the path into strBuffer. Len(strBuffer) is simply a more 'portable way of providing the length of the buffer than hardcoding 'a number. intLen = GetWindowsDirectory(strBuffer, Len(strBuffer))
'Trim strBuffer down to the path's actual size. strBuffer = Left(strBuffer, intLen)
'Display the path in a message box. MsgBox strBuffer, vbInformation, APP_NAME
End Sub
Sub devGetSystemDirectory()
Dim strBuffer As String Dim intLen As Integer
'Provide strBuffer enough space to hold the path. 'String$() returns a repeating character string of 'the length specified. strBuffer = String(256, 0)
'Copy the path into strBuffer. Len(strBuffer) is simply a more 'portable way of providing the length of the buffer than 'hardcoding a number. intLen = GetSystemDirectory(strBuffer, Len(strBuffer))
'Trim strBuffer down to the path's actual size. strBuffer = Left(strBuffer, intLen)
'Display the path in a message box. MsgBox strBuffer, vbInformation, APP_NAME
End Sub
Get Current Database Directory
CurrentDB.Namereturns the full path. Use the following code to return just the directory:
Dim stDBPath As String, strDBDirectory As String stDBPath = CurrentDb.Name strDBDirectory = Left(stDBPath, Len(stDBPath) - Len(Dir(stDBPath)))
Access HRIS database application A comprehensive leave and training tracker will launch this month. This highly-requested .mdb will be available initially as a Beta with sample data. Beta-users will be asked to make requests for changes and enhancements so that the final product includes the features that you want.
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
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:
Get the FreeAccess Access Utilities CD