[Resolvido]Anular dados em tabela com 2 condições

Assis 4/3/2017, 13:48

Assis: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009

Mensagem nº1

[Resolvido]Anular dados em tabela com 2 condições

Mensagem Assis 4/3/2017, 13:48

Boa tarde amigos

Esta funciona
DoCmd.RunSQL "DELETE * FROM [tblmovimento] WHERE Estorno = " & Me.Estorno

Esta não funciona
DoCmd.RunSQL "DELETE * FROM [tblmovimento] WHERE Estorno = " & Me.Estorno And Format(DataMovimento, "yyyy") = Format(Forms.menu.DataMenu, "yyyy")

Onde estou a errar

Obrigado

.................................................................................
*** Só sei que nada sei ***

**Alexandre Fim** 4/3/2017, 19:23

Alexandre Fim

Alexandre Fim: Developer; Respeito às regras :

Sexo :
Localização :
Mensagens : 3494
Registrado : 13/12/2016

Mensagem nº2

Re: [Resolvido]Anular dados em tabela com 2 condições

Mensagem Alexandre Fim 4/3/2017, 19:23

Boa tarde Assis,

Segue uma instrução para exclusão de registro.

Private Sub ExcluirReg()
On Error GoTo trata_erro
Dim msql As String
Dim DB As DAO.Database

Set DB = CurrentDb

msql = "DELETE FROM tblmovimento "
msql = msql & " WHERE Estorno = " & Me.Estorno & ""
msql = msql & " AND " & Format(DataMovimento, "yyyy") & " = " & Format(Forms.menu.DataMenu, "yyyy") & ""
DB.Execute msql

MsgBox "Registro excluído com sucesso.", vbInformation, "Mensagem"

Exit Sub

trata_erro:
MsgBox "Erro gerado: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro"
Exit Sub

End Sub

Espero ter ajudado.

Abraço.

**Alexandre Neves** 4/3/2017, 22:11

Alexandre Neves

Alexandre Neves: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 8498
Registrado : 05/11/2009

Mensagem nº3

Re: [Resolvido]Anular dados em tabela com 2 condições

Mensagem Alexandre Neves 4/3/2017, 22:11

Boa noite, Assis
Não funciona porque
... Estorno = " & Me.Estorno And Format(DataMovimento, "yyyy") = Format(Forms.menu.DataMenu, "yyyy")
X1=X2=X3

Não sei como pretendes fazer a condição ou condições

.................................................................................
Access 2010. Mande bd que dê para testar (indique a versão). Não peça para fazer o que já tem feito. Dê todos os detalhes.
Não coloquem entraves como senhas, esconder controlos, etc. Disponibilizem o mais limpo possível
Só respondo a mensagens privadas, se forem de assunto privado; às outras não respondo.
Quem trabalha e mata a fome não come o pão de ninguém; mas quem não trabalha e come, come sempre o pão de alguém. António Aleixo

Assis 4/3/2017, 23:08

Assis

Assis: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009

Mensagem nº4

Re: [Resolvido]Anular dados em tabela com 2 condições

Mensagem Assis 4/3/2017, 23:08

Boa noite Alexandre Fim

Não funciona, e o erro está nesta parte

msql = msql & " AND " & Format(DataMovimento, "yyyy") & " = " & Format(Forms.menu.DataMenu, "yyyy") & ""

Obrigado

.................................................................................
*** Só sei que nada sei ***

Assis 4/3/2017, 23:28

Assis

Assis: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009

Mensagem nº5

Re: [Resolvido]Anular dados em tabela com 2 condições

Mensagem Assis 4/3/2017, 23:28

Alexandre Neves

A parte do ..... Estorno = " & Me.Estorno .... funciona.
Neste caso Estorno é 1 = 1

Mas a numeração do estorno muda com a mudança de ano, começa com 1
Assim no ano 2018 vou voltar a ter o primeiro Estorno com o Nº 1, e vai anular todos os Nºs 1

Por isso queria por a condição "Ano"

Seria formatar o campo DataMovimento (04-03-2017) em 2017 para ser igual ao campo Format(Forms.menu.DataMenu, "yyyy")

Assim eliminava os estornos iguais no Ano igual

[Resolvido]Anular dados em tabela com 2 condições Elimin10

[Resolvido]Anular dados em tabela com 2 condições Elimin10

Obrigado

.................................................................................
*** Só sei que nada sei ***

**Alvaro Teixeira** 5/3/2017, 12:44

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7996
Registrado : 15/03/2013

Mensagem nº6

Re: [Resolvido]Anular dados em tabela com 2 condições

Mensagem Alvaro Teixeira 5/3/2017, 12:44

Olá a todos,
Assis, se não me engano tem um controlo de debito e credito.
Uma transferencia tem dois registos, se tivesse um numero da operação (ID igual nas duas linhas) tudo era fácil, já reparou.

Se reparar bem na sua instrução que não funciona da mensagem n.º 1 o AND deveria estar entre aspas, pois faz parte da instrução SQL.
Teste assim:

Código:: DoCmd.RunSQL "DELETE * FROM [tblmovimento] WHERE Estorno = " & Me.Estorno & " AND " & Year(DataMovimento) = Year(Forms!menu!DataMenu)

Abraço

Assis 5/3/2017, 13:00

Assis

Assis: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009

Mensagem nº7

Re: [Resolvido]Anular dados em tabela com 2 condições

Mensagem Assis 5/3/2017, 13:00

Bom dia Teixeira

Bom domingo

Não funciona .

.................................................................................
*** Só sei que nada sei ***

**Alvaro Teixeira** 5/3/2017, 13:05

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7996
Registrado : 15/03/2013

