[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 ---- 

Thanks all!...been a great help and I'm got a solution for them!
 
RyanS

-----Original Message-----
From: John Bartow [mailto:john at winhaven.net]
Sent: 02 May 2003 16:04
To: accessd at databaseadvisors.com
Subject: RE: [AccessD] Compact DB



---- London Borough of Bromley Security Notice ---- 

"Please treat all e-mail with caution. Only open attachments from trusted
business sources whose material you are sure is safe. Refer to the Council's
e-mail and internet users Code of Conduct for further guidance on the
correct use of the e-mail system."

---- End of Notice ----


It 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 <mailto: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 



-------------- next part --------------
An HTML attachment was scrubbed...
URL: <http://databaseadvisors.com/pipermail/accessd/attachments/20030502/9604ad40/attachment-0001.html>