[Resolvido]Ajuda com Listbox em form de Cadastro

Bom dia senhores,

Venho desta vez pedir ajuda para resolver um probleminha que tá me encucando e sei que sozinho não vou conseguir...

É o seguinte, Havia aberto um Tópico pedindo ajuda para ao clicar no botão do menu, abrir um form dentro de uma caixa de texto ou outro controle... O Silvio me enviou a função: "Me.frmMENU.SourceObject = "frmUsuários" e deu certo...

Agora é o seguinte, quando clico no botão cadastro que abre o frmCadatros dentro da caixa de texto, consigo editar normalmente.

Só que no form coloquei uma caixa de texto com uma listbox para pesquisar o nome do cliente por exemplo...

Quando exibo o form individualmente, na listbox, seleciono o nome do cliente e ao clicar abre o registro até aí tudo bem. O Problema está quando vou abrir pelo Menu...

Clico no botão frmCadastro, abre o form dentro da caixa... Mais ao clicar na listbox da o erro: Erro em tempo de execução '2491'

dizendo que a tabela não está associada. Só que está associada e quando abro individualmente, não apresenta o erro...

Da erro nessa linha que inseri para filtrar na Caixa de Listagem:

Private Sub CaixaDeListagem_Click()
Me!localizartexto = Null
DoCmd.ApplyFilter , "ID_Emitente = " & Me!CaixaDeListagem.Column(0) & ""
Me!localizartexto.SetFocus

End Sub


Por favor me ajudem...

Desde já agradeço a todos,

Ola;

Quando você abre um form dentro de outro, passa a ser subform, logo não pode invocar o Me!

Tem de referenciar por exemplo (não sei se é o caso);

Forms!SeuForm!SeuSubForm.Form!CaixaDeListagem

Se preferir anexar parte do seu banco, estamos ae.

Bom dia JPaulo,

Criei um form com botões no topo e um quadro objetos chamado frmMENU. frmMENU não é um form, é um quadro objeto para exibir o form indicado dentro dele... Logo abaixo dos MENUS, para quando clicar, abrir o form indicado.

Private Sub cmdCadastro_Click()
"Me.frmMENU.SourceObject = "frmCadastro"
End Sub

Quando abro o frmMenus e clico no botão cadastros, abre o form dentro da caixa de objetos frmMENU. Porém, ao clicar na Listbox para escolher o item e abrir o Registro do mesmo no próprio form. da o erro em tempo de execução '2491'

Não tenho como enviar agora parte do BD porque estou viajando...

Essa função estou usando no Ao clicar da Caixa de listagem para abrir o registro no frmCadastro dentro do Quadro objeto frmMENU...

Private Sub CaixaDeListagem_Click()
Me!localizartexto = Null
DoCmd.ApplyFilter , "ID_Emitente = " & Me!CaixaDeListagem.Column(0) & ""
Me!localizartexto.SetFocus

End Sub

Exemplo: clico no item na listbox e da o erro em tempo de execução '2491', aí ao dar OK já mostra no VBA a função:

Private Sub CaixaDeListagem_Click()
Me!localizartexto = Null
DoCmd.ApplyFilter , "ID_Emitente = " & Me!CaixaDeListagem.Column(0) & "" 'COM ESSA LINHA EM AMARELO'
Me!localizartexto.SetFocus

End Sub


Abraço e obrigado desde já...

Ok, agora entendi direito;

É um unbound control, por isso o DoCmd.ApplyFilter não funciona;

Só funciona assim;

Código:

Private Sub CaixaDeListagem_Click()
    Me!localizartexto = Null
    Me.Filter = "[ID_Emitente] = " & Me!CaixaDeListagem.Column(0) & ""
    Me.FilterOn = True
    Me!localizartexto.SetFocus
End Sub


Teste e retorne.

Meu amigo, falar com quem sabe é bom... Só tem fera nesse fórum...

JPaulo, Vieira, Nobezinho, Silvio, Criquio entre outros... Deus continue abençoando vocês..

Obrigado JPaulo, deu certo...

Deus continue te abençoando, você e sua família.

Abraço,

Fico feliz.

Obrigado pelo retorno o forum agradece.

Neste Natal ajude...