Mensagem nº8

Re: [Resolvido]Anular dados em tabela com 2 condições

Mensagem Alvaro Teixeira 5/3/2017, 13:05

Olá Assis,
Não funciona ou dá erro?
Poste base de dados com a tabela e o form em questão.
Abraço

Assis 5/3/2017, 13:10

Assis

Assis: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009

Mensagem nº9

Re: [Resolvido]Anular dados em tabela com 2 condições

Mensagem Assis 5/3/2017, 13:10

Não funciona e não dá erro

Vou tentar postar, pois tem muito para desmembrar.

.................................................................................
*** Só sei que nada sei ***

**Alvaro Teixeira** 5/3/2017, 13:16

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7996
Registrado : 15/03/2013

Mensagem nº10

Re: [Resolvido]Anular dados em tabela com 2 condições

Mensagem Alvaro Teixeira 5/3/2017, 13:16

Olá Assis,
Crie uma base de dados nova, importe a tabela tblmovimento o formulario Forms!menu!DataMenu e o formulario onde tem o botão que está a chamar a consulta.
Abraço

Assis 5/3/2017, 13:41

Assis

Assis: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009

Mensagem nº11

Re: [Resolvido]Anular dados em tabela com 2 condições

Mensagem Assis 5/3/2017, 13:41

Eis

.................................................................................
*** Só sei que nada sei ***

**Alvaro Teixeira** 5/3/2017, 14:10

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7996
Registrado : 15/03/2013

Mensagem nº12

Re: [Resolvido]Anular dados em tabela com 2 condições

Mensagem Alvaro Teixeira 5/3/2017, 14:10

Olá Assi, falha minha Very Happy

A "olho" é no que dá!

Código:: DoCmd.RunSQL "DELETE * FROM [tblmovimento] WHERE Estorno = " & Me.Estorno & " AND Year(tblmovimento.DataMovimento) = " & Year(Forms!menu!DataMenu)

Abraço

FabioPaes 5/3/2017, 14:18

FabioPaes

FabioPaes: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 3914
Registrado : 14/08/2013

Mensagem nº13

Re: [Resolvido]Anular dados em tabela com 2 condições

Mensagem FabioPaes 5/3/2017, 14:18

Saudações aos amigos!

Assis tente assim:
DoCmd.RunSQL "DELETE * FROM [tblmovimento] WHERE Estorno = " & Me.Estorno & " AND Year(DataMovimento) = " & Year(Forms!menu!DataMenu) & ""

.................................................................................

_____________________________________________________________________
Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
A dica do Colega foi útil? Agradeça!

O importante não saber tudo, mas sim a Onde procurar!

FabioPaes 5/3/2017, 14:21

FabioPaes

FabioPaes: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 3914
Registrado : 14/08/2013

Mensagem nº14

Re: [Resolvido]Anular dados em tabela com 2 condições

Mensagem FabioPaes 5/3/2017, 14:21

Amigo ahteixeira Enquanto testava você postou a solução!

Ambas chegam ao mesmo Lugar!
cheers

.................................................................................

_____________________________________________________________________
Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
A dica do Colega foi útil? Agradeça!

O importante não saber tudo, mas sim a Onde procurar!

Assis 5/3/2017, 15:41

Assis

Assis: Maximo VIP; Respeito às regras :

Sexo :
Localização :
Mensagens : 4772
Registrado : 06/11/2009

Mensagem nº15

Re: [Resolvido]Anular dados em tabela com 2 condições

Mensagem Assis 5/3/2017, 15:41

Bingo Teixeira e FabioPaes
Obrigado e resto de bom domingo

.................................................................................
*** Só sei que nada sei ***

**Alvaro Teixeira** 5/3/2017, 15:46

Alvaro Teixeira

Alvaro Teixeira: Moderador Global; Respeito às regras :

Sexo :
Localização :
Mensagens : 7996
Registrado : 15/03/2013

Mensagem nº16

Re: [Resolvido]Anular dados em tabela com 2 condições

Mensagem Alvaro Teixeira 5/3/2017, 15:46

Abraço a todos.
Bom domingo!
cheers

Conteúdo patrocinado

Conteúdo patrocinado

Conteúdo patrocinado

Mensagem nº17

Re: [Resolvido]Anular dados em tabela com 2 condições

Mensagem Conteúdo patrocinado

MaximoAccess

MaximoAccess

MaximoAccess

[Resolvido]Anular dados em tabela com 2 condições

[Resolvido]Anular dados em tabela com 2 condições

Re: [Resolvido]Anular dados em tabela com 2 condições

Re: [Resolvido]Anular dados em tabela com 2 condições

Re: [Resolvido]Anular dados em tabela com 2 condições

Re: [Resolvido]Anular dados em tabela com 2 condições

Re: [Resolvido]Anular dados em tabela com 2 condições

Re: [Resolvido]Anular dados em tabela com 2 condições

Re: [Resolvido]Anular dados em tabela com 2 condições

Re: [Resolvido]Anular dados em tabela com 2 condições

Re: [Resolvido]Anular dados em tabela com 2 condições

Re: [Resolvido]Anular dados em tabela com 2 condições

Re: [Resolvido]Anular dados em tabela com 2 condições

Re: [Resolvido]Anular dados em tabela com 2 condições

Re: [Resolvido]Anular dados em tabela com 2 condições

Re: [Resolvido]Anular dados em tabela com 2 condições

Re: [Resolvido]Anular dados em tabela com 2 condições

Re: [Resolvido]Anular dados em tabela com 2 condições

Tópicos semelhantes

Tópicos semelhantes

Pesquisar

Resultados por: Mensagens Tópicos
Pesquisa avançada