[Resolvido]Autualizar TxtBox atraves de COmBox

Tenho uma ComBox em um formulario

Campos da Tabela
StrNome
StrEndereco
StrCidade
StrBairro
StrUF
RGPCF

a instrucão SQL:

ELECT DISTINCTROW tbl_Clientes.strNome, tbl_Clientes.strEndereco, tbl_Clientes.strBairro, tbl_Clientes.strCidade, tbl_Clientes.strUF, tbl_Clientes.[RG/CPF] FROM tbl_Clientes;


Quando clicon e altero a comBox teria que atualizar os outros campos nÃo acoplados no form..

Mas não atualiza


Tentei usar o seguite codigo
Encontrar o registro que coincide com o controle.
Dim rs As Object

Set rs = Me.Recordset.Clone
rs.FindFirst "[Matricula] = " & Str(Nz(Me![Cliente], 1))
If Not rs.EOF Then Me.Bookmark = rs.Bookmark

End Sub

Se alguem puder me ajudar.. fico grato.

Obrigado

Bom dia !

Se são campos não acopolados, então você tem de mandar o valor lá para dentro deles.

No evento VBA depois de atualizar da sua combox;

Private Sub SuaCombox_AfterUpdate()
Me.Campo1.Value = Me.SuaCombox.Column(0)
Me.Campo2.Value = Me.SuaCombox.Column(1)
Me.Campo3.Value = Me.SuaCombox.Column(2)
Me.Campo4.Value = Me.SuaCombox.Column(3)
Me.Requery
End Sub

Antes eu tinha usado o condigo que me enviou e não havia dado certo,
mas acontecete que eu havia retirado o campo ID (Chave) da pesquisa... e não havia renomeado a numeração das colunas

Agora fiz isso e deu certo
Obrigado pela Ajuda João Paulo..

Fique com Deus..

Em Tempo: Tenho outro problemina no forum que estou muito necessitado e não consegui resolver ainda, se puder me ajudar, ficarei imensamente grato..

O Tópico:
Preencher campo em tabela atraves de um campo txt em Form

Obrigado pelo retorno o forum agradece.

Pode fazer lá no outro tópico um Up, conforme está nas regras.

Vixi, boa noite, estou com um problema parecido, sendo que só atualiza até segunda coluna as demais não... Já alterei a ordem das colunas, mas só atualiza ate a segunda (Column(1))
* As colunas tem os mesmos nomes porque a tabela de Cadastro tem a mesma estrutura da tabela de Consulta Registros.

Será um banco de dados com "ficha técnica", engloba composição=material+serviços=Valor e variáveis do orçamento, já uso um bd mas preciso migrar para esse, o bd esta se tornando um monstro rsrs....


Já utlizei:

Origem da Linha:
SELECT DISTINCTROW cnsDadosConsulta.clnDescricao, cnsDadosConsulta.clnItem, cnsDadosConsulta.clnUnidade, cnsDadosConsulta.clnQuantidade, cnsDadosConsulta.clnFornecedor, cnsDadosConsulta.clnCodFornecedor, cnsDadosConsulta.clnNorma, cnsDadosConsulta.clnDataModificacao FROM cnsDadosConsulta;

Código da Caixa de Combinação:
Private Sub clnDescricao_AfterUpdate()
Me.clnDescricao.Value = Me.clnDescricao.Column(0)
Me.clnItem.Value = Me.clnDescricao.Column(1)
Me.clnUnidade.Value = Me.clnDescricao.Column(2)
Me.clnQuantidade.Value = Me.clnDescricao.Column(3)
Me.clnFornecedor.Value = Me.clnDescricao.Column(4)
Me.clnCodFornecedor.Value = Me.clnDescricao.Column(5)
Me.clnNorma.Value = Me.clnDescricao.Column(6)
Me.clnDataModificacao.Value = Me.clnDescricao.Column(7)
Me.Requery
End Sub

--------------------------------------------- ou --------------------------------------------

Origem da Linha:
cnsDadosDeConsulta

Código da Caixa de Combinação:
Private Sub clnDescricao_AfterUpDate()
clnDescricao = clnDescricao.Column(0)
clnItem = clnDescricao.Column(1)
clnUnidade = clnDescricao.Column(2)
clnQuantidade = clnDescricao.Column(3)
clnFornecedor = clnDescricao.Column(4)
clnCodFornecedor = clnDescricao.Column(5)
clnNorma = clnDescricao.Column(6)
clnDataModificacao = clnDescricao.Column(7)
End Sub

