Mendip Data Systems
Database applications for businesses and schools
Code Samples Page 3 (of 3)
To provide feedback on a code sample, please enter your name, e-mail address and company (optional) below, add your comment and press the submit button. Thanks
All code samples are free to download and free to use in your own applications providing any copyright notices are included without any changes made.
All code will work in both 32-bit and 64-bit Access unless stated otherwise.
We do not give the same support to these code samples as for our commercial programs. However, please contact us if you have questions or suggestions for improvements.
If you found this site useful, please consider giving a donation to help offset the costs in keeping it running. Thanks.
Get User Name
Updated 12/09/2018
This describes 3 different methods of getting the current user name using VBA and compares the effectiveness of each method
Progress Bar
Updated 03/07/2017
Check Procedure Exists
Updated 03/07/2017
Get System Metrics
Updated 23/08/2018
The GetSystemMetrics API provides detailed information about system configuration and display settings. This article includes an example database for checking these values
Page 1 of 5
Masked Input Box
Updated 28/08/2018
This is an updated version of the masked input box code originally written by Daniel Klann in 2003 for 32-bit Access only.
This updated version will work in both 32-bit and 64-bit Access
Get Value in Previous Record
Updated 03/12/2018
This shows a method for calculating the difference between values in the current record with those in the previous record. For example, this approach can be used for calculating energy consumption between meter readings.
Get Computer Name
Updated 08/12/2018
This describes 3 different methods of getting the current computer name using VBA and compares the effectiveness of each method
Access / Office 365 / Windows Version Check
Updated 18/12/2018
This is a simple utility to check the following:
a) Windows version & bitness (32/64-bit)
b) Access version & bitness
c) Whether Office 365 is installed
Negative Total Pages on Report
Updated 17/01/2019
If you have a VERY large report with more than the integer limit of 32767 pages, Access will display the total pages as a negative number
For example: Page 1 of -15440 pages
This article explains how to deal with that situation if it arises