[Resolvido]String de combobox não é registrada com DLookup

Utilizo o código abaixo para carregar uma caixa de texto com o e-mail do cliente. Visualizo o valor da CmbOrgSol no Formulário como String, contudo quando o registro do valor é efetuado na tabela, este é um numeral correspondente ao Código. Como resolver o problema? Quero registrar a String, não o numeral. Muito grato a todos!!

Código:


Sub Pesq()
Dim varX As Variant
Dim x

x = Me.CmbOrgSol.Value

varX = DLookup("[EMail]", "OrgEmail", "[Codigo] = " & Nz(x, 0))

Me.TxtEmail = varX

End Sub



Ola;

Porque as combobox`s começam pela coluna zero (0) e provavelmente o email estará na segunda coluna que é a Nº 1 ou nas seguintes, terá de ver;

Faça o teste assim;

Sub Pesq()
Dim varX As Variant
Dim x

x = Me.CmbOrgSol.Column(1)

varX = DLookup("[EMail]", "OrgEmail", "[Codigo] = " & Nz(x, 0))

Me.TxtEmail = varX

End Sub

J. Paulo, tentei sua sugestão e recebi o seguinte:
"Erro em tempo de execução '3075': erro de sintaxe (operador faltando) na expressão de consulta '[Codigo]=CENAGA/IA - Centro Acadêmico de Gestão Ambiental'."

A rotina faz o seguinte:

A combo CmbOrgSol captura o campo OrgaoSolicitante, coluna 1 da tabela OrgEmail;
O campo Codigo é chave-primária, coluna 0 da tabela OrgEmail;
A textbox TxtEmail recebe o valor de varX que é relativo ao campo EMail, coluna 2 da tabela OrgEmail.

Contudo, apesar de ver a string correspondente à linha do campo OrgaoSolicitante na CmbOrgSol do formulário, quando ocorre o salvamento na tabela SOLICITACOES o índice relativo que é salvo.

Como resolvo?

Muito agradecido!

Se o codigo for texto tem de estar entre aspas simples,

varX = DLookup("[EMail]", "OrgEmail", "[Codigo] =' " & x & "'"

J. Paulo, desta maneira varX = DLookup("[EMail]", "OrgEmail", "[Codigo] ='" & [x] & "'"), x assume o valor da String do campo OrgaoSolicitante. Contudo, varX não recebe o valor da String do campo EMail.
A resposta do sistema é "erro em tempo de execução '3464': tipo de dado incompatível na expressão de critério."

J.Paulo, de fato funciona! Eu havia esquecido de mudar a propriedade "Origem da Linha" da Combo. E em varX = DLookup("[EMail]", "OrgEmail", "[Codigo] =' " & x & "'" somente faltou fechar o parentese. Muito grato!!!

Obrigado pelo retorno o forum agradece.

J. Paulo, não observei o que ocorreu na planilha de destino porque estava testando de outro lugar. Dei o assunto como resolvido, contudo o problema continua ocorrendo. Na planilha de destino é registrado o índice, não a String. Por isso estou reabrindo a questão.

Você quer anexar aqui parte do seu banco ?

Aí está parte do BD http://www.4shared.com/rar/5iTlpzdy/New.html

Encontrei o erro! O erro estava nas propriedades da combo cmbOrgSol. Na aba Formato, a propriedade Número de colunas precisa estar com o valor 2 e na aba Dados, a propriedade coluna acoplada também precisa estar com o valor 2. Muito agradecido a todos!