MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Apagar tabela Criada via VBA

    avatar
    Atrefh
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 09/02/2017

    [Resolvido]Apagar tabela Criada via VBA Empty [Resolvido]Apagar tabela Criada via VBA

    Mensagem  Atrefh Qui 06 Jul 2017, 6:49 pm

    Boa tarde.

    Estou com uma dificuldade em excluir uma tabela via vba.

    Meu sistema tem uma rotina de atualizar de hora em hora as informações do form, quando ele vai atualizar essas informações ele fecha todos os forms abertos.

    Após isso ele tenta fazer a seguinte rotina:

    DoCmd.DeleteObject acTable, "Tabela1"
    DoCmd.DeleteObject acTable, "Tabela2"
    CurrentDb.Execute "SELECT * INTO Tabela1 FROM Tabela1_ORIGINAL;"
    CurrentDb.Execute "SELECT * INTO Tabela2 FROM Tabela2_ORIGINAL;"

    Nas linhas:
    DoCmd.DeleteObject acTable, "Tabela1"
    DoCmd.DeleteObject acTable, "Tabela2"
    Ele da o seguinte erro:
    "O mecanismo de banco de dados não pode bloquear a tabela 'Tabela1', pois ela ja está sendo usada por outra pessoa ou processo".

    Como fechei todos os forms e não tem nenhuma tabela aberta, não tem porque ele me dizer isso.

    Alguem pode me ajudar?

    Informações adicionais:
    As tabelas "Tabela1_ORIGINAL" e "Tabela2_ORIGINAL" são vinculadas de um arquivo txt.
    Meu sistema deveria deletar as tabelas "Tabela1" e "Tabela2" para criar uma nova com informações atualizadas.

    Desde muito obrigado.
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11026
    Registrado : 04/11/2009

    [Resolvido]Apagar tabela Criada via VBA Empty Re: [Resolvido]Apagar tabela Criada via VBA

    Mensagem  JPaulo Sex 07 Jul 2017, 10:35 am

    Ola seja bem vindo ao forum;

    Código:
    CurrentDb.Execute "DROP TABLE Tabela1", dbFailOnError
    CurrentDb.Execute "DROP TABLE Tabela2", dbFailOnError
    CurrentDb.Execute "SELECT * INTO Tabela1 FROM Tabela1_ORIGINAL;"
    CurrentDb.Execute "SELECT * INTO Tabela2 FROM Tabela2_ORIGINAL;"


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Apagar tabela Criada via VBA Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Apagar tabela Criada via VBA Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Apagar tabela Criada via VBA Folder_announce_new Instruções SQL como utilizar...
    avatar
    Atrefh
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 09/02/2017

    [Resolvido]Apagar tabela Criada via VBA Empty Re: [Resolvido]Apagar tabela Criada via VBA

    Mensagem  Atrefh Seg 10 Jul 2017, 12:14 pm

    Bom dia,

    Muito obrigado pela recepção.

    O erro ainda permanece.
    "Erro em tempo de execução '3211'"
    "O mecanismo de banco de dados não pode bloquear a tabela 'Tabela1', pois ela já está sendo usada por outra pessoa ou processo."

    Será que estou pecando em outra coisa que não reparei ainda?
    avatar
    Atrefh
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 09/02/2017

    [Resolvido]Apagar tabela Criada via VBA Empty Re: [Resolvido]Apagar tabela Criada via VBA

    Mensagem  Atrefh Seg 10 Jul 2017, 2:15 pm

    Resolvi o problema.

    Fiz com que quando o programa for atualizar, ele feche o Access e abre novamente, com isso aquela mensagem não aparece e eu consigo deletar e criar a tabela após a inicialização do Access.

    Obrigado pela ajuda JPaulo.

    Att.


    Conteúdo patrocinado


    [Resolvido]Apagar tabela Criada via VBA Empty Re: [Resolvido]Apagar tabela Criada via VBA

    Mensagem  Conteúdo patrocinado


      Data/hora atual: Sex 22 Nov 2024, 2:33 pm