Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations Mike Lewis on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Compact and Repair from vba code 1

Status
Not open for further replies.
TommyTea

TommyTea

Programmer
Nov 7, 2002
43
0
0
US
Does anyone have some code handy to compact & repair from vba? I have an app that offers a major import function and I need to be able to offer the non-technical user a Compact & Repair option.
 
Sort by date Sort by votes
try this:

DoCmd.Hourglass True

DBEngine.CompactDatabase myPath & "\" & datName & ".mdb", myPath & "\" & tempDatName & ".mdb", , , ";PWD =" & DBPassword

Kill myPath & "\" & datName & ".mdb"
Name (myPath & "\" & tempDatName & ".mdb") As (myPath & "\" & datName & ".mdb")

DoCmd.Hourglass False
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

serino
  • Locked
  • Question
Delete From Table
Replies
1
Views
117
Andrzejek
Andrzejek
datajockey123
  • Question
Note / Information box with date and time stamp for each entery
Replies
2
Views
148
dhookom
dhookom
lameid
  • Locked
  • Question
SELECT FROM Table in Another Access File
Replies
2
Views
186
lameid
lameid
accesshelp1
  • Locked
  • Question
How can I remove parenthesis and everything that comes after it? 1
Replies
3
Views
149
Andrzejek
Andrzejek
MDGarcia
  • Locked
  • Question
Error Could not delete from specified tables 2
Replies
14
Views
206
MDGarcia
MDGarcia

Part and Inventory Search

Sponsor

Back
Top