[Resolvido]Function fncLogoff

Boa tarde Amigos

Ao executar a função com a extensão ACCDR dá a informação da imagem.





Tem como resolver ?

Obrigado

Public Function fncLogoff(Optional Ds As Boolean = False)
'----------------------------------
'fecha todos os formulários e
'reabre tela de login
'----------------------------------
On Error Resume Next
nlogoff = False
Call fncFechaForms(True)
login.Id = 0: login.Usuario = ""
If Ds Then
   Forms!frmLogin.RecordSource = ""
Else
   DoCmd.OpenForm "frmLogin", , , , , acDialog
End If
End Function

Boa tarde Amigos

Anexo uma BD com extensão ACCDB , que funciona.

A mesma BD com extensão ADDDR informação da MSG nº 1


Abrir uma e outra BD e no formulário que abre Clicar no botão "Mudar Utilizador". A BD fecha e volta abrir sem dados no login

Utilizador ADMIN
Senha admin


A intenção é a seguinte:

É mais que um utilizador a usar o mesmo computador, e o interesse é que todo os dados registados registam o nome de quem registou, por isso o interesse do utilizador de desligar os seus registos e o próximo utilizador já tem o formulário de Login Aberto

Obrigado

Olá Assis,

Para fazer a mudança do utilizador é suficiente o seguinte código no botão do seu exemplo:

Código:

Private Sub cmdDobras_Click()
    If MsgBox("Deseja Mudar de Utilizador?", vbQuestion + vbYesNo, "Confirmação") = vbYes Then
        Call fncLogoff
        MsgBox "Utilizador Deslogado Com Sucesso!", vbInformation, "Aviso"
    Else
   
    'Me.Foco.SetFocus
    End If
End Sub

O erro que está a ter em ACCDR já foi abordado no forum, veja:
https://www.maximoaccess.com/t33010-resolvido-abrir-outro-banco-de-dados-externo-accdr

Abraço e bom domingo

Obrigado Teixeira

Na BD que quero implementar este sistema o formulário "frmLogin" não é o inicial e por isso não estou a conseguir.