[Resolvido]Botão para Efetuar uma Consulta e Exibir Valor Numa Caixa Texto

Boa tarde pessoal,

Mais uma vez recorrendo ao forum e desde já agradeço.

Preciso de algo que me parece simples mas de tanto experimentar opções, fiquei perdido...

Tenho uma tabela VENDAS com os campos ID, FILIAL, DAV ;

Tenho uma consulta CHECAR_ID

tenho um formulário UTILITARIOS com os campos FILIAL, DAV, RESULTADO. Os campos FILIAL e DAV deste formulário estão linkados a consulta CHECAR_ID e neste formulário um botão OK. Eu preciso que ao informar um valor nos campos FILIAL e DAV e clicar no botão OK, o valor do campo ID seja exibido no campo RESULTADO deste formulário, apenas para consulta deste valor. Tentei fazer por subformulário mas achei muito complexo pra uma tarefa que acredito ser simples.

mais uma vez agradeço a atenção.

Olá lepedesa,

É simples. Crie uma variável do tipo Integer ou Long que receba o valor do campo ID e teste coloque assim:

Exemplo:

Public Sub cmdOK_Click ()

Dim sValor As Long

sValor = Dlast("ID","SuaTabela","SeuCampo = Forms!NomedoForm!CampoX")

txtResultado = sValor   'Sua caixa de texto

End Sub

Olá Leandro

Você diz:



Você quer encontrar qual ID tem os campos FILIAL E DAV?

Experimente isso no evento ao clicar o botão OK:

Me.Resultado = Dlookup("ID","tblVENDAS","[FILIAL] = " & Me!FILIAL & " AND " & "[DAV] = " & Me.DAV)


Bom, isso é para retornar apenas um registro na caixa de texto RESULTADO do teu formulário.
Caso sejam mais registros, dai sim vai precisar de uma consulta.

Abraços

Noob

Good guy: Enquanto digitava o post, você respondeu ! 

Esse Forum é excelente mesmo. Muito mas muito obrigado mesmo. As 2 sugestões foram aplicadas com sucesso. O que mais gostei foram as soluções que apresentaram e que contribuiu com mais um aprendizado.

Muito obrigado.

Leandro

Olá Leandro,

O fórum todo agradece,

Passe lá no Facebook e dê uma curtida na minha página e compartilhe com seus amigos.

https://www.facebook.com/EduardoMachado

Leandro

Valeu pelo retorno

Boa sorte


Noob