MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    [Resolvido]Duvida simples do while

    alozs
    alozs
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 284
    Registrado : 07/02/2018

    [Resolvido]Duvida simples do while Empty [Resolvido]Duvida simples do while

    Mensagem  alozs em 14/10/2019, 17: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
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 235
    Registrado : 08/09/2012

    [Resolvido]Duvida simples do while Empty Re: [Resolvido]Duvida simples do while

    Mensagem  Maicon em 28/10/2019, 22:04

    Código do Mestre JPAULO :

    "https://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.
    alozs
    alozs
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 284
    Registrado : 07/02/2018

    [Resolvido]Duvida simples do while Empty Re: [Resolvido]Duvida simples do while

    Mensagem  alozs em 30/12/2019, 14:09

    obg amigo! consegui resolver!

      Data/hora atual: 4/12/2020, 14:56