Bob Larson's Front End Auto Loader

[crowegreg]

I have a slight problem with Bob Larson's FE auto load. I think it is somehow related to my network.

I've installed per his instructions. I've copied the code to the load event of the form that is opened when my DB is opened. If I step through the code, everything works except reloading MS Access.

If I just open the form without stepping through, nothing works. It doesn't copy the new DB nor does it open MS Access.

If I go to the folder where the FE DB is on my machine and execute UpdateDbFe.cmd, everything works properly, including loading MS Access.

Any suggestions?

[June7]

Post link to Bob's code and/or provide your attempted code. If you want to provide db, follow instructions at bottom of my post.

[crowegreg]

I think this contains what you'll need.

[June7]

Did not provide the backend file.

The form does not open by default.

[crowegreg]

Here's the BE of the DB.

[crowegreg]

I figured out the problem. On the FE DB, I had it set to compact on close. This was causing the shell command to not run. Interesting. Must be a timing issue. Now I have to figure out how to automatically run the compact occasionally.

[June7]

I suggest it isn't really necessary to compact & repair the frontend every time it runs. I only do this after design edits. Now the backend could be a different matter.

[crowegreg]

I'm creating this application for a client, and I don't know when I'll be back. In other parts of the DB, I'm creating temporary objects, then deleting them. I wrote code to auto compact the FE DB every 10th exit of the application. Heres what I wrote:

'Turn off auto compact if on
If Application.GetOption("Auto compact") Then
Application.SetOption ("Auto compact"), False
End If

'Assign variable intAutoCompactCounter with value in table Auto_Compact_Counter
intAutoCompactCounter = DLookup("Counter", "Auto_Compact_Counter")

'If intAutoCompactCounter = 10, turn on Auto compact, reset Counter to 0
If intAutoCompactCounter = 10 Then
'Turn on Auto Compact
Application.SetOption ("Auto compact"), True
'Reset Counter to 0
intAutoCompactCounter = 0
Else
'Add 1 to value of intAutoCompactCounter
intAutoCompactCounter = intAutoCompactCounter + 1
End If

'Assign SQL statement to strSQL to update Counter within table Auto_Compact_Counter
strSQL = "UPDATE Auto_Compact_Counter SET Auto_Compact_Counter.[Counter] = "
strSQL = strSQL & intAutoCompactCounter

'Execute SQL string
CurrentDb.Execute strSQL