[Resolvido]Access 2010 - Erro na Combobox

Boa tarde a Todos..

Criei um combobox no meu sistema para ser preenchida com o nome de um Cliente e preencher outros campos como renasem, endereço, cidade/UF etc. Mas quando aciono a seta do lado direito par ele me mostrar os clientes aparece somente o código do cliente e não o nome, e o nome na propriedade da combo na hora de acoplar a fonte de registro esta errado já pesquisei na tabela e na consulta que eu uso para a mesma, estão todas certas mas na hora que em que aciono a seta no lado direito de novo da combo aparece a seguinte mensagem :

O campo 'Nome' esta baseado em uma expressão e não pode ser editado.

Veja se consegue converter para 2007 e nos envie.

Cumprimentos.

Bom dia Piloto.

Tentei converter o sistema para access 2007 mas não consegui, mas fiz todos os testes no mesmo e funcionou normalmente.
Segue em anexo o sistema com todos os itens que você precisa para a sua analise.

Desde ja te agradeço muito.

Falta a consulta cadastro de Clientes..


Cumprimentos.

A tabela tambem.

Boa tarde Piloto.

Segue o que você me pediu.

So percebi um erro...A consulta na origem da linha do form tem um campo que esta dando erro pois está como Nome e na tabela o correto é NomeCliente..

A SQL correta seria esta:

SELECT ControleAnaliseSementes.NumRegistro, ControleAnaliseSementes.DataEntrada, ControleAnaliseSementes.Safra, ControleAnaliseSementes.NumAmostra, ControleAnaliseSementes.NomeCliente, ControleAnaliseSementes.Renasem_Cpf_Cnpj, ControleAnaliseSementes.Completa, ControleAnaliseSementes.Pureza, ControleAnaliseSementes.Valor, ControleAnaliseSementes.Endereco, ControleAnaliseSementes.Cidade_Uf, ControleAnaliseSementes.Telefone, ControleAnaliseSementes.DtResultado, ControleAnaliseSementes.TipoSemente, ControleAnaliseSementes.Cultivar, ControleAnaliseSementes.Categoria, [DataEntrada]+365 AS DtVencimento, ControleAnaliseSementes.NumLote, ControleAnaliseSementes.Produtor, ControleAnaliseSementes.Analise, ControleAnaliseSementes.Gpureza, ControleAnaliseSementes.Pura, ControleAnaliseSementes.TZ, ControleAnaliseSementes.[VC%], ControleAnaliseSementes.NT, ControleAnaliseSementes.NP, ControleAnaliseSementes.OC, ControleAnaliseSementes.OE, ControleAnaliseSementes.SS, ControleAnaliseSementes.MI, ControleAnaliseSementes.SM, ControleAnaliseSementes.SD, ControleAnaliseSementes.Germinacao, ControleAnaliseSementes.Observacao, ControleAnaliseSementes.AnoReferencia, ControleAnaliseSementes.Rep_t, ControleAnaliseSementes.NumBoletin, ControleAnaliseSementes.Previa, ControleAnaliseSementes.Def
FROM ControleAnaliseSementes;

Quanto a combo está exibindo as informações do cilente corretamente..

O que se pretende com esta combo, pois não há eventos relacionados a mesma.


Cumprimentos.

Boa tarde Piloto.

Então.. á esta a minha dificuldade não conseguir que ela complete as outras informações referente ao cliente, já tentei de tudo mas a minha experiencia com o access ainda é pouca. Não sei como ja selecionei a consulta correta e o campo que deveria ser nomecliente não muda continua sendo Nome.

O que deseja com este form?

Que campo continua sendo nome?

Cumprimentos.

1 - Na sua tabela ControleAnaliseSementes o campo NomeCliente deve ser do tipo Número.
2 - Renomeeie a combo para CboCliente
3 - Na consulta da combo coloque o campo Codigo_Cliente como a primeira coluna da mesma, colocando o seu tamanho como 0cm
4 - No evento após atuaizar da combo:

Private Sub cboCliente_AfterUpdate()
' Encontrar o registro que coincide com o controle.
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[NomeCliente] = " & Str(Nz(Me![cboCliente], 0)) & ""
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
End Sub

Cumprimentos.

Boa tarde Piloto.

O access não esta aceitando eu mudar o campo nomeCliente para numero.
E se muda ele apaga todos os registros.

Realmente, na conversão alguns dados poderão ser perdidos... isto porque foi feito da maneira errada no início.

Veja:

Cumprimentos.

É Piloto.

Só não entendi porque ao invés dela completar só os dados do Cliente ela esta buscando o registro completo.
Esta acontecendo assim com você também.???

Por isso perguntei o que pretendia com este form...

Eu coloquei para buscar o registro...

Se voce falar o que se pretende com o form....fica mais facil

Cumprimentos.

Boa tarde Piloto.

Vamos la .... Por detalhes.

Nos campos: Boletim, Nº Registro, Amostra, Data Entrada, Data Resultado, Safra, Completa, Pureza e Valor. São campos que serão lançados manualmente.

Dados clientes
Endereço, Cidade/UF, Renasem/Cpf/Cnpj, Telefone, Produtor, Teriam que ser preenchido automaticamente a partir do momento em que o usuário selecionasse o Cliente na cboCliente.

Os outros campas abaixo são preenchidos manualmente.

Obrigado pela Ajuda

Então é um form para adicionar registros correto?

Cumprimentos.

Insira as informações necessárias na combo assim como no teu exemplo original, e adapte este código no evento após atualizar da combo:

Dim seq As String, k

seq = "[Nome] & '|' & [Contato] 
& '|' & [Telefone] & '|' & [Endereço] & '|' & 
[Nº] & '|' & [Bairro] & '|' & [Complemento]"
seq = DLookup(seq, "tabelaclientes", "Nome= '" & Me!Cliente.Column(1) & "'")
k = Split(seq, "|")
Me!Cliente = k(0)
Me!EndereçoColeta = k(3)
Me!NºColeta = k(4)
Me!BairroColeta = k(5)
Me!Contato = k(1)
Me!Telefone = k(2)
Me!Complemento = k(6)

Cumprimentos.

Piloto olha os erros e veja se fiz certo, sou fraco ainda em vba.

Segue em anexo o print da tela de códigos.

Tens que adaptar os nome dos campos conforme sua tabela...

Logo mais verei isso.

Va tentanto ai.

Cumprimentos.

Esta preenchendo dois campos... faça semelhante para os demais que necessita

Dim seq As String, k
seq = "[Nomecliente] & '|' & [Renasem_CPF_CNPJ] & '|' & [Endereco] & '|' & [Cidade_UF] & '|' & [CEP] & '|' & [Telefone]"
seq = DLookup(seq, "CadastroDeClientes", "Codigo_Cliente= " & Me!cboCliente.Column(0) & "")
k = Split(seq, "|")

Me!Endereco = k(2)
Me![Cidade/Uf] = k(3)

Obs.. Não utilize barras em nome de campos copmo Cidade/UF


Cumprimentos.

Ok Piloto..

Funcionou.

Mas esta dando um erro na hora de salvar o registro, vou fazer mais uns teste, para isso preciso dos documentos que vou aguardar o cliente me enviar, vou dar este tópico como resolvida, se precisar eu abro outro.

Muito obrigado pela paciência,
Um abraço.

Opa me perdoe

O Fórum agradece o Retorno.