Olá, bom dia. Estou tentando fazer isso:
Porém ao executar, dá erro de permissão! Já tentei de tudo, porém não consigo. EU gostaria de saber, é possível alterar o MSysObjects, se sim, como eu posso fazer isso?
- Código:
On Error GoTo Err_BApagaTabelas_Click
Dim tabela As Recordset
Dim banco As Database
Set banco = CurrentDb()
Set tabela = banco.OpenRecordset("SELECT MSysObjects.Name FROM MSysObjects WHERE (((MSysObjects.type) = 4))")
Do While Not tabela.EOF
tabela.Delete
tabela.MoveNext
Loop
Exit_BApagaTabelas_Click:
Exit Sub
Err_BApagaTabelas_Click:
MsgBox Err.Description
Resume Exit_BApagaTabelas_Click
Porém ao executar, dá erro de permissão! Já tentei de tudo, porém não consigo. EU gostaria de saber, é possível alterar o MSysObjects, se sim, como eu posso fazer isso?
Última edição por LailaNS em 11/5/2017, 14:29, editado 1 vez(es)