MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


4 participantes

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

    Claudinei
    Claudinei
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 24/05/2010

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

    Mensagem  Claudinei 4/11/2015, 17:40

    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:
    [Resolvido]Excluir duas linhas com o mesmo código 2yl7p5l

    Exemplo da minha tabela:
    [Resolvido]Excluir duas linhas com o mesmo código 2hx97jk

    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 ?
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 4/11/2015, 17:46

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

    Me.refresh

    E teste.
    Abraço
    Claudinei
    Claudinei
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 24/05/2010

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

    Mensagem  Claudinei 4/11/2015, 17:50

    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
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 4/11/2015, 17:55

    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
    Claudinei
    Claudinei
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 24/05/2010

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

    Mensagem  Claudinei 4/11/2015, 18:04

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 4/11/2015, 18:20

    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
    Claudinei
    Claudinei
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 24/05/2010

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

    Mensagem  Claudinei 4/11/2015, 18:50

    Tem sim!

    Qual seu endereço de email para eu enviar ?
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Assis 4/11/2015, 18:54

    Poste aqui

    http://ge.tt/


    .................................................................................
    *** Só sei que nada sei ***
    Claudinei
    Claudinei
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 24/05/2010

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

    Mensagem  Claudinei 4/11/2015, 18:59

    Boa tarde Assis.

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

    a senha é cf271207
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Assis 4/11/2015, 19:09

    Claudinei

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


    .................................................................................
    *** Só sei que nada sei ***
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho 4/11/2015, 20:12

    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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Claudinei
    Claudinei
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 24/05/2010

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

    Mensagem  Claudinei 5/11/2015, 09:09

    Bom dia Assis,

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


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 24/05/2010

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

    Mensagem  Claudinei 5/11/2015, 09:17

    Bom dia Noobezinho,

    o código com assento é somente na legenda do campo, olhe a estrutura da tabela:
    [Resolvido]Excluir duas linhas com o mesmo código Lzekg
    Abraço !
    Claudinei
    Claudinei
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 24/05/2010

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

    Mensagem  Claudinei 5/11/2015, 09:22

    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.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 5/11/2015, 12:22

    Olá Claudinei, teste assim:

    Código:
    CurrentDb.Execute "DELETE Movimento.Codigo FROM Movimento WHERE Movimento.Codigo = '" & Me.txtCodigo & "';"

    Abraço
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

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

    Mensagem  Assis 5/11/2015, 13:04

    Claudinei

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


    .................................................................................
    *** Só sei que nada sei ***
    Claudinei
    Claudinei
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 24/05/2010

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

    Mensagem  Claudinei 5/11/2015, 13:13

    Ê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

    Claudinei
    Claudinei
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 61
    Registrado : 24/05/2010

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

    Mensagem  Claudinei 5/11/2015, 13:15

    Agradeço a ajuda de todos !
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7995
    Registrado : 15/03/2013

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

    Mensagem  Alvaro Teixeira 5/11/2015, 13:23

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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 13/11/2024, 05:45