MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Abrir formulário específico para cada usuário após login

    Compartilhe

    fcawarf
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 30/10/2013

    Abrir formulário específico para cada usuário após login

    Mensagem  fcawarf em 26/12/2017, 13:38

    Bom dia a todos, desde já um feliz ano novo.
    O que estou com dificuldade é sobre determinar um formulário padrão para cada usuário depois do login.
    Vi alguns exemplos aqui parecidos, mas nenhum é exatamente o que preciso.

    Tem até esse código do FabioPaes, que pra um usuário vai bem, mas quando tento colocar 3 ou mais, dá erro.

    If txtUser = "User" Then
    DoCmd.OpenForm "frmUser", acNormal, "", "", , acNormal
      Else
      DoCmd.OpenForm "frmAdministrador3", acNormal, "", "", , acNormal



    Tem até um exemplo do JPaulo "QuemIntroduziuQuemAlterou", mas também não deu pra eu adaptar.

    Abraço!

    Atrefh
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 09/02/2017

    Re: Abrir formulário específico para cada usuário após login

    Mensagem  Atrefh em 26/12/2017, 16:52

    As minhas telas de login funcionam assim:

    Quando cadastro um novo usuário no sistema, armazeno na tabela o login, a senha e o Nivel que ele possui no sistema, por exemplo, se ele for ADM, amazeno-o como ADM, se ele não podera fazer alteração, armazeno-o como CST e etc.

    Após informar o login e a senha na tela de login e clicar no botão acessar, o sistema verifica se ele é ADM ou CTS ou outra coisa qualquer.

    No seu caso, caso for ADM, abra tal form, se não abra outro Form.

    Consegue imaginar?

    Att.

    fcawarf
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 30/10/2013

    Abrir formulário específico para cada usuário após login

    Mensagem  fcawarf em 26/12/2017, 17:33

    Boa tarde, Atrefh.
    Entendi sua exposição. No exemplo do JPaulo faz isso que descreveu.
    O que eu gostaria na verdade seria mais de um tipo de acesso.
    Então seria ADM, CTS, e mais 2 ou 3 acessos diferenciados. Tenho pelos 5 tipos de acesso diferente.

    Até tenho um FRM Principal que tem os botões, alguns com acesso e outros não, dependendo do usuário,
    mas queria em vez desse "Principal", um frm especifico para cada usuário.
    Aí daria pra eu personalizar cada um desses frm.

    Obrigado pela atenção!
    avatar
    scandinavo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 521
    Registrado : 11/11/2009

    Re: Abrir formulário específico para cada usuário após login

    Mensagem  scandinavo em 28/12/2017, 08:35

    Então crie 5 formulários diferentes e e pelo nível de acesso escolhe qual vai ser aberto

    Atrefh
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 32
    Registrado : 09/02/2017

    Re: Abrir formulário específico para cada usuário após login

    Mensagem  Atrefh em 28/12/2017, 10:43

    Crie um frm para cada, e na hora que passar da tela de login, faça um:

    Código:

    Select Case Tipo
     Case "ADM"
      DoCmd.OpenForm "Form1", acNormal
     Case "TIPO1"
      DoCmd.OpenForm "Form2", acNormal
     Case "TIPO2"
      DoCmd.OpenForm "Form3", acNormal
     Case "TIPO3"
      DoCmd.OpenForm "Form4", acNormal
     Case "TIPO4"
      DoCmd.OpenForm "Form5", acNormal
    End Select

    Mais ou menos isso.

    Att.

    fcawarf
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 30/10/2013

    Abrir formulário específico para cada usuário após login

    Mensagem  fcawarf em 28/12/2017, 11:30

    Bom dia a todos.
    Ainda tentando chegar a uma solução.

    Obrigado Atrefh e scandinavo pelas dicas.
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3505
    Registrado : 06/11/2009

    Re: Abrir formulário específico para cada usuário após login

    Mensagem  Assis em 28/12/2017, 12:23

    Bom dia

    Bom ano Novo ....

    A Password é 1234 para todos .


    .................................................................................
    *** Só sei que nada sei ***

    fcawarf
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 30/10/2013

    Re: Abrir formulário específico para cada usuário após login

    Mensagem  fcawarf em 28/12/2017, 16:32

    Boa tarde, Assis.
    Eis o meu codigo, tentei colocar o seu exemplo antes de abrir Frm_Abertura e deu erro.
    Poderia me auxiliar onde encaixo o seu codigo?
    Grato.

    Private Sub BtnLog_Click()
       objRibbon.Invalidate
       DoCmd.OpenForm "Frm_Abertura"
    Else
       MsgBox "Senha inválida." & vbCrLf & vbCrLf & "Redigite a senha ou entre em contato com o administrador.", vbInformation, "Aviso"
       Me!Senha = Null
       Me!Senha.SetFocus
    End If
    End With
    End Sub


    Queria colocar em vez de abrir Frm_Abertura, abrir um frm de acordo com o usuario.


    Última edição por fcawarf em 29/12/2017, 11:22, editado 1 vez(es)
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3505
    Registrado : 06/11/2009

    Re: Abrir formulário específico para cada usuário após login

    Mensagem  Assis em 28/12/2017, 18:00

    Boa noite

    O seu código é do exemplo " Maestro " do Mestre Avelino Sampaio. Certo?

    Espere, pode ser que o mestre Avelino Sampaio ajude .....


    .................................................................................
    *** Só sei que nada sei ***

    fcawarf
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 30/10/2013

    Abrir formulário específico para cada usuário após login

    Mensagem  fcawarf em 28/12/2017, 19:55

    Boa tarde.
    Eu não sabia que era do Maestro, eu comprei um programa e já veio com esse código.
    Mas obrigado!
    Vou aguardar.
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3505
    Registrado : 06/11/2009

    Re: Abrir formulário específico para cada usuário após login

    Mensagem  Assis em 28/12/2017, 20:05

    Flávio

    Comprou com o código do VBA aberto ?


    .................................................................................
    *** Só sei que nada sei ***

    fcawarf
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 16
    Registrado : 30/10/2013

    Abrir formulário específico para cada usuário após login

    Mensagem  fcawarf em 28/12/2017, 20:25

    Sim. É pra estudo.

      Data/hora atual: 19/9/2018, 12:38