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!
2 participantes
[Resolvido]Apagar tabela em back end com senha e renomear
Careca2014- Intermediário
- Respeito às regras :
Sexo :
Localização :
Mensagens : 68
Registrado : 17/12/2014
Alvaro Teixeira- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7996
Registrado : 15/03/2013
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
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
- Respeito às regras :
Sexo :
Localização :
Mensagens : 68
Registrado : 17/12/2014
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
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
- Respeito às regras :
Sexo :
Localização :
Mensagens : 68
Registrado : 17/12/2014
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
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
Alvaro Teixeira- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7996
Registrado : 15/03/2013
Olá Fernando,
Uma pergunta para ver se eu comprendo (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
Uma pergunta para ver se eu comprendo (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
- Respeito às regras :
Sexo :
Localização :
Mensagens : 68
Registrado : 17/12/2014
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.
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.
Alvaro Teixeira- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7996
Registrado : 15/03/2013
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
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
- Respeito às regras :
Sexo :
Localização :
Mensagens : 68
Registrado : 17/12/2014
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;"
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;"
Alvaro Teixeira- Moderador Global
- Respeito às regras :
Sexo :
Localização :
Mensagens : 7996
Registrado : 15/03/2013
Olá Fernando, obrigado pelo retorno.
Os utilizadores do fórum agradecem.
Abraço
Os utilizadores do fórum agradecem.
Abraço