Eval()

[Guest Cantini]

Pessoal,

Alguém sabe como faço para que o objeto "access.aplicaton" reconheça uma variável ou função q criei.

Por exemplo:

Dim sc As New Access.Application

Dim a, b, c, d as integer

a = 5

b = 3

c = "a+b"

d = sc.eval( c )

Não funciona. Mensagem apresentada:

"A expressão que você inseriu possui um nome de função/variável que o Microsoft Access não pode localizar."

Algúem pode ajudar-me??

Obrigado!

[William Rodrigues]

Brother...

Não sou muito chegado em VBA cara...

Mas, pelo que vi, acho que o erro tá na seguinte linha:

c = "a+b"

O correto seria assim:

c = a+b

* Sem as 'aspas'

Pois como é a soma de duas variáveis então não colocamos aspas.

Abraços,

William Rodrigues

[Graymalkin]

Não sei se o Access possui um arquivo permanente de funções criadas (como é o caso do Word), pois se ele não tiver essa sua função só existirá dentro do arquivo MDB. De qualquer maneira, se for só o caso de usar o Eval() desse jeito, você pode usá-lo através do objeto Microsoft Script Control (opção Components do menu Project).

Abraços,

Graymalkin

[William Rodrigues]

Então brother...

Você faz o que o brother Graymalkin falou e não se esqueça que "a soma de duas variáveis então não colocamos aspas"

Abraços,

William Rodrigues

[Graymalkin]

Willian,

No caso dele leva aspas sim. A idéia é colocar um código em uma string e mandar executar como se fosse um código do programa. Imagine pode fazer algo assim (estou dando um exemplo em termos de pseudo-código):

s1 = "a=2"
s2 = "b=3"
s3 = "msgbox a+b"
Executar(s1)
Executar(s2)
Executar(s3)

Abraços,

Graymalkin

[William Rodrigues]

Beleza brother...

Entendi já...

É que não sou muito chegado em VBA por isso que eu falei aquilo....

Mas, valeu pela correção

Abraços,

William Rodrigues