[Resolvido]atualizar sub form

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

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

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

Tem como disponibilizar este formulario para avaliação?

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