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]atualizar sub form

    avatar
    Altair_147
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 126
    Registrado : 29/10/2010

    [Resolvido]atualizar sub form Empty atualizar sub form

    Mensagem  Altair_147 16/2/2011, 13:35

    Bom dia,

    Tenho um form que atualiza a cada 2 segundos, existe um subform de uma consulta com critérios baseados nesse form. quando os critérios estão no form a consulta não pega os resultados baseados naquele critério, mas se eu fechar o form e abrir novamente ai ele já pega os valores que eu queria, ou seja, no Timer o sub_form não atualiza, e se eu fechar e abrir o form novamente ai ela já vem atualizada. Preciso de uma rotina que a cada 2 segundos ela atualiza junto com o form.

    Obrigado
    Pablo Neruda
    Pablo Neruda
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 344
    Registrado : 17/09/2010

    [Resolvido]atualizar sub form Empty Re: [Resolvido]atualizar sub form

    Mensagem  Pablo Neruda 16/2/2011, 13:41

    Amigão,

    Supondo que o seu subform, seja resultante dos parametros do form tente isso:

    No evento timer do seu formulário coloque:

    X.Requery

    Onde X é o nome do subform (formulário filho) dentro de seu formulário

    Vê ai, o nos fala...

    Sds,


    Pablo

    avatar
    Altair_147
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 126
    Registrado : 29/10/2010

    [Resolvido]atualizar sub form Empty Re: [Resolvido]atualizar sub form

    Mensagem  Altair_147 16/2/2011, 13:48

    Sim realmente os parametros ele pega do form pai.
    Tentei da forma que vc me disse, mas ainda o problema não foi resolvido.

    Obrigado
    Pablo Neruda
    Pablo Neruda
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 344
    Registrado : 17/09/2010

    [Resolvido]atualizar sub form Empty Re: [Resolvido]atualizar sub form

    Mensagem  Pablo Neruda 16/2/2011, 13:52

    Tem como disponibilizar este formulario para avaliação?
    avatar
    Altair_147
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 126
    Registrado : 29/10/2010

    [Resolvido]atualizar sub form Empty Re: [Resolvido]atualizar sub form

    Mensagem  Altair_147 17/2/2011, 12:17

    Olha fiz da seguinte forma, usei um exemplo do grande Jpaulo. Achei melhor tirar os critérios da consulta e trazer os dados através de um comando SQL, e inserindo os critérios na própria SQL, assim dispensando o uso do subform, sem falar que assim "creio eu" que evita erros e tudo fica mais enxuto. Segue abaixo a rotina que criei:


    On Error Resume Next
    'By JPaulo ® Maximo Access
    Dim db As DAO.Database
    Dim rs As DAO.Recordset
    Dim strSQL As String



    strSQL = "SELECT * FROM verifica_animal where id_animal = " & id_animal & " and codigo_pista = " & id_pista & "


    Set db = CurrentDb
    Set rs = db.OpenRecordset(strSQL)
    If Not rs.BOF Then


    Me.codigo_animal = rs("codigo_animal")
    Me.nome_animal = rs("nome")
    Me.raca_animal = rs("raça")
    Me.status = rs("status")
    Me.libera_votacao = rs("libera_votacao")
    Me.entrada = rs("entrada")
    Me.ordem = rs("ordem")
    Me.verifica_voto = rs("verifica_votos")
    Me.particularidade = rs("particularidade")


    Else
    Me.codigo_animal = ""
    Me.nome_animal = ""
    Me.raca_animal = ""
    Me.status = ""
    Me.libera_votacao = ""
    Me.entrada = ""
    Me.ordem = ""
    Me.verifica_voto = ""
    Me.particularidade = ""



    Set rs = Nothing

    rs.Close
    Set rs = Nothing
    db.Close
    Set db = Nothing
    End If


    Obrigado pela ajuda...
    Até a próxima

    Conteúdo patrocinado


    [Resolvido]atualizar sub form Empty Re: [Resolvido]atualizar sub form

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 18:22