2 GB needs to be compacted to continue

[jnixon]

Hello everyone! I hope you're all having a good week. Mine is going great! I built this great database that runs batches of properties, pumps out a bunch of calculations and returns a value. I'm running a batch of 1,000 properties, and everything was going really smoothly until I reached about the 450th one...

The database is about 125 MB because of the amount of property data. During this batch run, the database is swelling to about 2GB at the 450 to 500 mark in the 1,000 property batch run. At about 2GB file size, the database just decides to stop the batch run, or it just freezes. When I compact/repair the database, it works just like it should. Since the calculation is complicated and has to run a bunch of different scenarios, I can run about 400 properties throughout the day, and then I let it go overnight.

What I am hoping you can help me with, is how can I get this module to compact/repair the database and then continue the batch run (it's a Loop)? I tried this, but it doesn't work:

Dim Count As Integer
     Count = Count + 1
     If Count = 400 Then
     Application.CompactRepair "mydb", "mydb", True
     Count = 0
     End If

Understand that I have never even studied VB. What I know I learned by doing, or I learned by reading this forum! Can someone please give me a hand? Thanks!

 

[ted.martin]

An intersting one. According to VB help it says you cannot have the Source and Destination strings the same.

 

[jnixon]

Booo. Okay then, I suspected as much. Anybody have any ideas on how I can make the module compact/repair the database and then continue running the batch? Thanks.