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


    [Resolvido]Deslogar usuário sem sair do Form

    avatar
    Vianaedu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 21/05/2017

    [Resolvido]Deslogar usuário sem sair do Form Empty [Resolvido]Deslogar usuário sem sair do Form

    Mensagem  Vianaedu em 19/9/2018, 04:11

    Estou adaptando um sistema de login que montei seguindo um tutorial externo e agora estou tropeçando no seguinte:

    No momento o sistema é capaz de:


    • Efetuar o logon ( pelo form de logon) ao clicar na palavra Logar.
    • Exibe o nome do usuário.
    • Exibir o conteúdo que estava oculto.
    • Ocultar a palavra Logar.
    • Exibir a palavra Sair.


    Eu gostaria agora de ao clicar na palavra Sair fazer logof ao invés de fechar o programa; estou ciente que ao redefinir ou parar todas as macros eu consigo fazer isso perfeitamente, no entanto gostaria de usar um método diferente já que pretendo implementar esse sistema de logon em outros formes onde parar ou redefinir uma macro pode não ser viável.

    estou enviando o arquivo em anexo para que vocês possam estudar meu caso, a senha para logon é 123456.

    Agradeço de antemão ao apoio que vocês tem dado ao meu aprendizado  Smile


    Última edição por Vianaedu em 22/9/2018, 02:59, editado 1 vez(es)
    avatar
    FabioGO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 106
    Registrado : 22/08/2012

    [Resolvido]Deslogar usuário sem sair do Form Empty Re: [Resolvido]Deslogar usuário sem sair do Form

    Mensagem  FabioGO em 20/9/2018, 15:54

    Tire o código que está no seu botão de sair e coloque o código abaixo:

    Código:
    Dim obj As AccessObject, dbs As Object
            Set dbs = Application.CurrentProject
           
            For Each obj In dbs.AllForms
                If obj.IsLoaded = True Then
                    DoCmd.Close acForm, obj.Name
                End If
            Next obj
           
            For Each obj In dbs.AllReports
                If obj.IsLoaded = True Then
                    DoCmd.Close acReport, obj.Name
                End If
            Next obj
           
            Set dbs = Nothing
                           
            DoCmd.OpenForm "FLogin"
    avatar
    Vianaedu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 21/05/2017

    [Resolvido]Deslogar usuário sem sair do Form Empty Re: [Resolvido]Deslogar usuário sem sair do Form

    Mensagem  Vianaedu em 20/9/2018, 23:49

    A ação que o código executou é diferente da que eu desejo então vou tentar explicar melhor:

    Eu gostaria de permanecer no form "FPrincipal" enquanto  a TextBox "txtuser" volta a ficar vazia, pois nesse momento ela faz com que tudo que esta visível volte a ficar escondido dando a impressão de que o usuário fez o Logof.

    parando para pensar nisso agora, o trecho do código responsável por capturar o nome de usuário e o grupo ao qual ele pertence é este:

    Código:

    Function getGrupoUsuarioAtual() As String
      
      getGrupoUsuarioAtual = Nz(DLookup("Grupo", "Usuario", _
                        "Login='" & strUsuarioAtual & "'"), "")
      
      Select Case getGrupoUsuarioAtual
        Case 0
          getGrupoUsuarioAtual = "Master"
        Case 1
          getGrupoUsuarioAtual = "Admin"
        Case 2
          getGrupoUsuarioAtual = "Padrao"
        Case 3
          getGrupoUsuarioAtual = "Visitante"
        Case Else
          getGrupoUsuarioAtual = ""
      End Select
      
    End Function

    Creio que se houver um modo de reverter a ação realizada por este código eu consiga fazer exatamente o que pretendo, alguém pode me ajudar quanto a isso?

    PS: fiz uma limpa no arquivo, retirando todos os códigos desnecessários que eu havia esquecido de remover então estou upando novamente o arquivo e apagando o anterior.
    avatar
    FabioGO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 106
    Registrado : 22/08/2012

    [Resolvido]Deslogar usuário sem sair do Form Empty Re: [Resolvido]Deslogar usuário sem sair do Form

    Mensagem  FabioGO em 21/9/2018, 13:47

    Criei um controle com ação de logoff no form principal.
    Veja se é isso
    Anexos
    [Resolvido]Deslogar usuário sem sair do Form AttachmentAppSecurity.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (629 Kb) Baixado 20 vez(es)
    avatar
    Vianaedu
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 18
    Registrado : 21/05/2017

    [Resolvido]Deslogar usuário sem sair do Form Empty Re: [Resolvido]Deslogar usuário sem sair do Form

    Mensagem  Vianaedu em 21/9/2018, 23:41

    Very Happy  É exatamente isso que eu queria, muito obrigado!!!
    Shocked  Nem acredito que a solução era tão simples ... e eu me batendo aqui tentando um monte de coisas mirabolantes Rolling Eyes
    Valeu mesmo cara ... salvou meu DFS cheers
    .
    .
    .
    .
    .
    . PS: Quando finalizar o App ele irá para o Repositório ...
    avatar
    FabioGO
    Intermediário
    Intermediário

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 106
    Registrado : 22/08/2012

    [Resolvido]Deslogar usuário sem sair do Form Empty Re: [Resolvido]Deslogar usuário sem sair do Form

    Mensagem  FabioGO em 22/9/2018, 02:03

    Que bom que deu certo, fico feliz em poder ajudar, pois eu também estou aprendendo.
    Acho que se resolveu sua dúvida tem que marcar o tópico com o [Resolvido]

    Conteúdo patrocinado

    [Resolvido]Deslogar usuário sem sair do Form Empty Re: [Resolvido]Deslogar usuário sem sair do Form

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/7/2019, 07:03