Compact and Repair through VBA
- Thread starter a_20120
- Start date
RuralGuy
AWF VIP
- Local time
- Yesterday, 17:22
- Joined
- Jul 2, 2005
- Messages
- 13,825
boblarson
Smeghead
- Local time
- Yesterday, 16:22
- Joined
- Jan 12, 2001
- Messages
- 32,059
Put this in a STANDARD MODULE (not a form module):
Next, in the event you want do compact from put this:
Don't change the Me.Name part - leave it as is.
Code:
Public Function CompactData()
SendKeys "%(TDC)", False
End FunctionNext, in the event you want do compact from put this:
Code:
DoCmd.Close acForm, Me.Name, acSaveNo
CompactDataDon't change the Me.Name part - leave it as is.
Thanks All,
It is not actually compact and repair the DB, I saw in some Project there is Button, through that button they compact and repair the project...
Plz show me a way doing compact and repair with a best way also not harmful with the DB
It is not actually compact and repair the DB, I saw in some Project there is Button, through that button they compact and repair the project...
Plz show me a way doing compact and repair with a best way also not harmful with the DB
Just a doubt please
I followed Bob's suggestion and used the Send Keys Method. It works fine. But I shall be grateful if you could clarify a little. Will this code only compact the DB or will it perform the compact and repair. Please clarify.
I followed Bob's suggestion and used the Send Keys Method. It works fine. But I shall be grateful if you could clarify a little. Will this code only compact the DB or will it perform the compact and repair. Please clarify.
This works for me (Access 2003) - put this sub in a code module, and then in the Click event of your button on your form, just call the sub:
Code:
Public Sub CompactDB()
CommandBars("Menu Bar"). _
Controls("Tools"). _
Controls("Database utilities"). _
Controls("Compact and repair database..."). _
accDoDefaultAction
End SubNow Compact & Repair now working properly
Dear Bob Sir,
I created a Module as under:
Public Sub CompactData()
DoCmd.Close acForm, "frmMainMenu", acSaveNo
SendKeys "%(TDC)", False
End Sub
In the OnClick event of Command button I put this
CompactData
It was working fine earlier. When I clicked the button, the DB closed and reopened with the usual security warning. As I wanted to show this feature to a new user, when I clicked the button, the DB closed and nothing happened. I had to open the DB from the Desktop shortcut. What could have caused this error? Could you please explain?
Dear Bob Sir,
I created a Module as under:
Public Sub CompactData()
DoCmd.Close acForm, "frmMainMenu", acSaveNo
SendKeys "%(TDC)", False
End Sub
In the OnClick event of Command button I put this
CompactData
It was working fine earlier. When I clicked the button, the DB closed and reopened with the usual security warning. As I wanted to show this feature to a new user, when I clicked the button, the DB closed and nothing happened. I had to open the DB from the Desktop shortcut. What could have caused this error? Could you please explain?
Similar threads
