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


    Duvida simples do while

    alozs
    alozs
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 164
    Registrado : 06/02/2018

    Duvida simples do while Empty Duvida simples do while

    Mensagem  alozs em Seg 14 Out 2019, 12:45

    Boa tarde a todos, perdi um tópico aqui onde explica sobre a ferramenta do while e estou solicitando a ajuda dos mais experientes, tenho um form que dentro tem um subform que puxa os dados de pgto a prazo dos clientes, um dos campos do subform é para localizar os clientes que estão em atraso e incluir juros e multa aos pgtos, coloquei uma condição porem ele só verifica o primeiro registro, não puxa os demais abaixo, se puderem me auxiliar na correção do código, segue abaixo.
    obs os dados do subformulário é uma consulta

    Código:
    Private Sub Form_Load()
    On Error GoTo TrataErro
    Dim totalmulta as double
    Dim multafixo as double
    Dim rst As Recordset

    juro = DLookup("taxa", "tbl_juros") 'capturo o valor dos juros
    multafixo = DLookup("multafixo", "tbl_juros") 'capturo o valor da multa em R$
    multa = DLookup("multa", "tbl_juros") 'capturo o valor da multa

    Set rst = Me.Recordset
    rst.MoveFirst
    Do While Me.TxtAtrazo > 0 'verifico se algum campo da consulta é maior que 1 para calcular os juros

    With rst
    .Edit
    Me.TxtAcresc.Value = Me.TxtValor * juro * Me.TxtAtrazo
    Me.TxtAcresc = Format$(Me.TxtAcresc, "0.00")
    totalmulta = Me.TxtValor * multa
    Me.TxtAcresc.Value = Me.TxtAcresc + totalmulta
    Me.TxtAcresc.Value = Me.TxtAcresc + multafixo
    .Update
    .MoveNext
    End With
    Loop
    Set rst = Nothing

    Else
    End If

    TrataErro:
    Exit Sub
    End sub
    Maicon
    Maicon
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 167
    Registrado : 07/09/2012

    Duvida simples do while Empty Re: Duvida simples do while

    Mensagem  Maicon em Seg 28 Out 2019, 18:04

    Código do Mestre JPAULO :

    "http://www.maximoaccess.com/t1681-resolvidopercorrer-registros"

    Tente usar :Do While Not rst.EOF


    Código:
    Private Sub Comando6_Click()
    Dim rst As Recordset
    Set rst = Me.Recordset
    rst.MoveFirst
    Do While Not rst.EOF
    With rst



    .MoveNext
    End With
    Loop
    Set rst = Nothing
    End Sub


    .................................................................................
    "O talento vence jogos, mas só o trabalho em equipe ganha campeonatos."
    Michael Jordan

    Bons Estudos.

      Data/hora atual: Qui 14 Nov 2019, 22:10