[Resolvido]Carregar dados

Boa noite.
que tem valores
No projeto em anexo, estou tentando realizar uma rotina, porém não obtive sucesso.
No formulário de entrada Frm_Entrada, quando é carregado somente aparece os lançamentos maiores que zero é carregada (Campo Entrada_Produto)
Como fazer para que quando no campo num_doc, ao digitar se tiver numero do documentom, caso ele já esteja lançado ele aparece na caixa de listagem.

Obs. Vale somente para o campo de entrada seja maior que zero

Bom dia.
SuaLista.requery

Ainda nao funcionou

Muda o tipo da condição e as calls.
estou tentando mexer aqui mas está dando problema em outra situação.
Muda ela que começa a atualizar

 ' If iCmd = 0 Then Exit Sub Esse if que está impedindo de atualizar
       Set db = CurrentDb()
       Set rs = db.OpenRecordset("Tab_Entrada_Saida")
       rs.AddNew
       rs("Id_SeqLcto") = Me.Id_SeqLcto
       rs("Data_Lcto") = Me.Data_Lcto
       rs("Num_Doc") = Me.Num_Doc
       rs("Cod_Produto") = Me.Cod_Produto
       rs("Desc_Produto") = Me.Desc_Produto
       rs("Entrada_Produto") = Me.Entrada_Produto
       'rs("Saida_Produto") = Me.Saida_Produto
       rs("Fisico_Produto") = Me.Fisico_Produto
       rs("Liberado_Por") = Me.Cbo_Responsavel
       rs("Obs_Mvto") = Me.Obs_Mvto
   
    rs.Update
       rs.Close
       db.Close

Aquela condição que coloquei de atualização, ela grava os lançamentos na tabela "Tab_Entrada_Saida" e na tabela "Tab_Cadastro" ela atualiza o estoque.
O que estou tentando é fazer quando digitar o numero do documento no campo "Num_Doc", se este documento já estiver lançado ele será listado na caixa de listagem.
Em partes consegui, porém que ele desconfigura a caixa de listagem.
Tentei colocar uma condição que listará ao digitar no campo num_doc se os valores forem maior que 0

Código:


Private Sub Num_Doc_Change()
    Call AtualizaLista
End Sub

Private Sub Num_Doc_Exit(Cancel As Integer)
    Call AtualizaLista
    Me.Lst_Entradas.Enabled = True
End Sub

Public Sub AtualizaLista()
    Dim sSQL As String

    Me.Num_Doc.SetFocus

    sSQL = "SELECT * FROM csConsultaEntradaSaida WHERE Num_doc Like  '*" & Trim(Me.Num_Doc.Text) & "*'"
   
    Me.Lst_Entradas.RowSource = sSQL
    Me.Lst_Entradas.Requery

End Sub


A principio realizei uma mudança e funcionou.
Irei realizar mais alguns testes

No evento ao alterar ele vai vai atualizando a cada digito.
Me.Lst_Entradas.Requery