[Resolvido]Login por níveis de funcionarios

Olá, estou enfrentando um problema. Estou com um problema no access.
- Dirigentes - ID=3;
- Setor financeiro ID=4;
- Montagem de Veículos ID=1;
- Administração ID= 5.
Eu criei 4 formularios, um para cada setor. Se o funcionario é do setor 3 o formulario Dirigentes de filiais é aberto. Eu so consegui com que todos abram so um formulario, que é o formulario menu principal. Vou anexar o arquivo.

Obs:
Tente sempre colocar um título decente nos tópicos, o que você colocou "Visual Basic" não diz nada a ninguem para uma futura busca no forum.


Para a sua duvida um pequeno Select Case resolve;

Código:


Private Sub cmdConfirmar_Click()
Dim VerificaUsuario As Variant 'declaramos a variavel VerificaUsuario do tipo variant
Dim SenhaDoUsuario As Variant 'declaramos a variavel SenhaDoUsusario do tipo variant
Dim rst As Recordset

VerificaUsuario = DLookup("Login", "Login_senha", "Login = '" & Me.txtLogin.Column(1) & "'") 'Especificar a Coluna do ListBox
SenhaDoUsuario = DLookup("Senha", "Login_senha", "Login = '" & Me.txtLogin.Column(1) & "'") 'Especificar a Coluna do ListBox

Set rst = CurrentDb.OpenRecordset("SELECT Identificação FROM Controle_de_acesso_ao_sistema WHERE Email='" & VerificaUsuario & "'")

   'Verifica se o Usuário Existe
   If IsNull(VerificaUsuario) Then
       MsgBox "O Usuário informado não existe neste Sistema!", vbCritical, "Usuário Inválido"
   Else
   'Verifica se a Senha Confere
       If Me.txtSenha = SenhaDoUsuario Then
         
          Select Case rst!Identificação
                   Case Is = 3
             DoCmd.Close acForm, "Login"
             DoCmd.OpenForm "frm_Dirigentesdefiliais"
                   Case Is = 1
             DoCmd.Close acForm, "Login"
             DoCmd.OpenForm "frm_SupervisoresdeMontagem de Veículos"
                   Case Is = 4
             DoCmd.Close acForm, "Login"
             DoCmd.OpenForm "frm_GerentedeSetorfinanceiro"
                   Case Is = 5
             DoCmd.Close acForm, "Login"
             DoCmd.OpenForm "frm_Administração"
           End Select
       Else
           MsgBox "A Senha que você digitou está incorreta, por favor, tente novamente!", vbCritical, "Senha Inválida"
       End If
   End If
rst.Close
End Sub


E tambem o texto que coloquei foi o errado, peco desculpa ao forum e muito obrigado pela ajuda JPaulo.

Tranquilaço...

Obrigado pelo retorno o forum agradece.