[Resolvido]Critério em consulta com Variavel Global em Relatórios (Public)

Function UtilizaVariavelGLobal() As String
   UtilizaVariavelGLobal = VariavelGLobal
End Function

SELECT * FROM TblClientes WHERE Nome = UtilizaVariavelGLobal();

Option Compare Database

Global Ativo_Selecionado As String
Global Modelo As String
Global Numero_OS As String
Global Tipo_Serv As String
Global Sigla As String
Global Dt_Inicio As String

Public Function CarregaVariaveisGLobais()
'carrega as variaveis
  Ativo_Selecionado = Forms!SeuFormulario.LisBx_Equip.Column(2)
  Modelo = Forms!SeuFormulario.LisBx_Equip.Column(15)
  Numero_OS = Forms!SeuFormulario.LisBx_Equip.Column(4)
  Tipo_Serv = Forms!SeuFormulario.LisBx_Equip.Column(3)
  Sigla = Forms!SeuFormulario.LisBx_Equip.Column(16)
  Dt_Inicio = Forms!SeuFormulario.LisBx_Equip.Column(6)
End Function


Public Function UtilizaVariavelGlobal(ParametroGlobal)
'utiliza as variaveis no criterio dos campos na consulta
'Exemplo: UtilizaVariavelGlobal('Modelo')
Select Case ParametroGlobal
   Case "Ativo_Selecionado"
              UtilizaVariavelGlobal = Ativo_Selecionado
   Case "Modelo"
              UtilizaVariavelGlobal = Modelo
   Case "Numero_OS"
              UtilizaVariavelGlobal = Numero_OS
   Case "Tipo_Serv"
              UtilizaVariavelGlobal = Tipo_Serv
   Case "Sigla"
              UtilizaVariavelGlobal = Sigla
   Case "Dt_Inicio"
       UtilizaVariavelGlobal = Ativo_Selecionado
End Select
End Function

Private Sub Btn_GerarRelatorio_Click()
'chama a função de carregar as variaveis
  Call CarregaVariaveisGLobais
End Sub

UtilizaVariavelGlobal('Modelo')

Código:

Global VPop As Integer

Public Function FNCop()

FNCop = VPop

End Function

Código:

Global VPop As Integer

Public Function FNCop() As Integer

FNCop = VPop

End Function