[Resolvido]Transferir informações de uma tabela para Labels

Boa Noite..

Nem sei o que dizer mais.
Mas olha eu de novo.
A Partir do numero do documento que vai ser gerado la em compras, eu queria que o nome do fornecedor aparecesse em uma txt no corpo do formulário.
Ou seria melhor uma Label?
E no Cp_ValorTotal já aparecesse o valor do documento também gerado em compras.

Qual o jeito mais fácil de eu fazer isto?

Desde já agradeço.

Boa noite vc esta utilizando filtro neste formulário? este formulário e para entrada de dados ou visualização?

Vou ser sincero, os dois.
vou dar entrada de uns dados e nestas txts ou Labels, me mostrarão qual é o fornecedor e outras informações. Espero que você tenha me entendido.

testa ai amigo..

Boa Noite Matheus.

Você me mandou um exemplo para através do nome do cliente ele buscar varias informações e lançar ema txt, ótimo vou aproveitar este exemplo também.
Mas como faço para que quando eu selecionar o código do cliente ou fornecedor ele lançar a razão social dos mesmos em um rótulo especifico?

Olá amigo, o mesmo procedimento que fiz no exemplo que te envie pode ser feito para fazer o que vc quer.. Apenas use a combo para filtra através do código e exibir na txt... no aguardo..

Não funcionou, onde o campo idCliente em seu projeto modelo esta na sua tabela cliente. Agora no meu vou ter que buscar na tabela de fornecedores a razão social para parecer no formulário de pedido de compras, Ele esta me pedindo para inserir valores de parâmetro.Veja o código como ficou:

Código:

Private Sub CodFor_Compra_AfterUpdate()
DoCmd.ApplyFilter , "txtRazaoSocialCompra = " & Me!CodFor_Compra.Column(0)
End Sub



Desde já agradeço.

Boa tarde, os dados que vc quer visualizar estão somente em uma tabela?.. Se for, use o código que te enviei..

Errado: Vc esta querendo aplicar um filtro através de uma txt do formulário..
Private Sub CodFor_Compra_AfterUpdate()
DoCmd.ApplyFilter , "txtRazaoSocialCompra = " & Me!CodFor_Compra.Column(0)
End Sub


Onde esta marcado de vermelho use o campo código da sua tabela.. qualquer coisa poste uma parte de seu bd..

Matheus segue bd.

Amigo suas tabela estão vinculadas vc teria que me madar o beck_end pois não consigo ter acesso aos dados...

segue o beck_end

Boas amigo, da uma olhada ai e vê se te ajuda.. Olha não me leve a mal o comentário, mais faltou um pouco de sua atenção em seu projeto.. No modelo que te mandei primeiro so não funcionou, porque a caixa de texto que vc estava querendo que aparecesse o resultado esta com o formato numero, e nunca iria exibir um texto.. Abraço... Sucesso..

E ai funcionou?

Meu amigo esta dando este erro:
"Erro em tempo de execução '424':
O Objeto é obrigatório."

Boam dia Samuel.. Olha aqui esta funfando beleza, totalmente funcional.. Vê se consegue encontrar a linha do erro e me diga.. E só depurar

Bom dia Matheus..

É nesta linha: "Me.txtRazaoSocialCompra = .Column(1)"

Amigo Samuel, vc esta a usar o modelo que te enviei ou vc adaptou ao seu projeto, pois não vejo o erro aqui... Faz o seguinte manda seu bd que esta com o erro, e não esquece de mandar o Back_end.. No aguardo

Estou vendo outra diferença aqui, na sua fonte de controle aparece o campo nomeFantasia_for, o que na verdade deveria ser razaoSocial_for, e no meu projeto não aparece este campo.
Voce esta usando o Access 2010?

Sim access 2010..

Estes dois códigos que vieram no seu modelo..
Precisam estar no módulo?:

Código:


Private Sub Combinação22_AfterUpdate()
DoCmd.ApplyFilter , "Codigo_For = " & Me!combo1.Column(0)

End Sub

Private Sub Comando24_Click()
DoCmd.OpenForm "subfornecedores", acNormal

End Sub


Deu um resultado aqui agora, parou de dar o ero só que não aparece a Razão Social no txt.

Samuel, me mana teu bd que esta com erro, quero dar uma olha, pois estou sem intender por que funfa sem problema..

Confirma em sua tabela se os códigos que vc esta a utizar te outras informações ou só os números decorrentes de gravação automática... N tabela que vc me enviou só tem código 4 e código 5 os outros não tem registros.. testa ai..

Samuel apague este códigos pois eu esqueci de apagar, eles são decorrentes de testes.. Podem ser apagados do seu projeto..

Private Sub Combinação22_AfterUpdate()
DoCmd.ApplyFilter , "Codigo_For = " & Me!combo1.Column(0)

End Sub

Private Sub Comando24_Click()
DoCmd.OpenForm "subfornecedores", acNormal

End Sub

Ok pessoal.

Não foi como eu queria mas consegui resolver este tópico.

Criei uma Caixa de combinação que busca a razão social do fornecedor na tabela de fornecedores e criei em campo na tabela pedido compras para salvae a informação la.

Muito obrigado a todos que cooperaram.