Shamil Salakhetdinov
shamil at users.mns.ru
Thu Jan 12 14:42:28 CST 2006
<<< I use to read 2000 mdb's in Access 97 VBA. It won't allow you to link tables as Access itself defaults to 3.51 but you can use from VBA code to read a 2000 mdb >>> OK. I didn't know that. It doesn't work here but I don't have the latest Jet 3.51 patch that could be the problem. Shamil ----- Original Message ----- From: "MartyConnelly" <martyconnelly at shaw.ca> To: "Access Developers discussion and problem solving" <accessd at databaseadvisors.com> Sent: Thursday, January 12, 2006 10:14 PM Subject: Re: [AccessD] Access97 on W2000 crashes You can remove DAO 3.51 from the reference list and replace with DAO 3.60 Then run Debug.Print DAO.DBEngine.Version It returns 3.6 I use to read 2000 mdb's in Access 97 VBA. It won't allow you to link tables as Access itself defaults to 3.51 but you can use from VBA code to read a 2000 mdb Of course MS says this is unsupported. This is security patch to Jet 3.51 after installing Office 97 SR-1 and SR2-B Jet 3.51 Service Pack 3 http://www.microsoft.com/downloads/details.aspx?FamilyID=7e82ef88-52ec-4a8f-8bb2-8b06d6cb668d&DisplayLang=en Sub testb() Dim db As DAO.Database Dim dbe As Object 'Set dbe = CreateObject("DAO.DBEngine.36") 'Set db = dbe.CreateDatabase("c:\temp\test.mdb", _ ' ";LANGID=0x0409;CP=1252;COUNTRY=0") Set db = OpenDatabase("c:\temp\test.mdb") Dim tdfLoop As TableDef For Each tdfLoop In db.TableDefs Debug.Print tdfLoop.Name Next tdfLoop Set db = Nothing End Sub <<< tail skipped >>>