[AccessD] Conditional compiling

Interestingly, the Version property returns 3.0 in an A95 mdb as well.

Just FYI.

Seth

On Wed, 2003-05-07 at 11:13, Charlotte Foust wrote:
> 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
> _______________________________________________
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com
-- 
Seth Galitzer			sgsax at ksu.edu
Computing Specialist		http://puma.agron.ksu.edu/~sgsax
Dept. of Plant Pathology
Kansas State University