[Resolvidos]Executar consulta, retirar avisos e apagar dados de tabela

hugopanzer 12/1/2011, 16:49

hugopanzer: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 182
Registrado : 16/11/2010

Mensagem nº1

[Resolvidos]Executar consulta, retirar avisos e apagar dados de tabela

Mensagem hugopanzer 12/1/2011, 16:49

Boa tarde, e este forum esta cada vez melhor os meus parabens...

Construi uma consulta de "Acrescentar" que vai adiccionar dados a outra tabela. Alguem me ajuda com o codigo que devo usar num modulo para executar esta consulta ?

Obrigado e abraço

**Gilberto Rocha** 12/1/2011, 17:03

Gilberto Rocha

Gilberto Rocha: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 1027
Registrado : 21/01/2010

Mensagem nº2

Re: [Resolvidos]Executar consulta, retirar avisos e apagar dados de tabela

Mensagem Gilberto Rocha 12/1/2011, 17:03

DoCmd.SetWarnings False
DoCmd.OpenQuery ("SuaConsulta")
DoCmd.SetWarnings True

hugopanzer 12/1/2011, 17:11

hugopanzer

hugopanzer: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 182
Registrado : 16/11/2010

Mensagem nº3

Re: [Resolvidos]Executar consulta, retirar avisos e apagar dados de tabela

Mensagem hugopanzer 12/1/2011, 17:11

Funcionou é isso mesmo...
Obrigado "topbr"

**Gilberto Rocha** 12/1/2011, 19:01

Gilberto Rocha

Gilberto Rocha: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 1027
Registrado : 21/01/2010

Mensagem nº4

Re: [Resolvidos]Executar consulta, retirar avisos e apagar dados de tabela

Mensagem Gilberto Rocha 12/1/2011, 19:01

Valeu!!

hugopanzer 13/1/2011, 12:36

hugopanzer

hugopanzer: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 182
Registrado : 16/11/2010

Mensagem nº5

Re: [Resolvidos]Executar consulta, retirar avisos e apagar dados de tabela

Mensagem hugopanzer 13/1/2011, 12:36

Desculpa so mais ma coisa depois de exectuar este código no modulo

DoCmd.SetWarnings False
DoCmd.OpenQuery ("qryacrescentar")
DoCmd.SetWarnings True

qual o codigo que devo usar para limpar todos os dados da tabela ?

Obrigado mais uma vez

**JPaulo** 13/1/2011, 13:39

JPaulo

JPaulo: Moderador; Respeito às regras :

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

Mensagem nº6

Re: [Resolvidos]Executar consulta, retirar avisos e apagar dados de tabela

Mensagem JPaulo 13/1/2011, 13:39

Limpar todos os dados da tabela;

Dim strSQL As String
DoCmd.SetWarnings False
DoCmd.OpenQuery ("qryacrescentar")
DoCmd.SetWarnings True
strSQL = "delete * from SuaTabela"
DoCmd.RunSQL (strSQL)

.................................................................................
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

[Resolvidos]Executar consulta, retirar avisos e apagar dados de tabela Folder_announce_new

Utilize o Sistema de Busca do Fórum...
[Resolvidos]Executar consulta, retirar avisos e apagar dados de tabela Folder_announce_new

102 Códigos VBA Gratuitos...
[Resolvidos]Executar consulta, retirar avisos e apagar dados de tabela Folder_announce_new

Instruções SQL como utilizar...

hugopanzer 13/1/2011, 14:10

hugopanzer

hugopanzer: Intermediário; Respeito às regras :

Sexo :
Localização :
Mensagens : 182
Registrado : 16/11/2010

Mensagem nº7

Re: [Resolvidos]Executar consulta, retirar avisos e apagar dados de tabela

Mensagem hugopanzer 13/1/2011, 14:10

obrigado pela sua resposta JPaulo o codigo que disponibilizou funcionou na perfeição no entanto aparece uma janela e pedir a confirmaçao se quero ou nao apagar os registos da tabela... à forma de dar vola a isto? a ideia seria tornar esta operaçao o mais autonomo possivel sem acçao do utilizador ....

Obrigado e abraço