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]Laço de repetição

    vomorais
    vomorais
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 11/03/2016

    [Resolvido]Laço de repetição Empty [Resolvido]Laço de repetição

    Mensagem  vomorais em 24/7/2019, 01:05

    Boa noite, no evento click de um botão utilizo 3 laços de repetição while. Inclusive,no inicio desabilito os botões. O terceiro laço não executa, e no final tenho que habilitar os botões que no inicio foi desabilitado mas nem isso faz. É como só fizesse os dois primeiros laço e parasse de percorrer as linhas. Não existe erro no código. Existe um limite de repetição? alguem poderia ajudar?
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Laço de repetição Empty Re: [Resolvido]Laço de repetição

    Mensagem  IvanJr. em 24/7/2019, 01:48

    Marque um ponto de interrupção e acompanhe a execução do código linha a linha usando a tecla F8 e veja o que pode está dando errado ou o que você pode estar deixando passar.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    vomorais
    vomorais
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 11/03/2016

    [Resolvido]Laço de repetição Empty Re: [Resolvido]Laço de repetição

    Mensagem  vomorais em 24/7/2019, 02:14

    Obrigado mas não mostra nada errado... um laço que é executado é semelhante ao outro que não executa so muda nome da variável
    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Laço de repetição Empty Re: [Resolvido]Laço de repetição

    Mensagem  IvanJr. em 24/7/2019, 03:30

    Sem o banco de dados para análise a dica que poderia dar era essa.

    Anexe aqui o banco e diga como devemos proceder e o que deveria acontecer que já apontaremos o erro escondido.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.
    vomorais
    vomorais
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 38
    Registrado : 11/03/2016

    [Resolvido]Laço de repetição Empty Re: [Resolvido]Laço de repetição

    Mensagem  vomorais em 25/7/2019, 01:33

    Ivan consegui achar o erro...kkk

    ''inicia pré escolar 2
    ''========================
    Dim contareg2 As Integer
    Dim contar2 As Integer
    Dim contapre2 As Integer
    Dim contapre3 As Integer
    Dim dt1 As Date
    Dim rst2 As Recordset
    Set rst2 = CurrentDb.OpenRecordset("tab_dadosmil")
    contar2 = 0
    contapre2 = 0
    contapre3 = 0
    contareg2 = rst2.RecordCount
    DoCmd.RunCommand acCmdRecordsGoToFirst
    Me.Rótulo10.Visible = True
    Do While contar2 <> contareg2
    CONTADOR QUE COMPARA COM TOTAL REGISTRO
    contar2 = contar2 + 1
    If IsNull(Me.valor2preescolar = True) Then
    FAZ NEXT SE TIVER VAZIO
    DoCmd.RunCommand acCmdRecordsGoToNext
    Else
    dt1 = (Me.validade2preescolar.Value - 90)
    ''aqui verefica que a data de vencimento esta compreendida entre a quantidade de dia escolhido
    If ((Date >= dt1) And (Me.validade2preescolar.Value >= Date)) Then
    contapre2 = contapre2 + 1
    ''Me.Rótulo6.Caption = "O prazo do pré-escolar do " & Me.postgrad & " " & Me.nomeguerra & " vence dia " & Me.validadepreescolar & ". Referente ao 1º dependente."
    Me.Rótulo10.Caption = "Existe " & contapre2 & " pré-escolar à vencer(2º dependente)."
    End If
    Me.Rótulo11.Visible = True
    If (Me.validade2preescolar.Value < Date) Then
    contapre3 = contapre3 + 1
    ''Me.Rótulo6.Caption = "Existe pré-escolar do " & Me.postgrad & " " & Me.nomeguerra & " venceu dia " & Me.validadepreescolar & ""
    Me.Rótulo11.Caption = "Existe " & contapre3 & " pré-escolar já vencido(2º dependente) - Exclua."
    End If

    FAZ NEXT ENQUANTO FOR DIFERENTE CONTAR (INCREMENTAR) COM TOTAL DE REGISTRO
    If contar2 <> contareg2 Then
    CRIEI ISTO E DESCOBRI QUE NÃO ESTAVA INDO EM TODO REGISTRO. AQUI ESTAVA O ERRO!
    ''MsgBox "O teste " & contar1 & "/" & contareg1 & "", vbInformation + vbOKOnly, "NAPION informa!"
    DoCmd.RunCommand acCmdRecordsGoToNext
    End If

    O ERRO ERA PQ AQUI ESTAVA IF...END DO DoCmd.RunCommand acCmdRecordsGoToNext ACIMA

    End If
    Loop

    IvanJr.
    IvanJr.
    Developer
    Developer

    Respeito às Regras 100%

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

    [Resolvido]Laço de repetição Empty Re: [Resolvido]Laço de repetição

    Mensagem  IvanJr. em 25/7/2019, 01:46

    O fórum agradece o retorno. Sucesso.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    Conteúdo patrocinado

    [Resolvido]Laço de repetição Empty Re: [Resolvido]Laço de repetição

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 9/12/2019, 15:24