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

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

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.

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

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

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



Obrigado

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

Bom dia Teixeira

Bom domingo

Não funciona .

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

Não funciona e não dá erro

Vou tentar postar, pois tem muito para desmembrar.

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

Eis

Olá Assi, falha minha
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

Saudações aos amigos!

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

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

Ambas chegam ao mesmo Lugar!

Bingo Teixeira e FabioPaes
Obrigado e resto de bom domingo

Abraço a todos.
Bom domingo!