[AccessD] Compact DB

Ryan,

If it is in A97 I have a sample DB that compacts on close if it is only open 
once...and if it is above a certain size.  It also uses the sendkey method.

Please contact me OFFLINE(not thru the list) if you would like a copy.

Thanks,

Mark A. Matte



>From: "John Bartow" <john at winhaven.net>
>Reply-To: accessd at databaseadvisors.com
>To: <accessd at databaseadvisors.com>
>Subject: RE: [AccessD] Compact DB
>Date: Fri, 2 May 2003 10:04:07 -0500
>
>Compact DBIt depends. A2k and > has it on the Tools menu. For A97 use this:
>
>Public Sub SelfCompact()
>       ' Comments   : A massive work around to the lack of compact on close
>in A97.
>       '              Builds a temporary Command Bar and then closes and
>reopens the DB.
>       '              Code credit to Jim Dettman. Online Computer Services 
>of
>WNY, Inc. jimdettman at earthlink.net
>       ' Parameters :  -
>       ' Returns    :  -
>
>       On Error GoTo PROC_ERR
>
>       With CommandBars.Add(, 1, , True)
>          .Controls.Add 1, 2071, , , True
>          .Visible = True
>          .Controls(1).SetFocus
>          DoEvents
>          SendKeys "~"
>       End With
>       Exit Sub
>
>PROC_ERR:
>       MsgBox "The following error occurred: " & Error$
>       Resume Next
>End Sub
>
>HTH
>JB
>
>-----Original Message-----
>From: accessd-bounces at databaseadvisors.com
>[mailto:accessd-bounces at databaseadvisors.com]On Behalf Of Smethurst, Ryan
>Sent: Friday, May 02, 2003 5:16 AM
>To: 'accessd at databaseadvisors.com'
>Subject: [AccessD] Compact DB
>
>
>   ---- London Borough of Bromley E-Mail Disclaimer ----
>   "For information about Bromley Council visit our web site
>www.bromley.gov.uk"
>
>   "The information contained in this message (including any attachments) 
>is
>confidential in that it is intended solely for the use of the recipient to
>which it is addressed. If you are not the intended recipient, the use of 
>the
>information by disclosure, copying or distribution is prohibited and may be
>unlawful."
>
>   ---- End of Disclaimer ----
>
>   Hi Group,
>
>   Is it possible to compact a db in code when quitting it?
>
>   Thanks
>   RyanS
>_______________________________________________
>AccessD mailing list
>AccessD at databaseadvisors.com
>http://databaseadvisors.com/mailman/listinfo/accessd
>Website: http://www.databaseadvisors.com


_________________________________________________________________
The new MSN 8: smart spam protection and 2 months FREE*  
http://join.msn.com/?page=features/junkmail