MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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

2 participantes

    [Resolvido]Function fncLogoff

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Function fncLogoff Empty [Resolvido]Function fncLogoff

    Mensagem  Assis Sex 7 Jan - 12:53

    Boa tarde Amigos

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


    [Resolvido]Function fncLogoff Sem_t241


    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


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

    carlosgrasso gosta desta mensagem

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Function fncLogoff Empty Re: [Resolvido]Function fncLogoff

    Mensagem  Assis Dom 9 Jan - 10:34

    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
    Anexos
    [Resolvido]Function fncLogoff AttachmentForum.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.6 Mb) Baixado 13 vez(es)


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7613
    Registrado : 15/03/2013

    [Resolvido]Function fncLogoff Empty Re: [Resolvido]Function fncLogoff

    Mensagem  Alvaro Teixeira Dom 9 Jan - 13:19

    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
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Function fncLogoff Empty Re: [Resolvido]Function fncLogoff

    Mensagem  Assis Seg 10 Jan - 9:33

    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.



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

      Data/hora atual: Sab 1 Out - 12:11