[Resolvido]Campo de Formulário

Bom dia!
Parabéns a todos pelo excelente trabalho no fórum.

Vamos lá.

Como posso chamar uma variável através de outra para preencher um campo em um formulário?!?!?!

Ex: no meu formulário existe um campo chamado A011

Abro uma tabela (POSTO_TRABALHO_MATRIZ) que tem o campo POSTO_TRABALHO preenchido com o dado A011

Conforme falei, tenho em um formulário um campo chamado A011. Como faço para preencher este campo (A011) com o nome “JOSE MARIA”, chamando o campo POSTO_TRABALHO da tabela POSTO_TRABALHO_MATRIZ que contém o dado A011.

Usei a função EVAL mas dá erro

Não sei se fui claro , eis o código abaixo:

Desde já agradeço a ajuda....

Private Sub Form_Open(Cancel As Integer)
Dim sCdPessoa, sNmPessoa, Db As Database, sTabela As Recordset, sVariavel
Set Db = CurrentDb()

Set sTabela = Db.OpenRecordset("POSTO_TRABALHO_MATRIZ")

Do While Not sTabela.EOF
sVariavel = sTabela("POSTO_TRABALHO")
sCdPessoa = DLookup("[CD_PESSOA]", "POSTO_TRABALHO_BANCADA_2003_03", "[Posto_Trabalho] = '" & sVariavel & "'")

If IsNull(sCdPessoa) Then

Else
sNmPessoa = DLookup("[Nome]", "Funcionarios", "[Cd_Pessoa] = " & sCdPessoa)

Eval(sTabela("POSTO_TRABALHO")) = sNmPessoa 'erro aqui

End If
sTabela.MoveNext

Loop

End Sub

Meu caro amigo, o Dlookup nao é muito bom dependendo to tamanho da sua tabela pode dar problemas e o eval é uma função muito generica, ja tentou troca-la por db.Execute?
Como você deve ter certeza do registro na variavel "sNmPessoa" basta fazer a consulta Sql assim:

varialvel = db.execute("select seu_campo from POSTO_TRABALHO_MATRIZ where [Cd_Pessoa] = " & sNmPessoa)

se puder mandar uma parte do mdb pra analizarmos fica mais facil de entender.

Meu caro LNX1010, muito obrigado pela atenção.

Deixa eu explicar melhor, visto que a minha postagem tá confusa.

Tenho uma variável chamada A011
Dim A011

Tenho outra chamada vIdent, então
Dim vIdent

vIdent = “A011” não a variável

quero preencher a variável A011 com o nome “JOSÉ MARIA” chamando a variável vIdent

no Clipper era simples (bons tempos) tínhamos

&vIdent = “JOSÉ MARIA”

que é o mesmo que

A011=”JOSE MARIA”

Acredito que no ACCESS ou VB tenha algum modo de fazê-lo, quebrei a cabeça mas não encontrei nada parecido...

Valeu pela ajuda.

AAAAaaaaA tá,
Como voce tinha escrito "Ex: no meu formulário existe um campo chamado A011" pensei que fosse um campo do form, se entendi voce quer que a variavel "vIdent" possua o mesmo valor da variavel "A011", se for isso basta igualar uma a outra

vIdent = A011

caso a A011 seja global isso vai servir para todos os forms que ela for solicitada

Ainda não me fiz compreender.

O campo A011 está em um formulário e ao abri-lo o campo deve ser preenchido com “JOSÉ MARIA”, mas da seguinte forma:

Dim sVar as string

sVar = “A011” não é o campo do form

quero chamar sVar e preencher o campo A011 no form com “JOSÉ MARIA”.

Seria muito simples preencher da forma abaixo:

A011 = “JOSÉ MARIA”

mas quero preencher através da variável sVar, como falei, no Clipper era muito simples

&sVar = “JOSÉ MARIA”

ao abrir o form o campo A011 era preenchido com JOSÉ MARIA.

Agora no ACCESS ainda não identifiquei como fazê-lo e tenho certeza que existe uma forma de proceder.

Um grande abraço e obrigado novamente pela ajuda.

Carandiru

Boa tarde, Carandiru, e bem-vindo ao fórum
Não percebi bem a questão, mas pelo que percebi, coloque
A011 = sVar
Nomeie os controlos de forma normalizada.

Olá Alexandre,

Neste caso, A011 = sVar, atribuirá "A011" à variável A011, mas quero que a variável A011 seja preenchida com "JOSÉ MARIA".

Dim sVar, A011
sVar = "A011"

Quero que A011, através de sVar, receba "JOSÉ MARIA"
Eval(sVar) = "JOSE MARIA"

Tentei a função Eval mas ocorre erro.

Obrigado pela atenção.

Abraços,

Tira as aspas
sVar = A011

Com elas o vba entende q a011 é uma string sem ele entende que é uma variavel

Boa noite,
Parece-me algo confusa a sua questão, mas "quero que a variável A011 seja preenchida com "JOSÉ MARIA"."
Coloque
A011 ="JOSÉ MARIA"

Alexandre e lnx1010, eureka!!!!!

E isso que eu queria:

Private Sub Form_Open(Cancel As Integer)
Dim sVar
sVar = "A011"
Forms!Fm_TESTE!(sVar) = "JOSE MARIA"
End Sub

AO ABRIR O FORM FM_TESTE O CAMPO A011 e preenchido com "JOSE MARIA"

Desculpe-me pela falta de clareza no meu post.

Feras, obrigado pela atenção e depois tem mais dúvidas

Saudações alvinegras.....
_____________________________________________________________________
O PATO QUE É MALA, NASCE COM OS DEDOS COLADOS PARA NÃO USAR ALIANÇA.

Resolvido...