[Resolvido]Problema com form login e senha

Olá pessoal, tenho um form. de login e senha com 2 níveis de segurança. Ao fazer a mudança de usuário (clicando em um botão no próprio form.), preciso que o form. carregado seja fechado, se e somente se, o novo usuário seja autenticado.

Ex.

Logado com Administrador;
farei a mudança de usuário;
se senha correta, form carregado será fechado e novo form aberto.

segue form como exemplo.

Grato

Olá,

Pode-se fazer o que pretendes, mas não tem lógica.
Pois se foi efetuado o logoff, quem desejar entrar na aplicação novamente deve-se identificar. Seja ele o utilizador anterior ou outro.
Imagina que eu estou a trabalhar na aplicação, vou tomar café e faço logoff, chega o meu colega coloca a senha errada e tem acesso à aplicação!!!    

A solução no meu entender seria ao clicar logoff , fechar o form e abrir o Login.
Exprimenta assim :

Private Sub Logoff_Click()
   DoCmd.Close acForm, "Home_Admin"
   DoCmd.OpenForm "Login", acNormal
End Sub

ahteixeira, obrigado pela atenção. Mas havia feito exatamente como você mostrou.
O motivo de não querer desse forma é porque ao clicar em logoff, junto com o form de login, a interface do access aparece, entende?
Muito interessante seu pensamento.

Mas se puder me ajudar da forma que preciso agradeço muito. Dessa forma tenho mais opções de escolha.

Grato

Jonata

Dê uma olhada nesse exemplo que disponibilizei.


Abraços

Noob

Noobezinho, obrigado pela ajuda, mas não consegui adaptar. O que preciso acredito que seja bem simples, só não sei como fazer.

Ao clicar em logoff abri o form Login, sem fechar ainda do form carregado. Se senha correta, ai sim o form carregado é fechado e o novo aberto.

Grato

Olá a todos,

Relativamente à sugestão anterior envio em anexo um exemplo sem acesso
Para abrir terás que primir a tecla Shift ao Abrir.

Quanto ao pretendido a solução que adaptei foi a seguinte:

Ao clicar no botão logoff o seguinte código

Código:

Private Sub Logoff_Click()
   DoCmd.OpenForm "Login", acNormal, , , , , Screen.ActiveForm.Name
End Sub

Vai abrir o form Login, mas utiliza o OpenArgs para passar o nome do form que está aberto (para saber qual vai fechar se o login for efetuado com sucesso)

No form Login fiz uma pequena alteração

Código:

Private Sub Entrar_Click()
Dim Identificacao As Integer

    If Me.Senha.Value = DLookup("[Senha]", "[Usuários]", "[Usuário] = '" & Me.Usuário & "'") Then
        Identificacao = DLookup("[NívelSegurança]", "[Usuários]", "[Usuário] = '" & Me.Usuário & "'")
        
        Select Case Identificacao
            Case 1
               stDocName = "Home_Admin"
            Case 2
                stDocName = "Home_User"
        End Select
        '-------------------------------
        If IsNull(OpenArgs) = False Then
            DoCmd.Close acForm, Screen.ActiveForm.Name
        End If
        '---------------------------------
        DoCmd.Close
        DoCmd.OpenForm stDocName
      
      Else
        MsgBox "Senha Incorreta, coloque novamente.", vbInformation + vbOKOnly, "Erro"
        Me.Senha.Value = ""
        Me.Senha.SetFocus
        Exit Sub
    End If

End Sub

Se o OpenArgs não for Nulo significa que foi passado o nome do form, então vai fechar o form.
Acho que é isto o pretendido.

ahteixeira, tudo certo cara. É exatamente isso que eu queria.

Muito obrigado a todos.