Bom dia mestres!
Pesquisei e não encontrei solução, então peço ajuda.
Estou usando o código abaixo para quando o campo "ClienteProcesso" "receber foco" retornar o valor que está inserido no campo "cliente" num mesmo formulário de cadastro de processos.
O Problema é que o campo "cliente" é uma caixa de combinação com a listagem de todos os clientes cadastrados na tabela clientes e assim está no formato número e o campo "ClienteProcesso" no formato texto.
Então quando "ClienteProcesso" recebe o foco ele me devolve o número que correspondente ao "cliente", mas eu preciso que ele retorne o nome que está provavelmente em outra coluna ...
Creio que tenho de acrescentar no código provavelmente algo como: Column(1) para ele retornar o nome, ou terei de mudar tudo por não serem ambos texto.
CÓDIGO:
Private Sub t2_GotFocus()
Dim strCliente As String 'variável para guardar o nome do cliente
strCliente = Me!Cliente.Value 'salvando o nome do cliente em uma variável
Me!ClienteProcesso.Value = strCliente 'voltando com o nome do cliente para o campo
End Sub
Alguma ideia ou outra solução?
Muito grato desde já.
Pesquisei e não encontrei solução, então peço ajuda.
Estou usando o código abaixo para quando o campo "ClienteProcesso" "receber foco" retornar o valor que está inserido no campo "cliente" num mesmo formulário de cadastro de processos.
O Problema é que o campo "cliente" é uma caixa de combinação com a listagem de todos os clientes cadastrados na tabela clientes e assim está no formato número e o campo "ClienteProcesso" no formato texto.
Então quando "ClienteProcesso" recebe o foco ele me devolve o número que correspondente ao "cliente", mas eu preciso que ele retorne o nome que está provavelmente em outra coluna ...
Creio que tenho de acrescentar no código provavelmente algo como: Column(1) para ele retornar o nome, ou terei de mudar tudo por não serem ambos texto.
CÓDIGO:
Private Sub t2_GotFocus()
Dim strCliente As String 'variável para guardar o nome do cliente
strCliente = Me!Cliente.Value 'salvando o nome do cliente em uma variável
Me!ClienteProcesso.Value = strCliente 'voltando com o nome do cliente para o campo
End Sub
Alguma ideia ou outra solução?
Muito grato desde já.