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]Recordset entre datas de campos não vinculados

    annissima
    annissima
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 146
    Registrado : 24/10/2017

    [Resolvido]Recordset entre datas de campos não vinculados Empty [Resolvido]Recordset entre datas de campos não vinculados

    Mensagem  annissima em 16/5/2020, 00:42

    Olá, gostaria de saber se é possível ter um recordset de datas, da seguinte forma:

    Tenho dois campos com datas, o campo A1 e uma data anterior, A0 no campo A0. Nenhum desses campos é vinculado.

    Tenho um botão que roda um recordsetA A com a data A1 no campo A1. Funciona OK.

    É possível que ao rodar o meu recordsetA, ele crie um recordset temporário (recordsetB), com todas as datas entre A0 e A1, e execute os eventos em todas as datas, antes de mudar o recordsetA pro próximo registro?
    Aí no registro seguinte ele refaça o recordsetB e assim por diante?

    Não preciso armazenar essas datas em local nenhum.
    Preciso apenas fazer pesquisas dessa data (A1) em vários registros, e seria mais fácil pesquisar as datas, por exemplo, A1, A2, A3... antes de mudar pro próximo registro.
    Finformática
    Finformática
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 602
    Registrado : 23/03/2010

    [Resolvido]Recordset entre datas de campos não vinculados Empty Re: [Resolvido]Recordset entre datas de campos não vinculados

    Mensagem  Finformática em 15/6/2020, 22:52

    Boa Noite,

    Posta esse banco para verificar melhor. Se entendi direito, não seria possível um Do While dentro do outro? Se é que entendi.

    Abraços
    annissima
    annissima
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 146
    Registrado : 24/10/2017

    [Resolvido]Recordset entre datas de campos não vinculados Empty Re: [Resolvido]Recordset entre datas de campos não vinculados

    Mensagem  annissima em 22/6/2020, 20:11

    Prezados,

    Consegui resolver colocando uma função:

    Código:
    Private Function atualizaData()

    Dim SelData As String
    Dim consultaEndereco As String


         
        'indica a pesquisa na data 01
       
        Dim db As DAO.Database
        Dim rs As DAO.Recordset
        Set db = CurrentDb
                 
            Set rs = db.OpenRecordset("cst_procpush")      'abre a consulta previamente criada
       
                If rs.RecordCount = 0 Then                  'se não encontra registos avisa e sai
                    Exit Function
                End If

        rs.MoveFirst                                        'coloca-se no 1º registro

        Do Until rs.EOF                                    'percorre todos os registros
       
      ' If Me.dt01 > Me.DataStatus Then
        Me.txt_data = Me.DataStatus
       
       
            'navega pra tela do esaj
            Me.WebBrowser1.Visible = True
                consultaEndereco = txtLinkEsaj
            WebBrowser1.Navigate (consultaEndereco)

        'aguarda carregar a página
        Do
            DoEvents
        Loop Until WebBrowser1.ReadyState = READYSTATE_COMPLETE
               
              Do Until CStr(txt_data) = Me.dt01
              Me.txt_data = DateAdd("d", 1, txt_data)
              SelData = CStr(txt_data)
              Call PaginaWebContem(SelData)                'faz a busca na data
              Loop
           
            DoEvents                                        'manda executar eventos
            rs.Edit                                        'edita registo
            rs.Update                                      'atualiza registo
            rs.MoveNext                                    'move para proximo registro
       
       
        If Not rs.EOF Then DoCmd.GoToRecord acForm, "processosPush", acNext
               
        Loop
           
        rs.Close: Set rs = Nothing                          'fecha recordeset e limpa da memoria
        db.Close: Set db = Nothing                          'fecha base dados e limpa da memoria



     
    End Function
    annissima
    annissima
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Feminino
    Localização : Brasil
    Mensagens : 146
    Registrado : 24/10/2017

    [Resolvido]Recordset entre datas de campos não vinculados Empty Re: [Resolvido]Recordset entre datas de campos não vinculados

    Mensagem  annissima em 22/6/2020, 20:12

    Vou dar o tópico por resolvido!

      Data/hora atual: 1/12/2020, 14:02