MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Quitar pagamentos

    Compartilhe

    othaviocruz
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 22/08/2016

    [Resolvido]Quitar pagamentos

    Mensagem  othaviocruz em Qua 17 Maio 2017, 14:16

    Bom dia a todos. Tenho um um formulário com todas as vendas que o cliente me deve. e outro com todos os pagamentos que ele realiza.
    Quando o cliente pagasse toda a divida, gostaria de selecionar o botão "Quitar" da venda específica e o mesmo acontecesse em todos os pagamentos realizados.

    segue em anexo o exemplo. O pedido 34184 foi pago em 2 pagamentos. Gostaria de selecionar a caixa "Quitar" e ela atualizasse a mesma caixa no subformulário abaixo. Quitando os 2 pagamentos.



    Código:
    Private Sub Txt_Quitar_BeforeUpdate(Cancel As Integer)
    If Me.Txt_Quitar = -1 Then
    Me.Status.Value = 2
      
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("Tbl_Recebimento2") 'Abre Tbl_Recebimento2

    For i = 1 To 1
    rs.Edit
    rs("Status") = Me.Txt_Status
    rs("Quitar") = -1
    rs.Update
    Next
    rs.Close
    db.Close
                        
    Else
    Me.Status.Value = 1
    Set db = CurrentDb()
    Set rs = db.OpenRecordset("Tbl_Recebimento2")
    For i = 1 To 1
    rs.Edit
    rs("Status") = Me.Txt_Status
    rs("Quitar") = Me.Txt_Quitar
    rs.Update

    Next
    rs.Close
    db.Close

    End If
    End Sub

    Se alguem puder me ajudar, ficaria muito grato.
    Anexos
    Sem título.png
    Você não tem permissão para fazer download dos arquivos anexados.
    (118 Kb) Baixado 5 vez(es)
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Quitar pagamentos

    Mensagem  ahteixeira em Qua 17 Maio 2017, 22:17

    Olá,
    Com uma consulta atualizar e um refresh deve resolver facilmente.
    Crie uma consulta para mostrar os dados como tem no form.
    Depois altere para atualizar o campo pretendido.
    O botão quitar é correr a consulta e refresh.

    Abraço

    othaviocruz
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 8
    Registrado : 22/08/2016

    Re: [Resolvido]Quitar pagamentos

    Mensagem  othaviocruz em Qui 18 Maio 2017, 15:29

    Deu certinho meu amigo.

    muito obrigado pela ajuda. Até deletei o código.
    haha

    não tenho muita pratica no forum. Como faz para colocar RESOLVIDO?

    se algum moderador ver, favor passar pra resolvido.

    Obrigado.
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

    Re: [Resolvido]Quitar pagamentos

    Mensagem  ahteixeira em Qui 18 Maio 2017, 18:22

    Olá Othavio, obrigado pelo retorno.
    Os utilizadores do fórum agradecem.

    Desta vez eu coloco , veja link abaixo como fazer:
    [Você precisa estar registrado e conectado para ver este link.]

    Abraço

      Data/hora atual: Ter 19 Set 2017, 12:49