[Resolvido]Preencher camposde formulário utilizando " SQL Select"

Olá a todos,

Seria possivel preencher automaticamente os campos de um form utilizando instruções SQL?

Tipo assim, tenho um form que possui um textbox para o numero da nota fiscal, ao preencher esse campo gostaria que automaticamente fosem preenchidos outros campos do form por exemplo o nome do vendedor...

SELECT est3a.Data
FROM cli INNER JOIN (vend INNER JOIN (est3a INNER JOIN est3b ON est3a.controle = est3b.LkEst3A) ON vend.Controle = est3a.LkVendedor) ON cli.Controle = est3a.LkCliente
HAVING (((est3a.Nota)=[]));

Como colocar isto no código VBA???

Obrigado a todos.

Pesquise aqui no fórum. Ainda hoje o Mestre JPaulo colocou uma série de exemplos em SQL, no Repositório de códigos VBA e SQL.

Muito obrigado pela atenção,

Muito interessantes as dicas do JPaulo, no entanto o que quero mesmo é fazer com que o select que demonstrei no inicio preencha automaticamente o campo de um form, no "after update" de um outro campo.

KayneBr, Bom dia!

Achei inconsistente a ação de digitar o número da nota fiscal e automaticamente preencher o nome do vendedor, pois para que isso aconteça, você teria que cadastrar previamente em uma tabela essa nota e associá-la a um vendedor, para a posterior proceder lançamentos na tabela que pretende o auto-preenchimento.

Se é isso que pretende, será perfeitamente possível fazer.

Diga-nos

Amigo

Teste assim:

Substituir o ID pela sua chave primária e colocar o nome dos seus campos. Mas atente no que o Dilson lhe referiu:

Dim db As DAO.Database
Dim rs As DAO.Recordset
Dim strSQL As String


MEUCAMPO.SetFocus
If MEUCAMPO.Value > 0 Then
strSQL = "SELECT * FROM MINHATABELA WHERE ID = " & MEUCAMPO.Value

Set db = CurrentDb
Set rs = db.OpenRecordset(strSQL)
If Not rs.BOF Then
Me.ID = rs("ID")
Me.meucampo1 = rs("Origemmeucampo1")
Me.meucampo2= rs("Origemmeucampo2")
Me.meucampo3 = rs("Origemmeucampo3")
Me.meucampo4 = rs("Origemmeucampo4")
Me.meucampo5 = rs("Origemmeucampo5")
Me.meucampo6 = rs("Origemmeucampo6")
End If
rs.Close
Set rs = Nothing
db.Close
Set db = Nothing
End If

Amigos,
Primeiramente, muito obrigado mesmo pela atenção.

Dilson, as tabelas já existem com as informações, lá no select que eu demonstro não éapenas um exemplo e sim tabelas reais do caso...Caso esse alias bastante complicado pois são tabelas vinculadas de um outro programa, com uma estrutura super complicada que divide as informações que deveriam existir em uma mesma tabela em varias tabelas diferentes....por exemplo a tabela de vendas divide-se em duas tabelas...uma em que está o numero da nota fiscal e o valor e uma outra em que está o nome do cliente e os itens vendidos.... e eu estou querendo fazer uma tabela para juntar determinadas informações em um unico lugar...no entanto não seria toda a tabela e sim conforme a necessidade ir selecionando a partir do numero da nota fiscal... dai o metódo de preencher o form no momento em que eu digito o numero da nota, ai cada campo seria preenchido usando o recordset.

rsrsrs...sou péssimo com as palavras, espero ter conseguido me expressar melhor.

Vieirasoft, Es muito prestativo amigo tentarei adaptar o codigo que passou às minhas demandas, logo postarei o resultado.

Novamente obrigado.

Pode ainda utilizar a função DLookup

Faça as suas consultas desejadas.

Aplique a função DLookup no evento depois de atualizar desse campo.

Private Sub SeuCampoNoForm_AfterUpdate()
Me.SeuOutroCampoNoForm.Value = DLookup("Campo1", "SuaConsulta", "Campo2 = " & Me.SeuCampoNoForm)
Me.SeuOutroCampoNoForm.Requery
End Sub

Show de bola pessoal.

consegui matar o problema utilizando o "dlookup" sugerido pelo JPaulo e ainda preenchi mais um campo usando "Dsum", usando o mesmo principio.

Vocês são demais.

Obrigado a todos.

Obrigado pelo retorno o forum agradece.

Galera, boa tarde.

Sei que esse topico está parado algum tempo hehe, mais tenho um form com uns 25 campos e gostaria que ao selecionar um nome no Listbox ele atualizar os campos do form. Mais não gostaria de vincular os campos na tbaela.
Queria que fosse tudo via sql, vou dividir o projeto em Front End e Back End e acho que assim fica melhor. oque vcs acham?

Abçs