[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.

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.

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"

Boa tarde.
Mais uma vez Álvaro obrigado.


Vou ver.
Abs e boa semana ai na terrinha.

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

Tmj.
Abs.