Is there a way to use VBA to programatically enable/disable the
"CompactOnClose" property of an external database?

CompactOnClose is an application property, not a database property. You'd
set it using

Application.SetOption "Auto Compact", -1

Note, though, that it doesn't do anything with external databases: it only
applies to the database you've currently got open.


--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no private e-mails, please)


"Anthony" <(E-Mail Removed)> wrote in message
news:%(E-Mail Removed)...
> Is there a way to use VBA to programatically enable/disable the
> "CompactOnClose" property of an external database?
>
>
>
>

Interesting. I know that it's an Application property, which you can set
through Application.SetOptions("Auto Compact"): I didn't realize it was also
a database property.


--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no private e-mails, please)


"Daniel" <(E-Mail Removed)> wrote in message
news:28020E1F-4595-4C98-BEB5-(E-Mail Removed)...
> Anthony
>
> Public Sub SetAutoCompact(fAutoCompact As Boolean)
> Dim Dbs As DAO.Database
> Dim Prp As DAO.Property
> Const conPropNotFoundError = 3270
> Set Dbs = CurrentDb
> On Error Resume Next
> Dbs.Properties("Auto compact") = fAutoCompact
> If Err.Number = conPropNotFoundError Then
> Set Prp = Dbs.CreateProperty("Auto compact", _
> dbBoolean, fAutoCompact)
> Dbs.Properties.Append Prp
> End If
> End Sub
>
> Daniel
>
>
>
>
> "Anthony" wrote:
>
>> Is there a way to use VBA to programatically enable/disable the
>> "CompactOnClose" property of an external database?
>>
>>
>>
>>
>>

Okay, thank you!

Now how do I programmatically cause that database to bypass startup
(AutoExec Macro and Startup object)?


"Douglas J. Steele" <NOSPAM_djsteele@NOSPAM_canada.com> wrote in message
news:(E-Mail Removed)...
> CompactOnClose is an application property, not a database property. You'd
> set it using
>
> Application.SetOption "Auto Compact", -1
>
> Note, though, that it doesn't do anything with external databases: it only
> applies to the database you've currently got open.
>
>
> --
> Doug Steele, Microsoft Access MVP
> http://I.Am/DougSteele
> (no private e-mails, please)
>
>
> "Anthony" <(E-Mail Removed)> wrote in message
> news:%(E-Mail Removed)...
>> Is there a way to use VBA to programatically enable/disable the
>> "CompactOnClose" property of an external database?
>>
>>
>>
>>
>
>

How are you trying to open the database?

If you're trying to use Automation, take a look at the kludge approach
outlined in section "Bypassing Startup Settings When Opening a Database" in
http://support.microsoft.com/kb/147816/ (Don't worry that it says Access 97:
it applies to all versions). The reason I call it a kludge is that it uses
SendKeys, which is seldom recommended in product grade applications.

--
Doug Steele, Microsoft Access MVP
http://I.Am/DougSteele
(no private e-mails, please)


"Anthony" <(E-Mail Removed)> wrote in message
news:OYXyH$(E-Mail Removed)...
> Okay, thank you!
>
> Now how do I programmatically cause that database to bypass startup
> (AutoExec Macro and Startup object)?
>
>
> "Douglas J. Steele" <NOSPAM_djsteele@NOSPAM_canada.com> wrote in message
> news:(E-Mail Removed)...
>> CompactOnClose is an application property, not a database property. You'd
>> set it using
>>
>> Application.SetOption "Auto Compact", -1
>>
>> Note, though, that it doesn't do anything with external databases: it
>> only applies to the database you've currently got open.
>>
>>
>> --
>> Doug Steele, Microsoft Access MVP
>> http://I.Am/DougSteele
>> (no private e-mails, please)
>>
>>
>> "Anthony" <(E-Mail Removed)> wrote in message
>> news:%(E-Mail Removed)...
>>> Is there a way to use VBA to programatically enable/disable the
>>> "CompactOnClose" property of an external database?
>>>
>>>
>>>
>>>
>>
>>
>
>

thank you -- I will try it

"Douglas J. Steele" <NOSPAM_djsteele@NOSPAM_canada.com> wrote in message
news:%(E-Mail Removed)...
> How are you trying to open the database?
>
> If you're trying to use Automation, take a look at the kludge approach
> outlined in section "Bypassing Startup Settings When Opening a Database"
> in http://support.microsoft.com/kb/147816/ (Don't worry that it says
> Access 97: it applies to all versions). The reason I call it a kludge is
> that it uses SendKeys, which is seldom recommended in product grade
> applications.
>
> --
> Doug Steele, Microsoft Access MVP
> http://I.Am/DougSteele
> (no private e-mails, please)
>
>
> "Anthony" <(E-Mail Removed)> wrote in message
> news:OYXyH$(E-Mail Removed)...
>> Okay, thank you!
>>
>> Now how do I programmatically cause that database to bypass startup
>> (AutoExec Macro and Startup object)?
>>
>>
>> "Douglas J. Steele" <NOSPAM_djsteele@NOSPAM_canada.com> wrote in message
>> news:(E-Mail Removed)...
>>> CompactOnClose is an application property, not a database property.
>>> You'd set it using
>>>
>>> Application.SetOption "Auto Compact", -1
>>>
>>> Note, though, that it doesn't do anything with external databases: it
>>> only applies to the database you've currently got open.
>>>
>>>
>>> --
>>> Doug Steele, Microsoft Access MVP
>>> http://I.Am/DougSteele
>>> (no private e-mails, please)
>>>
>>>
>>> "Anthony" <(E-Mail Removed)> wrote in message
>>> news:%(E-Mail Removed)...
>>>> Is there a way to use VBA to programatically enable/disable the
>>>> "CompactOnClose" property of an external database?
>>>>
>>>>
>>>>
>>>>
>>>
>>>
>>
>>
>
>