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

    Conferir boletos

    Compartilhe

    engvinipuhl
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 22/06/2018

    Conferir boletos

    Mensagem  engvinipuhl em 27/9/2018, 13:17

    Bom dia,tenho um sistema onde a tabela (BD_Contrato_Parcelas) registra as parcelas mas principalmete os dados o boleto emetido no campos ("Numero Boleto","Data pagamento","valor Pago","analise")
    eu preciso de um comando que encontre na tabela (BD_Pagamentos Boletos), se o boleto foi lançado,buscando pelo "Numero Boleto" ,na coluna "Numero Boleto Pago" ,e após disto se encontrar copiar, informação da mesma linha,"Data Pag" para "data Pagamento","valor" para "Valor Pago" e salvar no campo "analise","informado" ; ;; ; quando não encontrar o código, mudar o campo analise para "Ausente"


    observação adicionais que podem ajudar
    Campo chave do (BD_Contrato_Parcelas),é [Código Parcelas]
    campo Chave do (BD_Pagamentos Boletos), é [Código Pagamento] e o campo [Numero Boleto Pago] é um índice secundário.

    Desde já fico grato por dicas e ajudas.

    engvinipuhl
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 7
    Registrado : 22/06/2018

    Tentando explicar melhor

    Mensagem  engvinipuhl em 3/10/2018, 19:48

    tentar explicar diferente preciso muito de ajuda,Preciso um comando pra localizar na tabela (1) ("BD_Pagamento Boletos") o campo "numero_Boleto_Pag"; com a condição de ser igual ao campo "Numero _Boleto" doa tabela (2) ("BD_contrato_Parcelas).ao encontrar este registo utilizar o valor do campo "data pag" da tabela 1 para a tabela 2 no campo "Data Pagamento"
    a questão é que ao clicar o botão preciso que
    cada registro da tabela 2 inspecione todos registro da tabela 2 para encontrar dados

    em palavras por que :
    Criei uma tabela com as parcelas (1) e uma tabela com os boletos pagos,o qual posso importar do Excel para facilitar o uso.então quando ativo o botão quero que o sistema verifique se os boletos que que o código procura para cada registro da tabela (1) se a o boleto em qualquer parte da tabela (2)..


    IvanJr.
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 69
    Registrado : 22/11/2016

    Re: Conferir boletos

    Mensagem  IvanJr. em 4/10/2018, 06:08

    Código:
    Dim rsAVarrer As DAO.Recordset
        Dim rsAAtualizar As DAO.Recordset
        Dim booEncontrou As Boolean
        
        Set rsAAtualizar = CurrentDb.OpenRecordset("BD_Contrato_Parcelas")
        Set rsAVarrer = CurrentDb.OpenRecordset("BD_Pagamentos Boletos", , 4)
        
        While Not rsAAtualizar.EOF
            
           If Not rsAVarrer.EOF Then
               
                rsAVarrer.MoveFirst
           
                Do
                    booEncontrou = rsAAtualizar.Fields("Numero Boleto").Value = rsAVarrer.Fields("Numero Boleto Pago").Value
                    If booEncontrou Then Exit Do
                    rsAVarrer.MoveNext
                Loop Until rsAVarrer.EOF
               
            End If
            
            rsAAtualizar.Edit
                If booEncontrou Then
                    rsAAtualizar.Fields("Data pagamento").Value = rsAVarrer.Fields("Data Pag").Value
                    rsAAtualizar.Fields("valor Pago").Value = rsAVarrer.Fields("valor").Value
                    rsAAtualizar.Fields("analise").Value = "informado"
                Else
                    rsAAtualizar.Fields("Analise").Value = "ausente"
                End If
            rsAAtualizar.Update
            rsAAtualizar.MoveNext
            
        Wend
        
        rsAVarrer.Close: Set rsAVarrer = Nothing
        rsAAtualizar.Close: Set rsAAtualizar = Nothing

        MsgBox "Tarefa concluída.", vbInformation, "Informação"

      Data/hora atual: 15/10/2018, 21:23