hugoecm

Para que no des tus respuestas Incompletas al publico pobres... <% Function CompactDB(source, Destination) If trim(source) = "" and trim(Destination) = "" Then CompactDB = False Else Dim DBE Set DBE = CreateObject("DAO.DBEngine") DBE.CompactDatabase...