[Resolvido]Caixa de Listagem Atualizar automaticamente

Prezados,

Eu tenho um formulario que possui uma caixa de listagem "FORM1" "CAIXA1"

quando eu seleciono um registro da lista abre um segundo formulario c os dados selecionados. "FORM2"

Digamos q eu excluo aquele registro via segundo formulario.

Ao fechar o segundo formulario, o registro ainda continua aparecendo na caixa de listagem do primeiro, e o que acabo tendo de fazer é clicar com o mouse em cima do primeiro formulario e apertar f5 pra atualizar.

Será q não tem um jeito (lá nas propriedades da caixa de listagem por ex) de acrescentar algum comando que faça essa atualização do primeiro formulario ficar automatica?

deve ter um comando pra ao fechar o segundo form atualizar o primeiro, mas nao sei como escrever em linguagem vba...

pensei em colocar pra atualizar por tempo mas acho que é possivel sobrecarregar...

Peço opinião ou sugestão,

Obrigado.

Boa tarde.

Coloque após o código que usa para excluir:

Forms!FORM1!CAIXA1.Requery

Retorne

Obrigado,

Seu código funciona.

Uma pena que para meu azar eu não considerei que meu sistema era mais complexo, pq o formulario que exclui FORM2 é compartilhado, a caixa de listagem se repete em vários formularios que abrem para cada perfil, por exemplo, no perfil de admin, no perfil de colaborador e no perfil de estagiario, todos visualizam essa mesma caixa e os nomes do formulario de cada um é diferente, só que o formulario2 é um só para todos. Assim quando coloco o código no excluir ou no fechar eu não tenho como saber qual dos 3 formularios está aberto, tentei colocar o código para todos, mas se um deles não estiver aberto dá erro.

tipo:
Forms!FADM!CAIXA1.Requery
Forms!FCOL!CAIXA1.Requery
Forms!FESTAG!CAIXA1.Requery

Só que provavelmente só um deles vai estar aberto, como o acess não acha os outros pra atualizar ele abre o vba pra depurar o código. Assim, a sua solução funciona, mas não pude aproveitar, teria de criar um formulario para cada perfil, mas isso é inviável por outros motivos.

Para isso amigo, coloque alguns Ifs que verificará se o Formulario esta aberto ou nao...


If CurrentProject.AllForms("Formulário1").IsLoaded = True Then
Forms!Formulário1.Requery

If CurrentProject.AllForms("Formulário2").IsLoaded = True Then
Forms!Formulário2.Requery

If CurrentProject.AllForms("Formulário3").IsLoaded = True Then
Forms!Formulário3.Requery

End If
end if
End if


Algo Parecido com isso!

Verifica se formulario1, 2 e 3, ta aberto, se tiver ele atualiza...

Obrigado aos dois amigos.

Em nome de todos os iniciantes só tenho a agradecer o empenho de todos no fórum.


Segui a ideia e testei, precisei colocar a indicação da caixa de listagem, só com o nome do formulario não funcionou. Precisei por o "Else" entre os ifs.

Segue abaixo o código que funcionou de boa, mudei o botão de "excluir" pelo "fechar", pq acho mais abrangente:

Private Sub btnfechar_Click()
If CurrentProject.AllForms("FALERTAADM").IsLoaded = True Then
Forms!FALERTAADM!pclista.Requery
Else

If CurrentProject.AllForms("FALERTAADV").IsLoaded = True Then
Forms!FALERTAADV!pclista.Requery
Else

If CurrentProject.AllForms("FALERTAADV2").IsLoaded = True Then
Forms!FALERTAADV2!pclista.Requery
Else

If CurrentProject.AllForms("FALERTACOL").IsLoaded = True Then
Forms!FALERTACOL!pclista.Requery
Else

If CurrentProject.AllForms("FALERTACOL2").IsLoaded = True Then
Forms!FALERTACOL2!pclista.Requery

End If
End If
End If
End If
End If

DoCmd.Close

End Sub

Muito obrigado a todos!!!

Se resolveu, resolvido está.
O fórum agradece o retorno.