[Resolvido]Apresentar Campo do Banco de Dados numa TextBox via SQL

Boa tarde, pessoal.

Darei um exemplo simples para facilitar a ajuda!

Tenho a tabela "Cadastro" com dois campos: "Codigo" e "Nome".
Tenho um formulário "Consulta" NÃO associado à tabela, com dois textBox também NÃO associados: "ConsultaCodigo" e "ConsultaNome" e um botão "Consultar".

Quero que o usuário digite o código no textBox "ConsultaCodigo" e, ao pressionar o botão "Consultar", o nome seja apresentado no textBox "ConsultaNome".

Tentei o código abaixo no Consultar_Click(), sem sucesso.
Me.ConsultaNome.text = DoCmd.RunSql ("SELECT Nome FROM Cadastro WHERE Codigo = Me.ConsultaCodigo")

Preciso manter a estrutura do formulário desta forma, sem associar os textBox com a tabela.
Desde já, obrigado.

Edson Sulina Ruschel

Boa tarde,

No clique do botão coloque:

Código:

If not isnull(me.consultacodigo) = true then
    dim rs as recordset

    set rs = currentdb.openrecordset("select * from cadastro where codigo = " & me.consultacodigo & "")

    if rs.recodcount > 0 then
        consultanome = rs!nome
    else
        msgbox "Codigo não encontrado.", vbCritical, "Erro"
        consultacodigo = null
    end if
else
    msgbox "Informe um código para consulta.", vbcritical, "erro"
    consultacodigo.setfocus
end if

Abraço.

Perfeito!

Muito obrigado.

Bom dia,

Agradecemos o retorno.

Vale ressaltar que como era apenas um campo, o mais simples seria usar o DLookup(), porém se você o extrapolar para vários campos, o desempenho cairá drásticamente, principalmente se estiver trabalhando com backend em rede. isto porque a cada vez que ele é chamado, ele vai à tabela, causando um trafego grande de dados e consequentemente a lentidão do processo. Obviamente dá pra adaptar o DLookup() para se conseguir este resultado, mas o mais usual é usar o recordset como eu fiz, que se adapta bem a qualquer situação.

Abraço.