MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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


2 participantes

    [Resolvido]Sair do Looping Do While com Sucesso

    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]Sair do Looping Do While com Sucesso Empty [Resolvido]Sair do Looping Do While com Sucesso

    Mensagem  good guy 16/4/2015, 22:48

    Olá pessoal,

    Tenho uma função que faz um looping Do While ok, mas não consigo interromper o looping com "Exit Do".

    Código:

    Public Function GerarRelatorio()
    Dim rs As DAO.Recordset

    Set rs = CurrentDb.OpenRecordset("Analise", dbOpenTable)

    Do While Not rs.EOF
    Me.Organismo.SetFocus

    DoCmd.RunCommand acCmdRecordsGoToNext
    If rs.EOF = True Then
    Exit Do
    DoCmd.OpenReport "Relatório de Infecções", acViewPreview, , , acDialog
    End If
    Loop
    End Function
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3877
    Registrado : 04/04/2010

    [Resolvido]Sair do Looping Do While com Sucesso Empty Re: [Resolvido]Sair do Looping Do While com Sucesso

    Mensagem  Avelino Sampaio 16/4/2015, 23:17

    Cadê o rs.moveNext ?


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso irrestrito ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]Sair do Looping Do While com Sucesso Empty Sair do Looping Do While com Sucesso

    Mensagem  good guy 17/4/2015, 00:41

    Olá Avelino,

    Obrigado por responder. Já tentei de tudo. Com certeza, fiz isto como prática normal desse jeito abaixo, mas também não deu certo. Ao final do Looping entra assim mesmo no looping infinito. É muito importante pra mim encerrar o looping porque no evento Exit(Ao Sair) do campo Organismo, tenho uma outra função que realiza o cálculo do número de infecções.

    Avelino, na questão do DoCmd.RunCommandacCmdRecordsGoToNext em vez de rs.MoveNext é que com este só retornará o total de registros e
    percorrerá todos os registros na tabela e o outro percorrerá todos os registros pelo formulário onde em determinado campo (Organismo) ao entrar o cursor acionará uma outra função que é o alvo pretendido.

    Código:

    Public Function GerarRelatorio()
    Dim rs As DAO.Recordset

    Set rs = CurrentDb.OpenRecordset("Analise", dbOpenTable)

    rs.MoveFirst
    Do While Not rs.EOF
    Me.Organismo.SetFocus

    If rs.EOF = True Then      'Ou If rs.EOF = True Then Exit Do (Sem End If)

    DoCmd.OpenReport "Relatório de Infecções", acViewPreview, , , acDialog
    End If
    Loop
    rs.MoveNext

    End Function


    Última edição por good guy em 27/4/2016, 21:00, editado 1 vez(es)
    good guy
    good guy
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

    [Resolvido]Sair do Looping Do While com Sucesso Empty Sair do Looping Do While com Sucesso

    Mensagem  good guy 17/4/2015, 15:27

    Consegui.

    Bobeira minha, estava bem na minha cara.

    Código:

    Do While Not rs.EOF
    Me.Organismo.SetFocus
    If Not IsNull(Organismo) Then
    DoCmd.RunCommand acCmdRecordsGoToNext
    Else
    Exit Do
    End If
    Loop

    Conteúdo patrocinado


    [Resolvido]Sair do Looping Do While com Sucesso Empty Re: [Resolvido]Sair do Looping Do While com Sucesso

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 10:42