[Resolvido]Filtrar consulta com base em variável global

Criei um módulo chamado vbVarGlobais. Nesse módulo declarei variáveis com a finalidade de guardar os dados do Usuário logado no sistema. Dentre essas variáveis está o SETOR que esse usuário está lotado.

Pergunta: Quero fazer uma consulta que filtre com base nessa variável de setor.

PS: Eu sei que posso jogar essa variável em um campo de formulário. Mas eu gostaria de algo simples e direto.

Boa noite amigo!

veja se atende!

vbVarGlobais

Código:


Option Compare Database

Global SuaVariavel_1 As String
Global SuaVariavel_2 As String

Function getSuaVariavel_1() As String
    getSuaVariavel_1 = SuaVariavel_1
End Function

Function getSuaVariavel_2() As String
    getSuaVariavel_2 = SuaVariavel_2
End Function


Public Function carregar_parametros()
SuaVariavel_1 = "FISCAL"
SuaVariavel_2 = "GESTOR"
End Function



Fomulario que ao clicar no botão carrega todas as variáveis globais

Código:


Private Sub Comando0_Click()
carregar_parametros
DoCmd.OpenQuery "con_1"
End Sub

Private Sub Comando1_Click()
carregar_parametros
DoCmd.OpenQuery "con_2"
End Sub



nas consultas chamo a function criada "getSuaVariavel_1()" como parametro

segue projeto:

https://www.dropbox.com/s/ix9n2t49f1i4ytn/renpv.accdb?dl=0

Renato

Pode fazer assim também:


Utilize uma combobox com  3 colunas, idUsuario, NomeUsuario e Setor

Como deve saber utilizar combobox, evita erros de digitação.

No módulo vbVarGlobais coloque:

Public login As login
Type login
   id  As Long
   Usuario As String * 50
   Setor As Long ' aqui pode usar o id do setor, se usar o nome mude para string
End Type

No botão que OK do formulário de login, bem no final do código,
após a verificação do usuário atual e te-lo aceito, coloque:

'repassa a identificação do usuário para a variável login
With Me!cboUsuario
       login.id = .Column(0)  'IdUsuário
       login.Usuario = .Column(1) 'Nome do usuário
       login.Setor = .Column(2) 'Setor do usuário
end With
Pronto.

A partir do momento que o usuário estiver logado poderá ter
os dados deles a qualquer momento digitando:
login.id
login.Usuario
login.Setor

[ ]'s

Danilo Reis,

Funcionou perfeitamente e exatamente como eu precisava.

Agradeço a disponibilidade.

Noobezinho,

Até aí eu tinha feito. O problema era pra colocar essa variável diretamente nos critérios da consulta o que só foi possível com a criação de uma função global como indicada pelo amigo Danilo Reis.

Mesmo assim agradeço a disponibilidade em responder esse tópico.

Att

O importante, é que foi solucionado !!

Valeu o retorno!

Boa sorte!

Viva a todos,

A questão prende-se com o seguinte:

Qual seria a solução se na "SuaVariavel_1" quisesse procurar mais que uma palavra, ou seja, procurar por "Fiscal" e "Administrativo" ao mesmo tempo.

Cumprimentos

Bruno Gordino

Explica melhor, Brunogor

Viva caro membro renpf,

No exemplo em questão existe esta função:

Código:

Public Function carregar_parametros()
SuaVariavel_1 = "FISCAL"
SuaVariavel_2 = "GESTOR"
End Function

O que eu pretendia saber era como juntar as duas palavras, ou seja, FISCAL e GESTOR, numa Variável só.

Espero que me tenha feito entender.

Obrigado pela disponibilidade.

Bruno Gordino