Charlotte Foust
cfoust at infostatsystems.com
Wed May 7 11:13:27 CDT 2003
It's the Version property of the database object that returns the major
Jet engine version for the specified database file
' Access 97 = 3.0
' Access 2000/2002 = 4.0
Dim strVersion As String
Dim dbs As DAO.Database
Dim wsp As DAO.Workspace
On Error GoTo GetDBVersion_Err
Set wsp = DBEngine.CreateWorkspace("Version")
Set dbs = wsp.OpenDatabase(strFileName)
strVersion = dbs.Version
Charlotte Foust
-----Original Message-----
From: Wortz, Charles [mailto:CWortz at tea.state.tx.us]
Sent: Wednesday, May 07, 2003 7:50 AM
To: accessd at databaseadvisors.com
Subject: RE: [AccessD] Conditional compiling
Seth,
John Colby's e-mail of 05/05 titled "Late binding Withevents" shows how
to do conditional compiling. One of the properties of Access gives the
version number; however, I do not recall the name of that property.
Charles Wortz
Software Development Division
Texas Education Agency
1701 N. Congress Ave
Austin, TX 78701-1494
512-463-9493
CWortz at tea.state.tx.us
-----Original Message-----
From: Seth Galitzer [mailto:sgsax at ksu.edu]
Sent: Wednesday 2003 May 07 10:44
To: accessd
Subject: [AccessD] Conditional compiling
Greetings,
I've got an app that needs to run on A2K and A97. I've got some code
that uses user-defined enumerated types and some WithEvents
declarations, neither of which are supported by A97. Is there a way to
conditionally compile the code depending on the Access version? I know
you can use conditional statements, but I don't know if they can be used
in this way. Right now, I'm supporting two versions of the app, one for
each version of Access, but it's making updating a real pain. I'd also
like to be able to create conditions based on the Windows version. I
imagine both are similar, if they are even possible.
Any info and samples would be appreciated.
Seth
--
Seth Galitzer sgsax at ksu.edu
Computing Specialist http://puma.agron.ksu.edu/~sgsax
Dept. of Plant Pathology
Kansas State University _______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com