[AccessD] Import Specifications

Will this copy the import specifications?


----- Original Message ----- 
From: "Randall R Anthony" <RRANTHON at sentara.com>
To: <accessd at databaseadvisors.com>
Sent: Friday, May 27, 2005 1:48 PM
Subject: Re: [AccessD] Import Specifications


> Is this what your looking for Barbara?
> 
>  Dim acapp As Access.Application
>     
>    Set acapp = New Access.Application
>    With acapp
>     '
>     'the db_paths are set in module mdlmain
>       .OpenCurrentDatabase DB_PATH1
>            'import the queries
>       .DoCmd.TransferDatabase acImport, "Microsoft Access", DB_PATH2,
> acModule, "m_module", "m_module"
>       .DoCmd.TransferDatabase acImport, "Microsoft Access", DB_PATH2,
> acQuery, "A_query", "A_query"
>  End With
>     'clean up
>    acapp.Quit
>    Set acapp = Nothing
> -- 
> AccessD mailing list
> AccessD at databaseadvisors.com
> http://databaseadvisors.com/mailman/listinfo/accessd
> Website: http://www.databaseadvisors.com