[Resolvido]Acrescentar abertura de form em login

Boa tarde
Navegando vi esse login com uma segurança interessante (isladogs.co.uk).
Fiz as traduções no idioma.
Contudo, não consegui entender como poderia acrescentar abertura do Form 01, 02 e 03 de acordo com nível escolhido no cadastro do usuário ao logar.
Como poderia efetuar isso.
Se alguém puder ajudar agradeço.

Teste
1111111111



Obrigado.

Olá Mylton Nogueira,

É um exemplo muito bem elaborado e na minha opinião um bom objeto de estudo.
Vou apenas mostrar "os caminhos da pedras", veja uma pequena alteração que fiz e já faz parte do que pretende.



A minha sugestão para o que pretende pode ser com um Select Case ou If .. ElseIf se se sentir mais confortável.

Abraço

Vou estudar e tentar por aqui.
Amanhã acordo de madrugada aqui para trabalhar.
Mas quando voltar vou tentando e informando.

Ao final pretendo disponibilizar no repositório para todos.


Obrigado Alvaro.

Olá Mylton Nogueira,

Obrigado pelo feedback, se ficou esclarecido não se esqueça de dar o tópico como resolvido.

Abraço e bons estudos

bom dia
Desculpe a demora

Dando erro de sintase

Código:

Private Sub DoLogin()

On Error GoTo Err_Handler

       'Criar um evento de login para este usuário
        'v5 2 1/11/2018 - adicionado Nz para gerenciar caso onde não existe registro
        lngUserID = Nz(DMax("LoginID", "tblLoginSessions") + 1, 1)
                 
       'sinalizar que o usuário está conectado no momento
       Call CreateSession(lngUserID)
       Call LogMeIn(lngUserID)
       'Abra o formulário principal e feche este
       'DoCmd.OpenForm "frmSessions"

'Nesta linha abaixo

       DoCmd.OpenForm "frmSessions" intAccessLevel
       Select Case Tipo
               Case "1"
               DoCmd.OpenForm "Frm 1"
               Case "2"
               DoCmd.OpenForm "Frm 2"
               Case "3"
               DoCmd.OpenForm "Frm 3"
       End Select
       DoCmd.Close acForm, "frmLogin"

Olá Mylton Nogueira,

Sim , tinha erro na instrução:
DoCmd.OpenForm "frmSessions" intAccessLevel
Nem faz sentido fazer a abertura antes do "Select case".

Seguindo a sua alteração, faltava definir a variável "Tipo" e atribuir o nível do utilizador, ficando assim:

Código:

Private Sub DoLogin()

On Error GoTo Err_Handler

       'Criar um evento de login para este usuário
        'v5 2 1/11/2018 - adicionado Nz para gerenciar caso onde não existe registro
        lngUserID = Nz(DMax("LoginID", "tblLoginSessions") + 1, 1)
                
       'sinalizar que o usuário está conectado no momento
       Call CreateSession(lngUserID)
       Call LogMeIn(lngUserID)
       'Abra o formulário principal e feche este
       'DoCmd.OpenForm "frmSessions"

'retificado 12/7/2023
       Dim Tipo As Integer   'definir variavel
       Tipo = intAccessLevel 'atribuir valor à variavel
      
       Select Case Tipo
               Case 1
               DoCmd.OpenForm "Frm 1"
               Case 2
               DoCmd.OpenForm "Frm 2"
               Case 3
               DoCmd.OpenForm "Frm 3"
       End Select
       DoCmd.Close acForm, "frmLogin"


Abraço

Boa tarde.
Mais uma vez Álvaro obrigado.


Vou ver.
Abs e boa semana ai na terrinha.

Olá Mylton Nogueira,

Obrigado e igualmente.
Se ficou esclarecido não se esqueça de dar o tópico como resolvido.

Abraço

Mais uma vez obrigado.
Vou disponibilizar depois o exemplo a todos.
Boa semana
Abs

Tmj.
Abs.