[Resolvido]Deslogar usuário sem sair do Form

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  

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"

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.

Criei um controle com ação de logoff no form principal.
Veja se é isso

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

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]