FUNÇÃO EM CONSULTA QUE TEM QUE RETORNAR É NEGADO NULO

BOA NOITE AMIGOS!

ESTOU COM DIFICULDADE EM UMA FUNÇÃO DENTRO DE UMA CONSULTA QUE TRAZ O RESULTADO DE UMA INFORMAÇÃO DE UM FORMULÁRIO.

EXEMPLO:

FORMULÁRIO X COM COMBO LIST

ÁREA
INFORMAÇÕES
SÃO PAULO
RIO DE JANEIRO
BELO HORIZONTE
TODAS

GERENTES
CICLANO
BELTRANO
JUCA
TODOS

ARMAZENO ESSAS INFORMAÇÕES FINAIS EM
VARIAVEIS GLOBAIS

GLOBAL area as string
GLOBAL gerente as string

Crio funções

Function Vararea as string()

if area = "TODAS" then
vararea="not null" => preciso que a function se torne critério em uma consulta(tentei tb *, como (*)
else
vararea=area
end if

No caso de informação diferente de TODAS, a consulta efetua a informação corretamente, no caso de TODAS, ela não traz nada por que não entende o comando.

Alguém tem uma solução?

Valeu galera!

Opa, meu camarada boa noite...

Faça da seguinte forma...

Você deve criar um novo campo na sua consulta mais ou menos da seguinte forma:

Código:

Verifica: SeImed([Area]=VarArea() ou VarArea="TODAS";"OK";"Negar")

e no Critério desse novo Campo você deixa apenas como

Código:

"OK"

A sua Function você altera apenas para uma linha de código

Código:

Function VarArea () as String
      VarArea=area
End Function

Espero Ter ajudado!!!