[Resolvido]cadastro de usuario

Colegas fiz um formulário para registrar usuários e uma tela de login para abrir o formulário principal, no entanto quando aperto a tecla cadastro preciso que confere a senha se correto fecha o de cadastro e abre a de login, pois está dando errado uma hora fala que está faltando if outra entra direto sem confirmar se a senha ta certo, preciso que confirme para mim o que está errado alguém poderia dar uma olhada abaixo o código. Obrigado

Private Sub CADASTRAR_Click()
Dim UserLevel As Integer

If IsNull(Me.Textonome) Then
MsgBox ("OBRIGATORIO O NOME DO USUÁRIO"), vbInformation, "USUÁRIO SOLICITADO"
Me.Textonome.SetFocus 'insiri o nome

ElseIf IsNull(Me.Textousuario) Then
MsgBox ("OBRIGATORIO INSIRIR usuario"), vbInformation, "SENHA SOLICITADA"
Me.Textousuario.SetFocus 'insiri a usuario

ElseIf IsNull(Me.textosenha) Then
MsgBox ("OBRIGATORIO INSIRIR senha"), vbInformation, "SENHA SOLICITADA"
Me.textosenha.SetFocus 'insiri a senha

ElseIf IsNull(Me.Textoconfirmasenha) Then
MsgBox ("OBRIGATORIO INSIRIR confirma senha"), vbInformation, "SENHA SOLICITADA"
Me.Textoconfirmasenha.SetFocus 'confirma a senha

If textosenha = Textoconfirmasenha Then
Me.Requery
Else
MsgBox (" SENHA NÃO CONFERE")
textosenha = ""
Textoconfirmasenha = ""

Cancel = True
DoCmd.GoToControl "textosenha"

Else
DoCmd.Close
DoCmd.OpenForm "Login"

End If
End Sub

Olá.

Nessa parte

If textosenha = Textoconfirmasenha Then
Me.Requery
Else
MsgBox (" SENHA NÃO CONFERE")
textosenha = ""
Textoconfirmasenha = ""

Cancel = True
DoCmd.GoToControl "textosenha"

Else
DoCmd.Close
DoCmd.OpenForm "Login"

End If
End Sub

Tem dois Else e só um If


adicione pontos de interrupção no código e passe linha a linha que vc poderá ver onde está o erro. Mas veja a situação da falta if antes.

Caro colega obrigado pela ajuda estou tentando resolver mais não estou conseguindo estou enviando o banco de dados com o cadastro de usuário se você puder me ajudar agradeço
gostaria que quando grava-se o nome e usuário fecha-se o cadastro e abre a tela de login desde ja agradeço.

Boa noite;

Pedindo licensa ao colega João teste para vermos.

mega.nz/#!Sk81SDpa!c42Kfc2vAi7BPTkFwqFOg8ihAD2jF19gnSSTswHnas4

Copiar link e colar no navegador.

Aguardamos.

Tranquilo amigo Fernando.
Estamos para aprender.
Confesso que ainda não deu tempo de ver.

Caro colegas obrigados pela ajuda, deu tudo certo agora, vou continuar meu projeto.
Agradeço ao João Ricardo e Fernando Bueno.

Ficamos satisfeitos em ter atendido sua expectativa.

Agradecemos o retorno, bons estudos!

Nos que agradecemos a oportunidade de poder ajudar.
Sucesso.