Já fiz e não adiantou:
Já relacionei os campos de descrição_cadastro x descrição_Origem dos dados
Já adicionei a chave de registro no formulário, nesse caso a chave foi add e a descrição também, os demais campos não, continuou atualizando apenas 2 registros.
Limpei os registros add novos registros
Já fiz outro banco de dados com menos colunas para testar

Link Para o BD:
http://www.lyne.com.br/vinicius/Composicao.rar



Terminando eu posto para downloads

Desde já agradeço.
viniciusmvbc

ps.: Esse é o início do bd... mas preciso resolver essa quest]ao para as demais seguirem...

Boa noite camarada...
desse jeito que esta no seu bd ñao dara certo..

o codigo que utilizou e para campos acoplados... ou seja.. que nao tem vinculos com tabelas..

e olha so o seu for faz referencia a tbl Dados Preencher...
e a sua com box esta com a linha de origem em uma consulta da outra tabela

e tambem a com box que faz o chamamento tem que estar como acoplada...

o seu exemplo esta um pouco confuso..


veja so...
me explique

Qual e a tabela principal?
a teabela relacionada e aquela que guara varios registros para um da tgabela principal

ex. suponha que na tabela principal voce tenha o campo CERAL..

e na secundaria teria varias linhas para cereal, como Arroz, milho etc...

me passa esses dados para que eu possa refazer isso para voce...

e quanto ao uso de duas tabelas.. a principal fica vinculada ao form e a secundaria fica em um sub-form

assim quando selecionar um registro na combox(tabela principal) o sub form mostraria os registros na tabela secundaria..

aguardo

saudacoes

Bem companheiro..
Vale frisar que... segundo seu exemplo enviado...

A ComBox le registros na TblDadosConsulta
O Form e vinculado a TblDadosPreencher..

entao segundo essa filosofia... quando voce clica na Combox e seleciona um registro (este na TblDadosConsulta)
ele é adicionado no form para ser gravado como novo registro na TblDadospreencher..

Todos os campos estao atualizando agora...

Qual era o problema?

Veja na ComBox em propriedades...Formato .. Numero de colunas (tem que ter o numero de colunas iguais ao que pretende atualizar) no seu modelo estava como 2 colunas apenas, por isso so atualizava as 2..

No campo Largura de colunas: devem ter apenas as que aparecerao na ComBox.. No caso 2, a da chave primaria com valor 0cm
e da descricao...

segue ai o modelo atualizado

veja se atende a seu proposito

Boa noite e bom trabalho

Caro vinicius, creio que a sua duvida foi sanada com o exemplo que te enviei, pois se o problema era a atualizacao dos outros campos atraves da comBox, o exemplo que te enviei resolve isso....

Ademais o novo assunto que colocou agora nada tem haver com o anterior, que o topico faz referencia....

Nova Duvida.... Novo topico, facilitando assim a consulta dos demais usuarios do forum...

Pesquise no forum sobre o recurso autocompletar, creio que tem exemplos sobre o tema. Nao econtrando abra novo topico com sua duvida..

UMA DICA: Coloque seu exempla ja formatado com os dados reais que ira trabalhar, isso facilita a compreensao que quem vai ajudar... o seu exemplo era de aterros etc,... agora ja é sobre massas... assim fica um pouco confuso...

Entao formate seu exemplo o mais proximo da realidade que necessita, isso facilita a resolucao do problema..


OBS.. se eu entendi mude as caixa texto por comBox, e utilize o mesmo criterio da comBox de pesquisa la em cima...

ai qualquer dos campos que voce clicar mudaria os demais... so teria que inverter as ordem das colunas...

Ou seja se clicar na ComBox 1, atualiza a 2,3,4,5,6

Se clicar na Combox 2, atualiza a 1,3,4,5,6
Se clicar na Combox 3, atualiza a 1,2,4,5,6 e assim sucessivamente....

Saudacoes

Brigado Harysohn já até me explicou rsrs....
Com relação ao exemplo, porque ambos são o mesmo caso, coposição técnica, alguns chamam de ficha técnica, se reparar agente sempre esbarra com questão de muita repetição dos ítens que compõem...
Assim que terminar eu posto, porque acredito que tem aplicão em diversos segmentos... É uma maneira exata de se chegar ao custo final do produto...
Estou estudando vb pelo site da MS, muito bom, espero em breve poder colaborar...

Brigadão harysohn