COMPACTAR ACCESS
Bom dia pessoal, achei esse código aqui no forum:
Dim AcApp As Access.Application
Dim dbName as string ( path do banco de dados)
Set AcApp = New Access.Application
AcApp.CompactRepair DbNome & [Ô]T[Ô], DbNome
AcApp.Quit acQuitSaveNone
Set AcApp = Nothing
Funciona legal se o DB nao tiver senha, mas se tiver abre uma janela para inserir a senha ou ate trava o sistema
analizei a AcApp e nao achei um local para informar a senha, alguem sabe como fazer?
Dim AcApp As Access.Application
Dim dbName as string ( path do banco de dados)
Set AcApp = New Access.Application
AcApp.CompactRepair DbNome & [Ô]T[Ô], DbNome
AcApp.Quit acQuitSaveNone
Set AcApp = Nothing
Funciona legal se o DB nao tiver senha, mas se tiver abre uma janela para inserir a senha ou ate trava o sistema
analizei a AcApp e nao achei um local para informar a senha, alguem sabe como fazer?
Cara .. nao trabalho com acess, mas com certeza vai ter um local nessa funcao onde informa a senha do banco, ou grupo de trabalho. como um system.mdw..vc esta reparando o banco?? compactando na reparacao, ou compactando via zip por exemplo?
Tópico encerrado , respostas não são mais permitidas