[Resolvido]Ao digitar um campo no formulário automaticamente preenche outro campo relacionado

Boa Tarde!
Tenho um formulário com um campo onde acoplei uma caixa de combinação que me lista todos os empregados, não presisando de digitação, só clicar e escolher, no campo seguinte está definido para receber a Matrícula do empregado e no seguinte o Setor.
Gostaria de que quando eu escolhesse o Empregado, desta lista, automaticamente seria preenchido os outros dois campos. Utilizei o comando DLoop mas não deu certo. Vocês podem me ajudar? Obrigado.

Isso é facil dependendo de como está a relação entre as suas tabelas. Se postar o banco fica melhor de resolver.

Boa Tarde Amigo

No evento afterupdate da sua combo

Me.nomedocampo=Me.nomecombo.Column(1)
Me.nomedocampo=Me.nomecombo.Column(2)
Me.nomedocampo=Me.nomecombo.Column(2)

Tantos quantos precisar. Ou seja, ao seleccionar o empregado, vai meter o registo correspondente nos campos seleccionados. A coluna 0 não é usada pois fica para a chave primária

Gilberlânio, meu banco de dados é muito grande tem mais de 30.000 registros tentei compilar ainda ficou grande para postar aqui.Vou tentar fazer de outra forma.

Vieirasoft, acho que deveria ter avisado que a minha Combo busca dados de uma tabela de Empregados(tblEmpregados) e que os outros campos do Form busca da tabela de Pedidos(tblPedido). Tentei de todas maneiras e deu erro.

Pensei que seria fácil digitar um certo dado em um campo e em outro aparecer seu correspondente.
Por exemplo: Campo "Nome do Cliente" quando digitar aparecerá automaticamente no campo seguinte"Matrícula do Empregado" sua matrícula.

Vocês ainda podem me ajudar? Sou novo no access, e estou apanhando muito.

Obrigado.

Chico.

Vieira e Gilberlanio,

anexei meu BD para vocês darem uma olhada, é o meu primeiro BD.
No Formulário frmPedido gostaria de que quando eu listasse um nome do campo Empregado Solicitante, que está em uma combo, automaticamente preenchesse o campo Matrícula, que é a matrícula do empregado. A mesma coisa também pata o campo Conta e Cliente.
Se não for pedir muito vocês podem dar uma mãozinha nos relacionamentos das tabelas.
Obrigado.

Amigão

Aquilo não estava a funcionar porque você estava a trocar nomes aos campos

No form Pedidos:

Private Sub Combinando_AfterUpdate()
Me.Matricula = Me.Combinando.Column(2)
End Sub

Experimente agora

Vieira,

muito bom funcionou legal.

No caso do campo "Conta", que não é uma combo, quando eu digitar o número da conta, qual o evento faria preencher automaticamente o campo "Cliente" no mesmo formulário Pedido(frmPedido)?

Obs: Este é um dos melhores Forum sobre Access que encontrei. Vocês são super prestativos, eu só tenho que agradecer, obrigado.

Podes usar o mesmo evento da combo, o "Após atualizar" que funciona tranquilo. Nesse caso, o efeito se dará após você digitar e pressionar a tecla Enter ou sair do campo de outra forma qualquer.

Vieira,

Opss...fiz algo que não estou entendendo.
A sua dica deu certo, mas quando coloquei mais um campo para preencher automaticamente:


Me.matr = Me.Combinando.Column(2)
Me.Setor = Me.Combinando.Column(3)

preenche automaticamente só o setor de imediato o campo matr(matricula) só preenche quando passo por ele com TAB ou clico com o mouse, o que poderá ser, já andei mexendo na tabulação mas não deu certo.

O que pode estar ocorrendo?

Criquio,

obrigado pela dica, mas veja, o campo "OP" "Conta" e "Cliente" serve para preencher a Tabela de Pedidos "tblPedido" só que a origem é da Tabela Cliente PF ("tblClientesPF") se for pessoa física(CPF) e da Tabela Cliente PJ ("tblClientesPJ")se for pessoa jurídica(CNPJ).

o que você acha que devo fazer?

Obrigado desde já.

Para incluir mais campos você necessita ir à consulta da combox e acrescentar os campos a mais.

Por exemplo, temos

ID | Nome | Sector

Column(0) Column(1) Column(2)

Entendeu?

Vieira,

eu fiz assim em Propriedades da COMBO item Dados subitem Origem da Linha:

SELECT tblEmpregados.CÓD, tblEmpregados.nomempreg, tblEmpregados.matr, tblEmpregados.setor FROM tblEmpregados ORDER BY tblEmpregados.nomempreg DESC;

é isso?

Só que quando eu escolho um nome da lista na combo preenche automaticamente o o campo SETOR que vem depois do campo Matrícula. O campo Matrícula preenche automatico só quando passo por ele com TAB ou clicando com o mouse, o que não precisa com o campo Setor, que já está preenchido.

Consegui explicar?

No AfterUpdate está assim:

Me.matr = Me.Combinando.Column(2)
Me.Setor = Me.Combinando.Column(3)

Então é porque existe troca de coluna. Provavelmente você terá o sector antes da matrícula, então é trocar a ordem, experimente.

Vieira,

eu tentei de tudo e ainda não dá certo...verifiquei o que você falou...não deu certo acho até que devo estar cometendo um erro que não consigo ver...eu postei aí meu BD se você tiver um tempo para ver...agradeço.

Amigo

Não postou a BD?

Vieira,

anexei o arquivo na mensagem anterior no dia 08/03:
"Anexando arquivo BD
Ghunnar em 8/3/2011, 22:30"

Amigão:

Veja agora

http://dl.dropbox.com/u/8157744/PROSSIGO%20Este%20esta%20valendo.zip

Vieira,

PERFEITO..........é isso aí.

Muito obrigado mesmo.

Você acredita que não consegui achar o que eu estava fazendo de errado, o que eu verifiquei não consegui ver onde estava a diferença desde quando você me disse os comandos e agora.

Mas estou satisfeito.

Vocês são muito camaradas. Dou por encerrado este tópico.

SE inclui mais uma coluna na consulta, neste caso (Setor), logo o nº de colunas na list passa de 2 para 3. Só isso. Nas propriedades da lista é passar de 2 para 3.

Abração

estou usando o MSAccess 2016 e preciso fazer a mesma coisa que o Ghunnar porem em macros é possível ?

Macro??? Não pode alterar de dois para três as colunas ou para o número que precisar? Depois na List altera também!
Tamb~em pode usar SQL para alterar, contudo não vejo necessidade para tal.