[Resolvido]Select usando um campo do Formulário

Pessoal,

Tenho em um formulário uma Caixa de listagem onde a origem da Linha é um select:

deixei com o nome de Lista242 por enquanto.

SELECT [cadastro_economico].[id] FROM cadastro_economico WHERE ((([cadastro_economico].[cpfcgc])=FORMS!frm_entrada!cpfcgc));

Colquei no evento ao receber o foco o seguinte:
Me.Lista242.Requery

Este campo me retorna um valor por exemplo: 60

Estou tentando usar o resultado deste campo para um outro select onde uma comparação usa este resultado:

SELECT a.codigo, a.desc_abrev FROM item_lista_servico AS a, ce_cnae AS b
WHERE (((Trim(a.codigo))=Trim(b.item_lista_servico))
And ((b.cadastro_economico)=FORM!frm_entrada.Lista242));

Não está dando certo, parece que o valor que aparece como resultado no primeiro select, não fica gravado para ser
usado posteriormente, é isto?

Como posso proceder?

teste

SELECT a.codigo, a.desc_abrev
FROM item_lista_servico AS a, ce_cnae AS b
WHERE a.codigo=b.item_lista_servico
And b.cadastro_economico=Forms!frm_entrada.Lista242

JPaulo,

Obrigado pela resposta, principalmente pela rapidez.
Mas o select ainda continua não trazendo nada.

Se coloco: o valor que está aparecendo no campo Lista242 fixo como no exemplo abaixo, ao
executar o sql em modo Consulta ele traz o resultado esperado, mas se coloco a comparação usando o campo do fomulário, como vc indicou, não traz nada.

Interessante que consigo ver o valor que está no campo Lista242 no formulário.
Será que tenho que guardar este valor em alguma tabela para fazer esta comparação?

SELECT a.codigo, a.desc_abrev
FROM item_lista_servico AS a, ce_cnae AS b
WHERE a.codigo=b.item_lista_servico
And b.cadastro_economico=60;

Claudio amigão, a imaginação vai até onde nós quisermos.

Veja uma maneira simples de dar a volta ao seu problema.

Insira uma caixa de texto no seu form, em modo oculto e dê-lhe o nome de txtFiltra

No evento VBA ao depois de atualizar na sua lista;

Private Sub Lista242_AfterUpdate()
Me.txtFiltra.Value = Me.Lista242.Value
Me.txtFiltra.Requery
End Sub

No SQL

SELECT a.codigo, a.desc_abrev
FROM item_lista_servico AS a, ce_cnae AS b
WHERE a.codigo = b.item_lista_servico
And b.cadastro_economico=Forms!frm_entrada.txtFiltra

JPaulo,
Mais uma vez muito obrigado pela ajuda.
Deu certinho.
Solução simples e resolveu meu problema.
Vlw...

Valew pelo retorno amigão o forum agradece.