[Resolvido]Propagar dados da combobox para campos do formulário

Olá pessoal, não sei se posso postar aqui. Mas de qualquer forma vou postar aqui e se for o caso me corrijam e eu posto no devido lugar.
O problema é o seguinte:
Eu tenho um problema semelhante ao do colega aí, mas sem solução até o momento.
Tenho um banco onde possuo um formulário "empreendedores", onde ao preencher a matricula os demais campos preencham automaticamente. Fiz apenas um exemplo.
To usando DLookup mas sem sucesso.
Algém pode dá uma força?

Desde já agradeço.

Arquivo pra download:
pointcerto.net/arquivos/banco.rar

Seja bem vindo ao fórum!

Na aba Dados, propriedade origem da linha de sua combobox matricula acrescente os demais campos: nome, sexo, escola e professor.

No evento após atualizar da sua combobox matricula coloque:

With matricula
Me!matricula = .Column(0)
Me!nome = .Column(1)
Me!sexo = .Column(2)
Me!escola = .Column(3)
Me!professor = .Column(4)
End With

Beleza, funcionou para aparecer o nome, porém os demais campos não carregaram, permanecem em branco.

Você adicionou os campos na combo? A do exemplo tem apenas um campo. Você precisa adicionar os outros campos nessa combo.

Sim adicionei todos os campos na combobox.

Veja arquivo anexo.

pointcerto.net/arquivos/print.jpg

Não é só no vba que você deve adicionar esses campos, mas tambem na própria combo. Nas propriedade dela, aba Dados, linha Origem... Lá deve ter algo assim: SELECT NomeDatabela.Campo1 FROM NomeDaTabela. Você precisa adicionar os outros campos aí:

SELECT NomeDatabela.Campo1, NomeDatabela.Campo2, NomeDatabela.Campo3 FROM NomeDaTabela

E tambem, na aba Formato, linha Quantidade de colunas, colocar o número de colunas correto.

Ok. faltava apenas definir o número de colunas. Até aí tudo bem...
Mas agora esbarro em outro problema.
Meu form "inscricoes" tem campos de pesquisa em outra tabelas (combobox).
Ao preencher meu form empreendedores ele preenche, mas com os valores de referência apenas, ou seja, apenas números ao invés do valor real do campo.

Teria como ele preencher com os valores reais?

Ver imagem anexo.

pointcerto.net/arquivos/problema2.jpg

Veja se está colocando as colunas certas. Olhe na sua combo, na linha aonde aparecem os campos e veja no vba se está tudo certo. Colunas 0, 1, 2, 3...

Vá na origem de dados de cada combo do form inscricao e delete o campo da numeração automática que esteja e deixe apenas o campo do dado que deseja que fique armazenado. Exemplo:

codigo | professor


Apague o campo codigo e deixe apenas professor.


experimente.

Pior amigo, não consigo ver nada anormal.
No evento após atualizar a minha combox.

Private Sub matricula_AfterUpdate()
With matricula
Me!matricula = .Column(0)
Me!nome = .Column(1)
Me!sexo = .Column(2)
Me!escola = .Column(3)
Me!professor = .Column(4)
End With
End Sub

Os nomes dos campos em ambos formulários são os mesmos.
Na teoria ta tudo certo. Só que a estrutura do meu formulário tá assim:

Tenho 2 formulários: inscricoes e empreendedores.
Tenho 6 tabelas: escola, professor, sexo, inscricoes, empreendedores e possuiempreendimento.

As tabelas escola, professor e sexo; alimentam 3 combobox no form inscrições.

A tabela possuiempreendimento alimenta 1 combobox no form empreendedores.

Assim, como estou tentando auto completar informações do campo "matrícula" que está no form inscricoes, não estou conseguindo efetuar isto nos campos escola, professor e sexo; pois já são combobox com referência em outras tabelas.

Me mostrando como resultado apenas a linha de cada um (número da linha).

Não sei se ficou mais claro.


Alguma idéia?


Agradeço.

Beleza Dilson,

Fiz o que me pediu, na verdade já havia experimentado antes do seu post e os dados somem no form inscricoes da combox sexo e nas combox professor e escola da um erro. Enquanto no form empreendedores permanece na mesma .

Confira...

pointcerto.net/arquivos/problema3.jpg

Veja bem, o índice se refere à posição do campo na sua combo. Se a sua combo está carregando 5 campos ou colunas, ou seja, os campos Código, Nome, Sobrenome, Endereço e Telefone, você tem os índices de 0 a 4, mas você irá utilizar os índices de 1 a 4:

Me.txtNome = Me.NomeDaCBO. Column(1)
Me.txtSobrenome = Me.NomeDaCBO. Column(2)
Me.txtEndereço = Me.NomeDaCBO.Column(3)
Me.txtTelefone = Me.NomeDaCBO.Column(4)

Tava reparando a sua base aqui e você terá que ir na tabela inscrição e mudar o tipo de dado de número para texto desses campos que são alimentados pela combobox, pois é isso que tá causando o aparecimento dos numerais e não dos nomes corretos. Para isso terá que desfazer o relacionamento entre as tabelas inscrição e empreendedores e realizar a mudança. Em seguida é só realizar o que passei na mensagem anterior a esta.

Quanto desaparecer o dado da combo; basta ir na propriedade espaçamento entre colunas e apagar uma e ajustar lá.

Se não conseguir, a noite faço essa implementação. Agora sem chance. OK

Testei inserindo um campo do form inscrições que não é dependente de combox. Rodou perfeitamente.
conclusão:

O problema no evento só é se o campo a ser atualizado for uma combox, se for um campo diferente funciona.

Acredito que devo inserir alguma coisa em meu evento, mas ainda não achei nada para expressar os valores que quero.

Olá criquio,

Fiz a modificação sugerida, mas dá erro no VB.

Vou testar sua sugestão Dilson e posto em seguida.

Abraços,

Quanto a implementação que talvez faça, desde já agradeço.

Fala Dilson, só não entendi isto aqui...
"Quanto desaparecer o dado da combo; basta ir na propriedade espaçamento entre colunas e apagar uma e ajustar lá."
O resto foi feito.

O erro continua...

Abraços.

Quando você vai na QBE da origem da linha da sua combobox e retira a primeira coluna, esta primeira coluna normalmente é chave primária e está na propriedade largura das colunas como zero, assim:

0cm;2,54cm

O que orientei, foi que fosse na propriedade largura das colunas e ajustasse isso, apagando o 0cm, deixando apenas o valor 54cm.

Eu fiz as implementações no seu banco, veja:

Download

Fala Dilson, era isso mesmo que estava faltando, a largura da coluna.

Vi sua modificação e a reproduzi aqui no meu banco, tudo correu certinho.

Agradeço a todos que colaboraram.

Abraços

Victor Figueira