Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Access Actions from Excel
Hi, I am using the Excel VBA to create Access tables, but after a while the Access database becaome very big. How can I Using the "Compact and repair" utility in the Access from the Excel VBA. I would appreciate your help in finding the exact coding fo that. Thanks, neta. -- neta ------------------------------------------------------------------------ neta's Profile: http://www.excelforum.com/member.php...fo&userid=7624 View this thread: http://www.excelforum.com/showthread...hreadid=495435 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Access Actions from Excel
Neta,
You cant do it using ADO, but you can with DAO. Sub CompactDB() Dim vFile, vTemp Dim oDBE As Object vFile = Application.GetOpenFilename("Database,*.mdb") If vFile = False Then Exit Sub vTemp = Left$(vFile, Len(vFile) - 3) & ".tmp" If Len(Dir(vTemp)) Then Kill vTemp Set oDBE = CreateObject("DAO.DBEngine.36") oDBE.CompactDatabase vFile, vTemp If Err = 0 Then Kill vFile Name vTemp As vFile MsgBox "Compacted " & vFile, vbInformation End If Set oDBE = Nothing End Sub -- keepITcool | www.XLsupport.com | keepITcool chello nl | amsterdam neta wrote : Hi, I am using the Excel VBA to create Access tables, but after a while the Access database becaome very big. How can I Using the "Compact and repair" utility in the Access from the Excel VBA. I would appreciate your help in finding the exact coding fo that. Thanks, neta. |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Excel PivotTable Additional Actions Disabled | Excel Discussion (Misc queries) | |||
Excel 2003 pauses after copy or paste actions | Excel Discussion (Misc queries) | |||
Adding sub-menus and actions to data in drop down lists in Excel 2 | Excel Worksheet Functions | |||
Using non standard actions on an Excel 97 pivot table | Excel Discussion (Misc queries) | |||
Timeout for OLE actions in Excel 2003 | Excel Programming |