<%dim crumb crumb="Current Version Number" Crumb2="Read Version Number" crumb1="Access Version Number" %> Access Version
Home  Fees/Services  Access 2010 Template  Access Tutorial  Access Download  Articles  Search  Contact  Privacy  Links

<%if len(crumb2)>2 then response.write crumb2 else response.write ">
<% response.write crumb1 %>






Visual Basic Tutorials:
Access-Google Earth
Age Calculation
Change To Proper Case
Email via Gmail #1
Send Gmail Email #2
Inactivity Logout Code
Outlook Email
Read Email Access
Email Attachment
Send Outlook Email
Running Sum
Denormalize Records
Stock Quotes
CreateQueryDef
Find Database Path
Detail-Master Update
Data Field Validation
Field Value New-Old
FindFirst
Access Version
Global Variable Parameter
Global Variables
Active Labels
Files List Box
Mail Merge
Quick Sort
Recordset Filters
Reference Form Field
Select Case
Access Transactions


Visual Basic Function Examples



Access Version Number

Version control is necessary when a shared application is utilized by many users. Some of the users may have a lower version of Access in their computer while others may have higher versions of Access. To keep users with a higher version of Access from upgrading and locking everyone with the lower version out of the application, use the Visual Basic code below in the form main menu open command.

To retrieve access version number used to open this application with the following VBA code.

  • 8.0 = Access 97

  • 9.0 = Access 2000

  • 10.0 = Access 2002(XP)

  • 11.0= Access 2003

Private Sub Form_Load()
If GetVersion() <> "8.0" Then
    DoCmd.Quit
End If
End Sub
--------------------------------------------
Function GetVersion() As String
    GetVersion = SysCmd(acSysCmdAccessVer)
End Function

Based on the Access version number you may need to block the user from running the database or you may need to disable features which are only available on higher versions of Microsoft Access.  The important point of this example is that knowing the Version number of the current instance of Access gives you the ability to avoid conflicts and errors.






















Microsoft Office:
MS Access 2000 Through 2016 and Office 365 & Sharepoint


Contact Information

<% Response.write "Copyright 2000-" & year(now) & " Blue Claw Database Design" %>

Microsoft Access 2007, 2010, 2013 & 2016