[Resolvido]Comando para atualizar a listbox não funciona

Boa tarde,
Sei que estou comendo mosca...

Tenho o FORM1 que é de "pesquisa", eu busco um registro através da textbox, clico e abre o FORM2 que mostra o registro correspondente,ate aqui tudo bem.
O problema é quando clico no botão fechar do FORM2 gostaria que o FORM1 fizesse um requery na listbox e desse foco no textbox da pesquisa.

tentei o seguinte:

Private Sub btfechar_Click()
If CurrentProject.AllForms("FORM1").IsLoaded = True Then
Forms!FORM1!LBPESQ.Requery
Forms!FORM1!txtpesq.SetFocus
Forms!FORM1!txtpesq.Value = ""

End If

DoCmd.Close

End Sub

ai ele nao está "fazendo o refresh" da lista e para o foco funcionar eu preciso dar um clique com o mouse em algum local dentro do formulario.
Uso o access2007
Segue exemplo do problema em anexo.

Olá,

Use a instrução abaixo:

Código:

Private Sub btfechar_Click()
   
    If CurrentProject.AllForms("FORM1").IsLoaded = True Then
        With Form_FORM1
            .txtpesq = Empty
            .LBPESQ.RowSource = "SELECT * FROM CSTAB1 ORDER BY [Nome], [Endereco];"
            .LBPESQ.Requery
        End With
    End If
   
    DoCmd.Close

End Sub

É isso.

Muito obrigado amigo!

O comando deu o refresh e o ".txtpesq = Empty" limpou, mas tem algo pra ele dar foco?
tipo:
.txtpesq = SetFocus ???

nao sei como seria a escrita:

Private Sub btfechar_Click()

If CurrentProject.AllForms("FORM1").IsLoaded = True Then
With Form_FORM1
.txtpesq = Empty
.txtpesq = SetFocus <----- algo assim? tentei e deu erro =(
.LBPESQ.RowSource = "SELECT * FROM CSTAB1 ORDER BY [Nome], [Endereco];"
.LBPESQ.Requery
End With
End If

DoCmd.Close

End Sub

.txtpesq = SetFocus <----- algo assim? tentei e deu erro =(

Assim vai gerar erro mesmo. 
Correto
.txtpesq.SetFocus

Mude a propriedade do FORM1 para Janela Restrita:



É isso

Showwwwwwwww

queria uma recomendação sua de um livro em pdf onde eu estude essas diferenças tipo a diferença das sintaxes para usar .setfocus para o = setfocus

Flavio,
Particularmente, não tenho em mente nenhum livro sobre Access, mas minha recomendação é utilizar o F1 do Access, que te enviará para pagina da própria Microsoft, onde você pode encontrar todos os assuntos relacionados à ferramenta

No caso do evento Setfocus:

https://docs.microsoft.com/pt-br/office/vba/api/access.textbox.setfocus


É isso

Sucesso nos projetos !!!