[Resolvido]Excluir duas linhas com o mesmo código

Boa tarde amigos.

Pesquisei muito aqui no fórum mas não encontrei nada que me ajude...
Tenho uma tabela com o nome Movimento onde faço o controle de contas correntes da empresa (débitos, créditos e transferências) onde nessa tabela o campo Codigo se repete ao realizar uma transferência bancária entre contas correntes.

Exemplo do meu form:


Exemplo da minha tabela:


Criei um botão com o nome excluir_transferencia e adaptei o código abaixo retirado aqui do fórum:

Private Sub excluir_transferencia_Click()
On Error GoTo excluir_transferencia_Click_Err
Dim strInput As String
     
      strInput = InputBox("Deletar o Registro com o Código nº " & Me.Codigo & vbNewLine & vbNewLine & "SENHA = 123", _
                          "Acesso Restrito")

      If strInput = "" Or strInput = Empty Then
          MsgBox "Não informou a senha - Cancelado...", vbCritical
      DoCmd.CancelEvent
          Exit Sub
      End If

      If strInput = "123" Then
   
 'Executando a consulta exclusão
 CurrentDb.Execute "DELETE * FROM Movimento WHERE codigo = " & Me.txtCodigo & ""
  MsgBox ("Registro excluído com Sucesso..."), vbInformation
  DoCmd.Requery
      Else
     
  MsgBox ("Senha inválida..."), vbCritical

          Exit Sub
      End If
                   
excluir_transferencia_Click_Exit:
  Exit Sub

excluir_transferencia_Click_Err:
  MsgBox ("Erro!")
  Resume excluir_transferencia_Click_Exit
End Sub

Ele me mostra a mensagem de que foi excluído o registro porém as duas linhas continuam na tabela, alguém pode me ajudar ?

Olá, na tabela foram excluidos?
Se sim tente colocar no cidigo, após a eliminação

Me.refresh

E teste.
Abraço

Boa tarde amigo!

Não foram excluídos não, eu já usei esse comando porém sem êxito, é que nesse código que postei já tinha havia apagado o comando, aliás no lugar do DoCmd.Requery

Se o código da transferência é campo tipo texto, deve colocar aspas simples:

CurrentDb.Execute "DELETE * FROM Movimento WHERE codigo = ' " & Me.txtCodigo & "'"

Teste.
Abraço

Alterei o código meu amigo pois o mesmo é texto, porém sem êxito !

Olá, será melhor postar pequeno exemplo para se testar.
Estou no telemovel, verei depois no pc ou pode ser que outro colega possa ajudar.
Abraço

Tem sim!

Qual seu endereço de email para eu enviar ?

Poste aqui

http://ge.tt/

Boa tarde Assis.

Postado http://ge.tt/1GzVUER2/v/0

a senha é cf271207

Claudinei

Arrastou o BD para o link, é que não está lá ....

Claudinei

Observei que na tabela está escrito Código com acento e no VBA está sem o acento.
Verifique se é apenas a legenda da coluna ou o nome do campo.

[ ]'s

Bom dia Assis,

Arrastei novamente olha o link aqui: http://ge.tt/7lzq9GR2/v/0

Bom dia Noobezinho,

o código com assento é somente na legenda do campo, olhe a estrutura da tabela:

Abraço !

Só uma observação galera!

No BD que postei existem dois botões de comando, um para excluir um lançamento normal de despesa ou receita, e outro para excluir uma transferência entre contas, esse primeiro exclui um movimento normalmente já o segundo não exclui nada, nem um lançamento e nem outro já que sua função seria para excluir apenas o movimento que tiver duas linhas com o mesmo código por exemplo 0001/2015, 0002/2015 e assim por diante.
Se baixarem o exemplo postado irão entender melhor o que estou tentando fazer.

Olá Claudinei, teste assim:

Código:

CurrentDb.Execute "DELETE Movimento.Codigo FROM Movimento WHERE Movimento.Codigo = '" & Me.txtCodigo & "';"

Abraço

Claudinei

A dica do Teixeira Msg Nº 15 anula os dois como o amigo quer.
Testado.

Êxito ahteixeira

Com essa linha alterada no código funcionou perfeitamente !

O código ficou assim:

Código:


Private Sub excluir_transferencia_Click()

On Error GoTo excluir_transferencia_Click_Err
Dim strInput As String
    
      strInput = InputBox("Deletar o Registro com o Código nº " & Me.Codigo & vbNewLine & vbNewLine & "SENHA = 123", _
                          "Acesso Restrito")

      If strInput = "" Or strInput = Empty Then
          MsgBox "Não informou a senha - Cancelado...", vbCritical
      DoCmd.CancelEvent
          Exit Sub
      End If

      If strInput = "123" Then
  
 'Executando a consulta exclusão
  CurrentDb.Execute "DELETE Movimento.Codigo FROM Movimento WHERE Movimento.Codigo = '" & Me.txtCodigo & "';"
  MsgBox ("Registro excluído com Sucesso..."), vbInformation
  DoCmd.Requery
      Else
    
  MsgBox ("Senha inválida..."), vbCritical

          Exit Sub
      End If
                  
excluir_transferencia_Click_Exit:
  Exit Sub

excluir_transferencia_Click_Err:
  MsgBox ("Erro!")
  Resume excluir_transferencia_Click_Exit

End Sub



Agradeço a ajuda de todos !

Olá, obrigado pelo retorno.
Abraço a todos os intervenientes.