ERRO NO SISTEMA DE LOGIN

Pessoal, eu achei um sistema de login em um site que possui artigos em access, e estou tentando implementar no sistema que eu estou desenvolvendo. Porém eu estou um um dilema. Preciso alterar o vba para o nível de acesso ao usuário e não estou conseguindo. Quando vc cadastra um usuário novo ou administrador a senha padrão é 123456, porém ao digitar a 1ª vez o sistema de login pede para alterar a senha. Porém ao fazer a alteração no código eu não estou conseguindo chamar o formulário para alteração de senha. Gostaria de saber se alguém pode me ajudar. Estou postando o código e a cópia do bd para vcs baixarem e fazerem o teste. Obrigado.


O código alterado é esse:


Private Sub btnLogin_Click()

Dim strSenha As String

If IsNull(cbxLogin) Then
MsgBox "Por favor, informe um nome de usuário!", vbExclamation, "Login Inválido"
cbxLogin.SetFocus
ElseIf IsNull(txtSenha) Then
MsgBox "Por favor, informe a senha!", vbExclamation, "Senha Inválida"
txtSenha.SetFocus
Else

'Realizando a limpeza da senha
strSenha = limparSenha(txtSenha)

If verificaLogin(cbxLogin, strSenha) Then
DoCmd.Close

If getGrupoUsuarioAtual = "Administradores" Then
DoCmd.OpenForm "form/rex"
Else

If getGrupoUsuarioAtual = "Usuários" Then
DoCmd.OpenForm "cadastro/ap"

Else
MsgBox "Senha incorreta! Por favor, tente novamente.", vbExclamation, "Login"
txtSenha.SetFocus



End If
End If
End If
End If



End Sub

Boa noite Guilherme,

Baixei seu exemplo, eu faço da mesma forma em meus sistemas, só que coloco o campo senha como padrão "123", no seu é criptografado.
Coloco uma caixa de "Senha2" na tela de login, após a combo de usuário atualizar joga a senha cadastrada neste campo o sistema informa automaticamente que ele deverá alterar a senha e abre a tela de alteração normalmente.
Daí pra frente é só tratar.

Espero que ajude.
Abraços.

Sou bastante leigo em VBA eu preciso entender também como eu consigo chamar um relatório de um usuário que teve acessou o formulário e atualizou os dados?