[Resolvido]Filtrar Folha de Dados

queridos amigos

pensei em fazer algo ao clicar em um botão fazer o filtro na folha de dados com mesmo usuario logado.


nao tenho ideia de como fazer isso.


eu tenho uma variavel publica de usuario.
É possivel fazer um filtro com com a variavel ?



segue abaixo a variavel publica de usuario:

Código:

Option Compare Database
Option Explicit

Public strUsuarioAtual As String

Sub setUsuarioAtual(argUsuario As String)
   strUsuarioAtual = argUsuario
End Sub

Function getUsuarioAtual() As String
   getUsuarioAtual = strUsuarioAtual
End Function

Sub setTecla(tecla As String)
    strTecla = tecla
End Sub

Function getTecla() As String
    getTecla = strTecla
End Function


abraços

Boa tarde,

Voce nao colocou nenhuma informação a respeito da folha de dados. Mas o normal seria apenas filtrar o formulário usando como criterio o usuario atual. Algo como:

Código:

Dim f as string

f = "usuario = '" & getUsuarioAtual

me.filter = f
me.filteron = true
me.requery

Estou supondo que o campo "usuario" seja onde está o nome do usuário no formulário (se for acoplado este campo deve estar na tabela). Coloque isso no botão e teste.

Abraço.

Boa tarde, aproveitando que o tópico ainda não foi dado como resolvido, deixo minha dúvida.

Tenho um formulário "FrmMain" e dentro dele, um subformulário "TRIAGEM_subformulário". Gostaria que quando eu digitasse um texto em uma textbox "texto1" do meu formulário, fosse feito um filtro na coluna "PEP-LAYER" desse meu subformulário.

Poderia me ajudar?

@gabrielpn06

abre um tópico a parte eu te ajudo.


@CassioFabre

digamos que eu tenha um campo de usuario na folha de dados, esse codigo ira fazer o filtro no campo usuario ? é isso ?


abraços.

@CassioFabre

testei em um botão porem nada feito. não deu certo.

na folha de dados tem um campo ANALISTARESPONSÁVEL e nao esta filtrando.


codigo que estou usando é esse:

Código:

Private Sub MAPEAMENTOUSUARIO_Click()
Dim f As String
DoCmd.OpenForm "meumapeamento", acFormDS

f = "ANALISTARESPONSÁVEL = '" & getUsuarioAtual

Me.Filter = f
Me.FilterOn = True
Me.Requery

Experimente isso:

f = "[ANALISTARESPONSÁVEL] = '" & getUsuarioAtual & "'"

Verifique se essa variável getUsuarioAtual está realmente preenchida com o nome do Usuário que deseja filtar!

Verifique através de MensageBox

fabio

tentei fazer da forma que pediu, porem ele esta deixando o getUsuarioAtual como comentario.


Segue o bd para analise

Desculpa, a Aspas e depois...

f = "[ANALISTARESPONSÁVEL] = '" & getUsuarioAtual & "'"

Fabio. sem sucesso no filtro da folha de dados.


nao filtra nada e nem aparece erro.

Alguem ?

Nos instrua passo a passo como simular o que precisa... Pois vc postou um anexo, mas não disse onde achar o Código ou com qual usuário logar...

@fabio

entao vamos la

o bd e constituido na parte de usuario pela tabela Tbl_01_01_Usuario.


existe um mod com uma variavel publica getUsuarioAtual
dentro do forms ESPELHODADOS tem um textbox com =getUsuarioAtual() e um botao chamado "MEU MAPEAMENTO"
o forms ESPELHODADOS atua como um espelho de dados para um unico textbox como combo fazer as alterações. Mas a parte mais importante é no botão:
onde o usuario ao clicar deveria fazer um filtro com =getUsuarioAtual() "variavel publica" para somente puxar tudo o que é relacionado ao nome dele entendeu?


dentro do forms MEUMAPEAMENTO tem um consulta de onde o usuario irar clicar e dar continuidade ao mapeamento de demandas dele entendeu? e la dentro tem um campo de uma
consulta "MEUMAPEAMENTO" como "ANALISTARESPONSÁVEL" nesta parte fica o nome registrado do usuario que fez a alteração entendeu ?


gostaria que ao clicar no botao o forms MEUMAPEAMENTO faça um filtro somente com a variavel publica do nome do USUARIO.


abraços

O Comando correto é:

Código:


Private Sub MAPEAMENTOUSUARIO_Click()
DoCmd.OpenForm "meumapeamento", acFormDS
Dim F As String
F = "[ANALISTARESPONSÁVEL] = '" & getUsuarioAtual & "'"
Forms!meumapeamento.Form.Filter = F
Forms!meumapeamento.Form.FilterOn = True
End Sub


Mas se atente para uma coisa: Todos os registros da tabela, tem no campo AnalistaResponsável os valores: ACESSO3 ou ACESSO2. E Não achei nenhum desses usuários Cadastrados para Login...

Fabio deu certo.

obg

abraços


RESOLVIDO

Que bom que deu certo amigo! Até a próxima se Deus quiser!