[AccessD] Make-table query points to c:\documents and settings?!

I don't understand why you create a new database in "set db" and then
set db back to the current one.
If you do  "For Each qdf In db.QueryDefs"

If you create a table in db that would be the current db and not the new
db?!
If function "CreateTables" does create the table in new db, then that
should be fine but...

You should db.close before setting it to the current one.
Even better use dim dbCurr en dim dbNew statements for avoiding
confusion.

Please note that you do not need to close currentdb (dbCurr.close). 
Just set it to nothing.


Erwin




-----Original Message-----
From: accessd-bounces at databaseadvisors.com
[mailto:accessd-bounces at databaseadvisors.com] On Behalf Of Sad Der
Sent: Monday, January 26, 2004 11:28 AM
To: Acces User Group
Subject: [AccessD] Make-table query points to c:\documents and
settings?!

Hi group,

I've created a routine that creates a new DB.This Temp_Db is created in
the same directory as the FE.

I then use a couple of MAKE TABLE-queries to create tables in the
temp_db.

This worked great. Now, i'm getting errors that my MAKE_TABLE-queries
cannot find the Temp_db!?
I get this error:
Err.Number = 3024
Err.Description =Could not find file: C:\Documents and Settings\....

As you can see it points to C:\Documents and Settings.
However the temp_db is created on my d:\projects\...

Here's the code I use:
*******************************************************
   Else
      Set db = Workspaces(0).CreateDatabase(strPath & "TEMP_FE_" &
strFile, dbLangGeneral)
      Set db = CurrentDb()
      Set qdf = New DAO.QueryDef
     
'------------------------------------------------
      'Create tables in newly created database
     
'------------------------------------------------
      'Loop through query list
      For Each qdf In db.QueryDefs
         'check if qryName starts with qryMake_
         If InStr(1, qdf.Name, "qryMake_") Then
            Call CreateTables(qdf.Name)
            x = x + 1
         End If
      Next
      Call MsgBox("The following objects have been created:" & vbCrLf &
_
                  "  - Temporary database" & vbCrLf & _
                  "  - " & x & " Tables", vbInformation +
vbDefaultButton1, "Objects created")

   End If
*******************************************************
Any idea's why it points to C:\documents and Settings?
When I created the make table queries I selected the temp_db.

Sander

__________________________________
Do you Yahoo!?
Yahoo! SiteBuilder - Free web site building tool. Try it!
http://webhosting.yahoo.com/ps/sb/
_______________________________________________
AccessD mailing list
AccessD at databaseadvisors.com
http://databaseadvisors.com/mailman/listinfo/accessd
Website: http://www.databaseadvisors.com