MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    [Resolvido]cadastro de usuario

    Compartilhe

    tonin
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 23/11/2016

    [Resolvido]cadastro de usuario

    Mensagem  tonin em Ter 08 Ago 2017, 19:29

    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
    avatar
    João Ricardo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 526
    Registrado : 20/01/2013

    Re: [Resolvido]cadastro de usuario

    Mensagem  João Ricardo em Qua 09 Ago 2017, 02:38

    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.


    .................................................................................
     [Você precisa estar registrado e conectado para ver esta imagem.] Busco aprendizado e gostaria de contato com pessoas de Campo Grande - MS  [Você precisa estar registrado e conectado para ver esta imagem.]   [Você precisa estar registrado e conectado para ver esta imagem.] 

    tonin
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 23/11/2016

    Re: [Resolvido]cadastro de usuario

    Mensagem  tonin em Qua 09 Ago 2017, 17:27

    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.
    Anexos
    tela de cadastro de login.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (98 Kb) Baixado 9 vez(es)
    avatar
    Fernando Bueno
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1889
    Registrado : 13/04/2012

    Re: [Resolvido]cadastro de usuario

    Mensagem  Fernando Bueno em Qua 09 Ago 2017, 23:33

    Boa noite;

    Pedindo licensa ao colega João teste para vermos.

    mega.nz/#!Sk81SDpa!c42Kfc2vAi7BPTkFwqFOg8ihAD2jF19gnSSTswHnas4

    Copiar link e colar no navegador.

    Aguardamos.


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    João Ricardo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 526
    Registrado : 20/01/2013

    Re: [Resolvido]cadastro de usuario

    Mensagem  João Ricardo em Qui 10 Ago 2017, 02:24

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


    .................................................................................
     [Você precisa estar registrado e conectado para ver esta imagem.] Busco aprendizado e gostaria de contato com pessoas de Campo Grande - MS  [Você precisa estar registrado e conectado para ver esta imagem.]   [Você precisa estar registrado e conectado para ver esta imagem.] 

    tonin
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 20
    Registrado : 23/11/2016

    Re: [Resolvido]cadastro de usuario

    Mensagem  tonin em Qui 10 Ago 2017, 17:25

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

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1889
    Registrado : 13/04/2012

    Re: [Resolvido]cadastro de usuario

    Mensagem  Fernando Bueno em Qui 10 Ago 2017, 20:21

    Ficamos satisfeitos em ter atendido sua expectativa.

    Agradecemos o retorno, bons estudos!


    .................................................................................
    Um abraço
    Fernando Bueno


    O aumento do conhecimento é como uma esfera dilatando-se no espaço
    quanto maior a nossa compreensão,
    maior o nosso contacto com o desconhecido
    [Você precisa estar registrado e conectado para ver esta imagem.]
    avatar
    João Ricardo
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 526
    Registrado : 20/01/2013

    Re: [Resolvido]cadastro de usuario

    Mensagem  João Ricardo em Sex 11 Ago 2017, 18:38

    Nos que agradecemos a oportunidade de poder ajudar.
    Sucesso.


    .................................................................................
     [Você precisa estar registrado e conectado para ver esta imagem.] Busco aprendizado e gostaria de contato com pessoas de Campo Grande - MS  [Você precisa estar registrado e conectado para ver esta imagem.]   [Você precisa estar registrado e conectado para ver esta imagem.] 

      Data/hora atual: Qua 22 Nov 2017, 20:13