Re: OpenCurrentDatabase or OpenDatabase - different versions of Access

From: CPutnam (cputnam1nospam_at_nc.rr.com)
Date: 10/11/04 

Date: Mon, 11 Oct 2004 18:33:57 GMT

Thanks for the reply, John.

The error message I'm getting is just a generic message that is in the code
"Unable to upgrade your Toolkit. Please contact Technical Support."
(Toolkit is the name of the application. There is an error trap that
displays some of the errors but this one doesn't display any number code or
further explanation.

And I'm sorry but I don't understand how the code could be at fault if it
works when I have an converted Access .mdb file with the same name and same
path as the Access 97 .mdb file (which doesn't work).

I'm in the middle of setting this up again and will test the demo's that you
provided. In the meanwhile, if you (or anyone else) have any other ideas,
please let me know.

Thanks in advance. Carol.

"John Nurick" <j.mapSoN.nurick@dial.pipex.com> wrote in message
news:vtsim0l8upd3tsv931lmq4o0duhp71mr3g@4ax.com...
> Hi Carol,
>
> On Sun, 10 Oct 2004 16:14:34 GMT, "CPutnam" <cputnam1nospam@nc.rr.com>
> wrote:
>
> >appToolkit.OpenCurrentDatabase mvarSourceFile
>
> >(AppToolkit is defined in the declarations as: Dim appToolkit As New
> >Access.Application
> >mvarSourceFile is the location of the old application .mdb file (remember
> >that this file is an Access97 database).)
>
> I don't know what the problem is but it's probably not in the statement
> above. AFAIK Access 2002 can automate an Access 97 mdb. Certainly Access
> 2003, using either of the techniques in the demo procedure below, and
> probably some others. What actual error messages are you getting?
>
> Sub OpenDBTest()
> Dim appA As Access.Application
> Dim T As DAO.TableDef
>
> Set appA = GetObject("C:\TEMP\Test.97.mdb")
> Debug.Print "DB opened with GetObject is " _
> & appA.CurrentProject.Name
> For Each T In appA.CurrentDb.TableDefs
> If Left(T.Name, 4) <> "MSYS" Then
> Debug.Print T.Name
> End If
> Next
> Debug.Print vbCrLf
> appA.CloseCurrentDatabase
> appA.Quit
> Set appA = Nothing
>
> Dim appB As New Access.Application
>
> appB.OpenCurrentDatabase "C:\Temp\Test.97.mdb"
> Debug.Print "DB opened with OpenCurrentDatabase is " _
> & appB.CurrentProject.Name
> For Each T In appB.CurrentDb.TableDefs
> If Left(T.Name, 4) <> "MSYS" Then
> Debug.Print T.Name
> End If
> Next
> Debug.Print vbCrLf
> appB.CloseCurrentDatabase
> appB.Quit
> Set appB = Nothing
>
> End Sub
>
> --
> John Nurick [Microsoft Access MVP]
>
> Please respond in the newgroup and not by email.

Relevant Pages

  • Re: Error in MSDE Toolkit
    ... Did you write the code that is running in the OnAfterInstall event? ... > I am using the MSDE deployment Toolkit to deploy my application. ... The installer project has embedded sql files for database ... > I looked on web but couldnt really find anything about this error message. ...
    (microsoft.public.sqlserver.msde)
  • Re: Advanced Client Push Install OK but...
    ... 404 Not Found is an IIS error message. ... MPGetPolicy from the SMS Toolkit to verify your MP is working properly? ... > the client is not installed. ... > from the MP installation. ...
    (microsoft.public.sms.setup)
  • Re: error messages practically worthless
    ... the .open statement) it opens fine. ... Access itself makes the query statement. ... Dim cnnFLDCW, cnnCurPrj As ADODB.Connection ... > ways to get this error message, such as typographical errors, incorrect ...
    (microsoft.public.access.externaldata)
  • Re: Return to form if query unmatched
    ... I am getting the following error message: ... If it doesn't pop up a message and set Cancel = True. ... Dim Myrst As Recordset ... Dim MyRecCount As Long ...
    (microsoft.public.access.queries)
  • Re: Script to create subdirectories
    ... I tried it and I'm getting an error message at this line: ... Dim aFolders, newFolder ... ' Splits the various components of the folder name. ...
    (microsoft.public.windows.server.scripting)