<html><div style='background-color:'><DIV>
<P><BR>In this case the pword is a global - (not trying to start anything...except the database, of course) - and work is a workspace.</P>
<P>Set db_BE = wrk.OpenDatabase(strDBName, False, False, ";PWD=" & BE_PWD & "")<BR></P></DIV><BR><BR><BR>
<DIV></DIV>
<DIV><FONT face="Geneva, Arial, Sans-serif" color=#6666ff size=2><EM>"Things are only free to the extent that you don't pay for them." </EM></FONT></DIV>
<DIV><FONT color=#33cc66></FONT></DIV>
<DIV></DIV>
<DIV></DIV>
<DIV></DIV>
<DIV></DIV>
<DIV></DIV>
<DIV></DIV>>From: "Michael R Mattys" <MICHAEL.MATTYS@ADELPHIA.NET>
<DIV></DIV>>Reply-To: accessd@databaseadvisors.com
<DIV></DIV>>To: <ACCESSD@DATABASEADVISORS.COM>
<DIV></DIV>>Subject: Re: [AccessD] BE, Back Up Question
<DIV></DIV>>Date: Sun, 18 May 2003 22:02:44 -0400
<DIV></DIV>>
<DIV></DIV>>ACC2000: How to Use the OpenDatabase Method to Open
<DIV></DIV>> Password-Protected Databases
<DIV></DIV>>http://support.microsoft.com/default.aspx?scid=kb;EN-US;209953
<DIV></DIV>>
<DIV></DIV>>Michael R. Mattys
<DIV></DIV>>www.mattysconsulting.com
<DIV></DIV>>
<DIV></DIV>>----- Original Message -----
<DIV></DIV>>From: "Robert Gracie" <SUBSCRIPTIONS@SERVICEXP.COM>
<DIV></DIV>>To: <ACCESSD@DATABASEADVISORS.COM>
<DIV></DIV>>Sent: Sunday, May 18, 2003 9:43 PM
<DIV></DIV>>Subject: RE: [AccessD] BE, Back Up Question
<DIV></DIV>>
<DIV></DIV>>
<DIV></DIV>> >
<DIV></DIV>> > Thanks Michael,
<DIV></DIV>> > One last question, if you don't mind....
<DIV></DIV>> >
<DIV></DIV>> > How would I use this "objAcc.OpenCurrentDatabase sToPath" with User
<DIV></DIV>>Level
<DIV></DIV>> > Security turned on?
<DIV></DIV>> >
<DIV></DIV>> > The "third" db used is managed under the same security group as the db
<DIV></DIV>> > that I want to backup...
<DIV></DIV>> >
<DIV></DIV>> > Thanks A Million
<DIV></DIV>> > Robert Gracie
<DIV></DIV>> >
<DIV></DIV>> >
<DIV></DIV>> > -----Original Message-----
<DIV></DIV>> > From: accessd-bounces@databaseadvisors.com
<DIV></DIV>> > [mailto:accessd-bounces@databaseadvisors.com]On Behalf Of Michael R
<DIV></DIV>> > Mattys
<DIV></DIV>> > Sent: Sunday, May 18, 2003 9:03 PM
<DIV></DIV>> > To: accessd@databaseadvisors.com
<DIV></DIV>> > Subject: Re: [AccessD] BE, Back Up Question
<DIV></DIV>> >
<DIV></DIV>> >
<DIV></DIV>> > Ah, now I think I see the answer.
<DIV></DIV>> > Use a function like this to copy desired objects:
<DIV></DIV>> >
<DIV></DIV>> > Function CopyFromTo(sToPath, sNewName, lngObjType, sOldName)
<DIV></DIV>> > Dim objAcc As New Access.Application
<DIV></DIV>> > objAcc.OpenCurrentDatabase sToPath
<DIV></DIV>> > objAcc.DoCmd.CopyObject _
<DIV></DIV>> > sToPath, sNewName, lngObjType, sOldName
<DIV></DIV>> > objAcc.CloseCurrentDatabase
<DIV></DIV>> > objAcc.Quit
<DIV></DIV>> > Set objAcc = Nothing
<DIV></DIV>> > End Function
<DIV></DIV>> >
<DIV></DIV>> > Michael R. Mattys
<DIV></DIV>> > www.mattysconsulting.com
<DIV></DIV>> >
<DIV></DIV>> > ----- Original Message -----
<DIV></DIV>> > From: "Robert Gracie" <SUBSCRIPTIONS@SERVICEXP.COM>
<DIV></DIV>> > To: <ACCESSD@DATABASEADVISORS.COM>
<DIV></DIV>> > Sent: Sunday, May 18, 2003 1:31 PM
<DIV></DIV>> > Subject: RE: [AccessD] BE, Back Up Question
<DIV></DIV>> >
<DIV></DIV>> >
<DIV></DIV>> > >
<DIV></DIV>> > > Thanks, but no go.
<DIV></DIV>> > > Why will it work if I copy the table into the "calling" db?
<DIV></DIV>> > >
<DIV></DIV>> > >
<DIV></DIV>> > >
<DIV></DIV>> > > Robert Gracie
<DIV></DIV>> > >
<DIV></DIV>> > >
<DIV></DIV>> > >
<DIV></DIV>> > > -----Original Message-----
<DIV></DIV>> > > From: accessd-bounces@databaseadvisors.com
<DIV></DIV>> > > [mailto:accessd-bounces@databaseadvisors.com]On Behalf Of Michael R
<DIV></DIV>> > > Mattys
<DIV></DIV>> > > Sent: Saturday, May 17, 2003 10:38 PM
<DIV></DIV>> > > To: accessd@databaseadvisors.com
<DIV></DIV>> > > Subject: Re: [AccessD] BE, Back Up Question
<DIV></DIV>> > >
<DIV></DIV>> > >
<DIV></DIV>> > > Robert,
<DIV></DIV>> > >
<DIV></DIV>> > > Perhaps simply starting with
<DIV></DIV>> > > RefreshDatabaseWindow...?
<DIV></DIV>> > >
<DIV></DIV>> > > Michael R. Mattys
<DIV></DIV>> > > www.mattysconsulting.com
<DIV></DIV>> > >
<DIV></DIV>> > > ----- Original Message -----
<DIV></DIV>> > > From: "Robert Gracie" <SUBSCRIPTIONS@SERVICEXP.COM>
<DIV></DIV>> > > To: <ACCESSD@DATABASEADVISORS.COM>
<DIV></DIV>> > > Sent: Saturday, May 17, 2003 10:02 PM
<DIV></DIV>> > > Subject: RE: [AccessD] BE, Back Up Question
<DIV></DIV>> > >
<DIV></DIV>> > >
<DIV></DIV>> > > >
<DIV></DIV>> > > > I'm trying to backup an open split back-end using the code below. This
<DIV></DIV>> > is
<DIV></DIV>> > > a
<DIV></DIV>> > > > "third" db that is opening up a back-end and copying the tables and
<DIV></DIV>>data
<DIV></DIV>> > > to
<DIV></DIV>> > > > a newly created db. However I keep getting this error.
<DIV></DIV>> > > >
<DIV></DIV>> > > > 7874 SXP Maintenance System can't find the object 'Customer.' Note:
<DIV></DIV>>SXP
<DIV></DIV>> > > > Maintenance is the name of the calling db
<DIV></DIV>> > >
<DIV></DIV>> > > _______________________________________________
<DIV></DIV>> > > AccessD mailing list
<DIV></DIV>> > > AccessD@databaseadvisors.com
<DIV></DIV>> > > http://databaseadvisors.com/mailman/listinfo/accessd
<DIV></DIV>> > > Website: http://www.databaseadvisors.com
<DIV></DIV>> > >
<DIV></DIV>> > >
<DIV></DIV>> > >
<DIV></DIV>> > > _______________________________________________
<DIV></DIV>> > > AccessD mailing list
<DIV></DIV>> > > AccessD@databaseadvisors.com
<DIV></DIV>> > > http://databaseadvisors.com/mailman/listinfo/accessd
<DIV></DIV>> > > Website: http://www.databaseadvisors.com
<DIV></DIV>> > >
<DIV></DIV>> >
<DIV></DIV>> > _______________________________________________
<DIV></DIV>> > AccessD mailing list
<DIV></DIV>> > AccessD@databaseadvisors.com
<DIV></DIV>> > http://databaseadvisors.com/mailman/listinfo/accessd
<DIV></DIV>> > Website: http://www.databaseadvisors.com
<DIV></DIV>> >
<DIV></DIV>> >
<DIV></DIV>> > _______________________________________________
<DIV></DIV>> > AccessD mailing list
<DIV></DIV>> > AccessD@databaseadvisors.com
<DIV></DIV>> > http://databaseadvisors.com/mailman/listinfo/accessd
<DIV></DIV>> > Website: http://www.databaseadvisors.com
<DIV></DIV>>
<DIV></DIV>>_______________________________________________
<DIV></DIV>>AccessD mailing list
<DIV></DIV>>AccessD@databaseadvisors.com
<DIV></DIV>>http://databaseadvisors.com/mailman/listinfo/accessd
<DIV></DIV>>Website: http://www.databaseadvisors.com
<DIV></DIV></div><br clear=all><hr>Add photos to your messages with <a href="http://g.msn.com/8HMRENUS/2749??PS=">MSN 8. </a> Get 2 months FREE*.</html>