(Resolvido) Problema com RecordSource em Form

[Mr. Big]

Olá pessoal!

Criei um Form chamado EXEMPLO no Access para exibir alguns campos de uma tabela, e criei no mesmo Form um campo para o usuário poder fazer uma busca. Basicamente o usuário digita o que ele quer buscar em um Textbox, e quando ele clica no botão "Buscar" eu executo:

Form_EXEMPLO.RecordSource = "select * from TABELA1 where CAMPO = " & CONTEUDO_TEXTBOX

Funciona perfeitamente, porém se o usuário tenta buscar por uma string qualquer que não existe na tabela, todos os itens do Form desaparece (campos, botões, tudo).

Aparentemente eu só posso executar o RecordSource se a Query tiver algum resultado, senão acontece esse Bug. Mas não sei como fazer isso... poderiam me ajudar?

Valeu!

[Alexandre Neves]

Tente assim:

Dim Rst as DAO.Recordset

set rst=currentdb.openrecordset("select * from TABELA1 where CAMPO = " & CONTEUDO_TEXTBOX)

if rst.recordcount>0 then Form_EXEMPLO.RecordSource = "select * from TABELA1 where CAMPO = " & CONTEUDO_TEXTBOX

set rst=nothing

Editado Novembro 10, 2009 por Alexandre Neves

[Mr. Big]

Tente assim:

Dim Rst as DAO.Recordset

set rst=currentdb.openrecordset("select * from TABELA1 where CAMPO = " & CONTEUDO_TEXTBOX)

if rst.recordcount>0 then Form_EXEMPLO.RecordSource = "select * from TABELA1 where CAMPO = " & CONTEUDO_TEXTBOX

set rst=nothing

Funcionou perfeitamente, é exatamente o que eu buscava. Muito obrigado!