[Resolvido]Atualizar formulario

Boa tarde a todos, tenho um formulario que possui um listibox e nesse formulário tenho um botão que clico para fazer cadastramento, ele abre sobre o outro formulario (o da listibox), como faço para que ao cadastrar um novo cliente e clicar no botão fechar a listbox do formulário que estava aberto por baixo seja atualizada e o no nome do cliente apareça na listibox.

O código que fecha o meu formulario que está por cima é esse, o que preciso acrescentar para que atualize a listbox do outro formulário:

Private Sub Cmd_Fechar_Click()
DoCmd.Close
End Sub


Obrigada

Código:

Forms!SeuForm!SuaLista.requery

Oi boa tarde, obrigada pela dica,

tentando atualizar meu código surgiu mais uma dúvida


como faço para colocar nesse código para fechar o formulário, pois esse código é da listibox que quando clicado duas vezes ela abre outro formulario, gostaria de quando clicar as duas vezes ela fechasse o formulario mas mantivesse o código como está, pois abre um formulário filtrado.

Esse é o código


Private Sub lis_DblClick(Cancel As Integer)
On Error Resume Next
Dim stDocName As String
Dim stLinkCriteria As String


stDocName = "frm_cadastro"

DoCmd.OpenForm stDocName, , , stLinkCriteria
stLinkCriteria = "[id_cliente]=" & Me!lis.Column(0)


DoCmd.OpenForm stDocName, , , stLinkCriteria
Me.txtFiltro.SetFocus
End Sub


Obrigada d novo

Oi Amanda,

Fiz um pequeno exemplo de cadastro de clientes que faz exatamente o que vc precisa.
Veja a estrutura do código-fonte. É muito simples.

No formulário "frmListaClientes", no código fonte, existe um evento chamada Avtivate.
Neste evento coloquei um método chamado "Refresh", que serve para atualizar os componentes do formulário.

Ficou assim:

Private Sub Form_Activate()

   Me.Refresh

End Sub

Ate +

Amanda se entendi corretamente você quer fechar o formulário que contem a lista. Certo? Sendo assim, vamos aplicar o seguinte código ao dar o duplo clique no registro da lista:

Código:

Dim xChave As Integer
'Guardamos a variável
xChave = Me!lis.Column(0)
'Se o registro for vazio finalizamos o código aqui
If IsNull(xChave) Or xChave = "" Then: Exit Sub
'Fechamos o formulário
DoCmd.Close acForm, Me.Form 'Pode substituir me.form pelo nome de seu for "frmSeuForm"
'Abrimos o formulário "frm_cadastro" filtrado
DoCmd.OpenForm "frm_cadastro", , , "id_cliente=" & xChave

Vou tentar fazer, e volto para dizer se deu certo.
Obrigada

Bom dia,
As duas dicas funcionaram perfeitamente, muito obrigada