[Resolvido]Fechar forms com vba

Boa tarde amigos.
Peço ajuda de vcs, tenho um formulario com listbox, que ao executar o comando deveria automaticamente fechar, porem apresenta erro.
segue string.
-----------------------------------------------------------------------------------------------------------------------------
Option Compare Database

'===============================================================================================
'busca valor na listbox
'===============================================================================================
Private Sub Lista151_enter()
Forms!frmpedido!CodBarras = Me.Lista151.Column(1)
Call fechar
End Sub

Private Sub fechar()
DoCmd.Close acForm, "Consulta produtos"
End Sub


------erro apresentado

erro em tempo de execução, 2585

Esta ação não pode ser executada durante o processamento de um evento do formulário.

Ola seja bem vindo ao forum.

Não entendo o porquê de você fazer um Private Sub, e depois chamá-lo "Call" num comando logo acima.

Porque não faz direto ?

Private Sub Lista151_enter()
   Forms!frmpedido!CodBarras = Me.Lista151.Column(1)
   DoCmd.Close acForm, "Consulta produtos"
End Sub

E esse evento da Lista "enter" não é o apropriado para o que penso que você quer fazer.

Seria;

Private Sub List15_Click()
    Forms!frmpedido!CodBarras = Me.Lista151.Column(1)
    DoCmd.Close acForm, "Consulta produtos"
End Sub

Olá JPaulo,
Obrigado por me atender, desta forma também não fecha o forms, porém, me lembrei da condição (visibile=false).
Segue a condição que deu certo:


'===============================================================================================
'busca valor na listbox
'===============================================================================================
Private Sub Lista151_enter()
Forms!frmpedido!CodBarras = Me.Lista151.Column(1)
Forms![consulta produtos].Visible = False
End Sub


Deu super certo.

Desculpem
resolvido...