Prezados,
tenho uma consulta onde dependendo do resultado de uma função que coloco no campo "critério" vai retornar um ou todos os valores da consulta. A função é:
Function Unidade_Gerente() As String
On Error Resume Next
If IsNull(DLookup("[Chave]", "08_Tab_Usuarios", "[Chave] like '" & fOSUserName & "'")) Then 'verifica se o usuário está cadastrado
Unidade_Gerente = DLookup("[Cod_Unidade]", "01_Cons_Gerentes", "[Chave] like '" & fOSUserName & "'") 'se tiver cadastrado, retornar o número da unidade dele
Else
Unidade_Gerente = "*" 'se não estiver cadastrado retorna todos os valores da consulta
End If
End Function
O problema é: caso as condições não sejam atendidas, ela deve retornar todos os registros da consulta. Mas isso não acontece. Que valor a função deve retornar para que a consulta mostra todos os valores?
já tentei mas nenhuma das alternativas abaixo deu certo:
Unidade_Gerente = "*"
Unidade_Gerente = "Like *"
Unidade_Gerente = "Like '*'"
Unidade_Gerente = Null
Unidade_Gerente = Empty
tenho uma consulta onde dependendo do resultado de uma função que coloco no campo "critério" vai retornar um ou todos os valores da consulta. A função é:
Function Unidade_Gerente() As String
On Error Resume Next
If IsNull(DLookup("[Chave]", "08_Tab_Usuarios", "[Chave] like '" & fOSUserName & "'")) Then 'verifica se o usuário está cadastrado
Unidade_Gerente = DLookup("[Cod_Unidade]", "01_Cons_Gerentes", "[Chave] like '" & fOSUserName & "'") 'se tiver cadastrado, retornar o número da unidade dele
Else
Unidade_Gerente = "*" 'se não estiver cadastrado retorna todos os valores da consulta
End If
End Function
O problema é: caso as condições não sejam atendidas, ela deve retornar todos os registros da consulta. Mas isso não acontece. Que valor a função deve retornar para que a consulta mostra todos os valores?
já tentei mas nenhuma das alternativas abaixo deu certo:
Unidade_Gerente = "*"
Unidade_Gerente = "Like *"
Unidade_Gerente = "Like '*'"
Unidade_Gerente = Null
Unidade_Gerente = Empty