[Resolvido]Autocompletar a parti de Caixa de Comb.

Prezados,

Possuo uma tabela "Clientes", uma "Países" e a "Principal"

Na tabela "Clientes" tenho as colunas:
Código / Cliente / País / Contato

Na tabela países:
Código / País

Na tabela "Principal"
Além de outras informações tenho as colunas:
Ordem / Cliente / País / Lead-time


Tenho o formulário "Principal" onde ao selecionar na caixa de combinação o CLIENTE, preciso que automaticamente o campo "País" seja preenchido.
Para isso utilizei o código abaixo:

Private Sub combCustomer_AfterUpdate()

Dim Pais As Integer
Pais = Me.combCustomer.Column(5)
Me.txtCountry = Pais

End Sub

O problema é que o que é retornado é o Código do País.
Acredito que precisaria de uma função para pegar esse código e buscar na Tabela Países o nome do país.

Olá, seja bem vindo ao forum. Nem é preciso variável para isso, só precisa pegar a coluna certa:

Me.txtCountry = Me.combCustomer.Column(5)

No lugar do 5, verifique qual a coluna que guarda o que quer capturar.

criquio,

Esse é o problema, a coluna 5 da Tabela Customer é o País, que justamente está relacionado à tabela País. Por isso retorna o código e não a descrição.

(Não sei se fui claro)

Não é a coluna da tabela. É a coluna da combo. Para isso, você precisa ter essa coluna da tabela na sua combo. Se quando você criou a combo, pegou três campos da tabela, você tem três colunas, numeradas de 0 a 2.

A combo busca da tabela "Clientes", que tem a coluna "País", mas essa coluna "País" puxa os países de uma outra tabela chamada Países, logo é apenas vinculado o Código de cada país, apesar de mostrar a descrição.

O que quero é que no formulário apareça a descrição ao invés do Código.

Amigão, não importa de onde vem o dado, o que importa é o dado que aparece na coluna. Se você fizer a referência correta à coluna da combo, esse dado deve ser mostrado no campo. Vamos supor que quando você criou a combo, você pegou as seguintes colunas:

"Código", "Nome", "DataNascimento", "Endereço", "País".

Temos 5 colunas na combo, numeradas de 0 a 4:

0 - Código
1 - Nome
2 - DataNascimento
3 - Endereço
4 - País

Se você quer que o país apareça no campo texto, fica assim:

Me.NomeDoCampoTexto = Me.NomeDaCombo.Column(4)

Isso porque o país está na coluna de número 4.

criquio,

Creio que não estou conseguindo explicar direito o que está acontecendo. Será que poderia lhe enviar a DB por algum meio para que pudesse dar uma olhada?

Não estou conseguindo fazer o upload aqui.

Resolvi com o DLookup.

Obrigado!