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 derfloh 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
Joined
Nov 7, 2002
Messages
43
Location
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

C
  • Locked
  • Question Question
Run-time error '3075': Syntax error (missing operator) in query expression 'Birthday = and Birthmonth ='.
Replies
3
Views
618
OzFoxy
OzFoxy
serino
  • Locked
  • Question Question
Delete From Table
Replies
1
Views
939
Andrzejek
Andrzejek
BugZap13
  • Locked
  • Question Question
Need help creating a date from two fields to be used in where clause
Replies
5
Views
884
mikrom
mikrom
datajockey123
  • Locked
  • Question Question
Note / Information box with date and time stamp for each entery
Replies
2
Views
1K
dhookom
dhookom
lameid
  • Locked
  • Question Question
SELECT FROM Table in Another Access File
Replies
2
Views
4K
lameid
lameid

Part and Inventory Search

Sponsor

Back
Top