'and copy into its previous path the compacted file from C:\RP\Temp2.mdb mdb fileįSys.CopyFile "C:\RP\Temp2.mdb", "C:\RP\ABCDE\db1.mdb" Kill ("C:\RP\ABCDE\db1.mdb") 'we delete the original source. mdb file now in C:\RP\Temp1.mdb is compacted and the result mdb file into C:\RP\Temp1.mdbĬall DBEngine.CompactDatabase("C:\RP\Temp1.mdb", "C:\RP\Temp2.mdb", dbLangGeneral) 'requires a project reference to MS Access 9.0 Object Library 'requires a project reference to Microsoft Scripting runtime 'the compacted result back into the same location mdb Access file C:\RP\ABCDE\db1.mdb and places Code: Private Sub Command1_Click() 'COMPACT ACCESS DATA
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |