MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Apagar tabela em back end com senha e renomear

    Compartilhe

    Careca2014
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 17/12/2014

    [Resolvido]Apagar tabela em back end com senha e renomear

    Mensagem  Careca2014 em Ter 16 Maio 2017, 00:10

    Boa noite pessoal, tenho tabelas vinculadas ao front end, preciso todo mês zerar a tabela, voltado seu registro a zero e apagando os dados, peguei do mestre Avelino este exemplo onde cria uma tabela temporária e depois de apagar a original a renomeia com o nome da original, estando assim sempre nova. O problema que estou encontrando é que este exemplo tenta fazer isto no front end, ele cria uma tabela temporária no front end e a original vinculada continua no back end. Como faço para direcionar para que ele entenda que estão no back end. Detalhe tenho senha também no back end. Desde já agradeço!
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5134
    Registrado : 15/03/2013

    Re: [Resolvido]Apagar tabela em back end com senha e renomear

    Mensagem  ahteixeira em Qui 18 Maio 2017, 18:45

    Olá, sem mostrar o código não é fácil.
    Se usa uma instrução SQL para criar a nova tabela use a instrução
    ... IN 'caminho\suaBaseDados.accdb' ...

    Se tiver duvidas, efetue uma busca aqui no forum.
    Abraço

    Careca2014
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 17/12/2014

    Re: [Resolvido]Apagar tabela em back end com senha e renomear

    Mensagem  Careca2014 em Qui 18 Maio 2017, 19:29

    Desculpe na ânsia de perguntar não percebi q não tinha colado o código
    Segue abaixo


    Private Sub Comando0_Click
    Curtem tb. Execute ''SELECT*INTO TabCli_tmp FROM TabCli;"
    CurrentDb.Execute "ALTER TABLE TabCli_tmp ADD COLUMN IdCli AUTOINCREMENT; "
    CurrentDb.Execute "ALTER TABLE TabCli_tmp ADD CONSTRAINT pkey PRIMARY KEY (IdCli);"
    DoCmd DeleteObject acTable, "TabCli"
    DoCmd.Remam e "TabCli_tmp", acTable, "TabCli"
    End Sub

    Aonde entraria a sua sugestão. ...tô perdido



    Careca2014
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 17/12/2014

    Re: [Resolvido]Apagar tabela em back end com senha e renomear

    Mensagem  Careca2014 em Qui 18 Maio 2017, 20:31

    Fiz um pequeno progresso, mas ainda preciso de ajuda
    Ainda me baseando em exemplos do mestre Avelino
    Cheguei ao codigo abaixo, porém está funcionando apenas para alterar a tabela, não consegui adaptar para o restante

    Dim strCaminhoBe As String
    strCaminhoBe = "C:\Futebol\Fontes\FutBe.accdb;pwd=senha"
    CurrentDb.Execute "ALTER TABLE [" & strCaminhoBe & "].TabCli Add Column Teste CURRENCY; "

    Funcionou ele foi ao back End e alterou a tabela, mas ao tentar adaptar às demais solicitações deu erro.
    Alguém poderia ajudar.....falta pouco agora eu acho....kkkkk
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5134
    Registrado : 15/03/2013

    Re: [Resolvido]Apagar tabela em back end com senha e renomear

    Mensagem  ahteixeira em Sex 19 Maio 2017, 15:27

    Olá Fernando,
    Uma pergunta para ver se eu comprendo Shocked (independentemente da questão).

    Pelo que vi do código,
    Passa dados da TabCli para a TabCli_tmp
    Depois cria o campo IdCli da tabela TabCli_tmp
    Depois o Index para Chave Primária
    Depois apaga a TabCli
    Por fim renomeia de TabCli_tmp para TabCli

    E agora pergunto, o que chama de "zerar a tabela, voltado seu registro a zero"
    Será renumerar sequêncialmente??????

    Abraço

    Careca2014
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 17/12/2014

    Re: [Resolvido]Apagar tabela em back end com senha e renomear

    Mensagem  Careca2014 em Sex 19 Maio 2017, 15:57

    Olá bom dia
    Sim apaga todos registros e zera a numeração.
    Dentre as opções q vi isto é possível tb compactando e reparando o banco, mas preciso q faça automaticamente no toque de um botão e não manualmente, por ter senha no back End eu não consegui adaptar nenhum dos códigos q encontrei p compactar e reparar.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5134
    Registrado : 15/03/2013

    Re: [Resolvido]Apagar tabela em back end com senha e renomear

    Mensagem  ahteixeira em Sex 19 Maio 2017, 16:21

    Olá,
    No entanto se está apagar tabelas, deveria compactar/reparar o BacKEnd.
    Já pensou em ter uma função para renumerar ou ter um campo NumSequencia para o efeito era mais prático.

    Quanto às alterações o SQL diretamente não é a minha especialidade, mas se poder postar as tabelas (estrutura) com dados de exemplo para se verificar fica mais fácil.

    Abraço

    Careca2014
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 68
    Registrado : 17/12/2014

    Re: [Resolvido]Apagar tabela em back end com senha e renomear

    Mensagem  Careca2014 em Ter 06 Jun 2017, 00:59

    Após varias tentativas cheguei na solução, deixo abaixo pra quem precisar posteriormente.
    Um abraço!

    Dim strCaminhoBe As String
    strCaminhoBe = "C:\Futebol\Fontes\FutBe.accdb;pwd=senha"
    CurrentDb.Execute "ALTER TABLE [" & strCaminhoBe & "].TabCli Add Column Teste CURRENCY; "
    CurrentDb.Execute "DROP TABLE [" & strCaminhoBe & "].TabCli;"
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5134
    Registrado : 15/03/2013

    Re: [Resolvido]Apagar tabela em back end com senha e renomear

    Mensagem  ahteixeira em Ter 06 Jun 2017, 11:29

    Olá Fernando, obrigado pelo retorno.
    Os utilizadores do fórum agradecem.
    Abraço

      Data/hora atual: Dom 27 Maio 2018, 09:15