Programatically Returning Which Access Version I am using

[Mike]

Hi

I have an application that works OK under both Access 2002 (OfficeXP) and
the new Access 2002/2003 (Office 2003) but I want to restrict it to be used
only under Access 2002.

How can I pick up the version of Access it being run under ?

Any ideas ?

Thanks

Mike

 

['69 Camaro]

Hi, Mike.

Try:

If (Nz(Application.Version, "") = "10.0") Then
' This is the 2002 version, so do nothing.
ElseIf (Nz(Application.Version, "") = "11.0") Then
Application.Quit ' Quit the applic, 'cuz it's the '03 version.
Else
' Use this for other (future) versions.
End If


HTH.

Gunny

See http://www.QBuilt.com for all your database needs.
See http://www.Access.QBuilt.com for Microsoft Access tips.

(Please remove ZERO_SPAM from my reply E-mail address, so that a message
will be forwarded to me.)

 

['69 Camaro]

You're welcome!

Gunny

See http://www.QBuilt.com for all your database needs.
See http://www.Access.QBuilt.com for Microsoft Access tips.

(Please remove ZERO_SPAM from my reply E-mail address, so that a message
will be forwarded to me.)

 

[Mike]

Thanks so much !

Hi, Mike.

Try:

If (Nz(Application.Version, "") = "10.0") Then
' This is the 2002 version, so do nothing.
ElseIf (Nz(Application.Version, "") = "11.0") Then
Application.Quit ' Quit the applic, 'cuz it's the '03 version.
Else
' Use this for other (future) versions.
End If


HTH.

Gunny

See http://www.QBuilt.com for all your database needs.
See http://www.Access.QBuilt.com for Microsoft Access tips.

(Please remove ZERO_SPAM from my reply E-mail address, so that a message
will be forwarded to me.)