Ahora solo faltaría que una vez terminado est me compactaría la base de datos. He visto este ejemplo por los foros:
Código:
Function CompactDB(source, Destination)
If trim(source) = "" and trim(Destination) = "" Then
CompactDB = False
Else
Dim DBE
Set DBE = CreateObject("DAO.DBEngine")
DBE.CompactDatabase source, Destination
CompactDB = True
End IF
End Function
pero no me funciona, no se que poner en los campos source y destinacion o si tengo que sustituir cada palabra por la ruta donde esta la BD, he encontrado otro muy bueno que funciona muy bien, el problema es que funciona con el filesystem y mi servidor no los admite.
<a href='ir.asp?http://www.aspalliance.com/mbrink1111/compact.asp' target='_blank'>http://www.aspalliance.com/mbrink1111/co...</a>
Alguien sabe alguna otra forma??
Un saludo