MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


4 participantes

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

    avatar
    renpv
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 323
    Registrado : 12/01/2015

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

    Mensagem  renpv 19/11/2015, 16:03

    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.
    daniloreiis
    daniloreiis
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 338
    Registrado : 14/02/2011

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

    Mensagem  daniloreiis 20/11/2015, 00:53

    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





    .................................................................................
    Att, Danilo Reis
    -------------------------------------------------------------------------------------------------------------------------------------------------

    Se alguém não quiser trabalhar, não coma também.
    2 Tessalonicenses 3:10
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho 20/11/2015, 12:08

    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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    avatar
    renpv
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 323
    Registrado : 12/01/2015

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

    Mensagem  renpv 23/11/2015, 12:16

    Danilo Reis,

    Funcionou perfeitamente e exatamente como eu precisava.

    Agradeço a disponibilidade.
    avatar
    renpv
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 323
    Registrado : 12/01/2015

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

    Mensagem  renpv 23/11/2015, 12:19

    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
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 4140
    Registrado : 29/06/2012

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

    Mensagem  Noobezinho 23/11/2015, 12:52

    O importante, é que foi solucionado !! Wink

    Valeu o retorno!

    Boa sorte!


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    brunogor
    brunogor
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 273
    Registrado : 24/02/2013

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

    Mensagem  brunogor 12/1/2016, 11:25

    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
    avatar
    renpv
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 323
    Registrado : 12/01/2015

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

    Mensagem  renpv 31/1/2016, 14:21

    Explica melhor, Brunogor
    brunogor
    brunogor
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 273
    Registrado : 24/02/2013

    [Resolvido]Filtrar consulta com base em variável global Empty Revisão do tópico

    Mensagem  brunogor 31/1/2016, 18:56

    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

    Conteúdo patrocinado


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

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 09:52