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


2 participantes

    [Resolvido]Acesso a dados - Filtrado

    paulodaeira
    paulodaeira
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 83
    Registrado : 02/10/2012

    [Resolvido]Acesso a dados - Filtrado Empty [Resolvido]Acesso a dados - Filtrado

    Mensagem  paulodaeira 21/3/2024, 01:42

    Olá a todos

    Preciso mais uma vez da vossa preciosa ajuda

    No exemplo que envio precisava do seguinte:

    No formulário login com a seleção do user pretendido gostaria que ao carregar em entrar só aparecesse os funcionários da/das valências que tem marcado  no campo "Acesso a valência"
    Este user também só pode criar novos funcionários para as valências que tem acesso

    ou seja

    O user "Paulo" teria acesso aos funcionários Renato, Bia, Simão e Lucas e criar funcionários para as valências "A" e "C"
    O user "Ana" teria acesso aos funcionários Rui e Renato e criar funcionários para as valências "B"

    Agradeço desde já a Vossa ajuda

    Paulo
    Anexos
    [Resolvido]Acesso a dados - Filtrado AttachmentExemplo.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (57 Kb) Baixado 5 vez(es)
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Acesso a dados - Filtrado Empty Re: [Resolvido]Acesso a dados - Filtrado

    Mensagem  Avelino Sampaio 21/3/2024, 13:50

    Olá!

    segue modificações no formulário de login.  Acrescentei o campo "acesso valência" na lista da combobox (você pode ocultar este campo) e acrecentei o código abaixo no evento "após atualizar" da combobox.

    Private Sub CaixaCombinação6_AfterUpdate()
    Dim j, i as byte, seq as string
    j = Split(Me!CaixaCombinação6.Column(2), "; ")
    For i = 0 To UBound(j)
       seq = seq & "'" & j(i) & "',"
    Next
    seq = Left(seq, Len(seq) - 1)
    DoCmd.OpenForm "funcionario", , , "valência in(" & seq & ")"
    End Sub


    Sucesso!
    Anexos
    [Resolvido]Acesso a dados - Filtrado AttachmentExemplo_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (51 Kb) Baixado 5 vez(es)


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    paulodaeira
    paulodaeira
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 83
    Registrado : 02/10/2012

    [Resolvido]Acesso a dados - Filtrado Empty Re: [Resolvido]Acesso a dados - Filtrado

    Mensagem  paulodaeira 21/3/2024, 23:23

    Olá

    Agradeço desde já a Sua ajuda

    Está excelente

    Ainda está a aceitar que o user adicione novos funcionários da valência que não deveria ter acesso

    Tem alguma solução para limitar o (adicionar funcionário) às valências que tem acesso?

    Fiz a V3 onde coloquei o código ao clicar no botão "entrar"

    Cumprimentos
    Paulo
    Anexos
    [Resolvido]Acesso a dados - Filtrado AttachmentExemplo_v3.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (72 Kb) Baixado 3 vez(es)
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3900
    Registrado : 04/04/2010

    [Resolvido]Acesso a dados - Filtrado Empty Re: [Resolvido]Acesso a dados - Filtrado

    Mensagem  Avelino Sampaio 22/3/2024, 07:24

    Humm, me concentrei numa tarefa e esqueci da outra.

    Segue as modificações

    1. Criei a consulta qryValencias.  Esta consulta passou a ser a origem do campo valência no formulário funcionario
    2. Essa consulta será alterada por código, para que o usuário logado possa ter acesso somente as suas valências no formulário de funcionarios.
    3. segue o código alterado

    Private Sub B_Entrar_Click()
    Dim j, i As Byte, seq As String
    Dim qry As QueryDef

    'captura sequencias de valencias permitidas pelo usuário
    j = Split(Me!CaixaCombinação6.Column(2), "; ")
    For i = 0 To UBound(j)
       seq = seq & "'" & j(i) & "',"
    Next
    seq = Left(seq, Len(seq) - 1)

    'remonta consulta qryValencias, origem do campo valência no formulário de funcionários.
    Set qry = CurrentDb.QueryDefs("qryValencias")
    qry.SQL = Mid(qry.SQL, 1, InStr(qry.SQL, "WHERE") + 5) & "valência.valência IN(" & seq & ")"

    'abre formulário de funcionários com as valencias do usuario logado
    DoCmd.OpenForm "Funcionario", acNormal, , "valência in(" & seq & ")"

    'limpa memoria
    Set qry = Nothing

    End Sub


    Sucesso!
    Anexos
    [Resolvido]Acesso a dados - Filtrado AttachmentExemplo_v4.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (38 Kb) Baixado 7 vez(es)


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    paulodaeira
    paulodaeira
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 83
    Registrado : 02/10/2012

    [Resolvido]Acesso a dados - Filtrado Empty Re: [Resolvido]Acesso a dados - Filtrado

    Mensagem  paulodaeira 26/3/2024, 23:38

    Olá

    Funcionou perfeitamente

    Agradeço a ajuda

    Cumprimentos

    Paulo Delgado

    Conteúdo patrocinado


    [Resolvido]Acesso a dados - Filtrado Empty Re: [Resolvido]Acesso a dados - Filtrado

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 21/11/2024, 18:51