[Resolvido]Cadastro usuarios

Olá a todos, criei um formulário de acesso, com o seguinte código, porém gostaria de uma ajuda para adequar o mesmo para que possa ser cadastrado novos Usuários e senha, alguém pode me ajudar?

Private Sub Comando4_Click()
Nome.SetFocus
If Nome = "Alexandre" And Senha = "1234" Then
MsgBox "Acesso consedido", vbInformation, "login"
DoCmd.Close
DoCmd.OpenForm "FormCadastroIsoFabric"
Else
MsgBox "Acesso Negado", vbCritical, "Erro"
End If

End Sub

Geralmente utilizamos um cadastro de usuario e senhas baseado em uma tabela, creio que no repositório há exemplos

porém se deseja fazer no proprio vba


Private Sub Comando4_Click()
Nome.SetFocus
If Nome = "Alexandre" And Senha = "1234" Then
MsgBox "Acesso consedido", vbInformation, "login"
DoCmd.Close
DoCmd.OpenForm "FormCadastroIsoFabric"

ElseIf Nome ="XXXXXXX" And Senha ="NNNNN" Then
MsgBox "Acesso consedido", vbInformation, "login"
DoCmd.Close
DoCmd.OpenForm "FormCadastroIsoFabric"

Else
MsgBox "Acesso Negado", vbCritical, "Erro"
End If

End Sub


e assim quantos ElseIf Desejar.

Cumprimentos.

ok, obrigado

O Fórum agradece o retorno.

Não se esqueça de clicar no joinha da mensagem que o auxiliou.

Cumprimentos.