none
ESTE CODIGO DA ERRO AO CADASTRAR MAIS DE UM REGISTRO. ME AJJD. A ACHAR ONDE ESTA ESTE ERRO? RRS feed

  • Pergunta

  • 'procedimento para CADASTRAR USUÁRIO

     

    Sub cadastrar_NovoUsuario()

     

    NomeCompleto = CADASTRO_USUARIO.CxaTexto_CU_NomeCompleto

    Email = CADASTRO_USUARIO.CxaTexto_CU_Email

    NOMEUSUARIO = CADASTRO_USUARIO.CxaTexto_CU_NomeUsuario

    senhaUSUARIO = CADASTRO_USUARIO.CxaTexto_CU_SenhaUsuario

    CONFIRMEsenha = CADASTRO_USUARIO.CxaTexto_CU_ConfirmeSenha

    senhaADMINISTRADOR = CADASTRO_USUARIO.CxaTexto_CU_SenhaAdministrador

     

    linha = 2

     

    Do Until Sheets("CADASTRO DE USUARIO").Cells(linha, 1) = ""

    limha = linha + 1

    Loop

     

    If CADASTRO_USUARIO.CxaTexto_CU_NomeCompleto <> "" And CADASTRO_USUARIO.CxaTexto_CU_Email <> "" _

       And CADASTRO_USUARIO.CxaTexto_CU_NomeUsuario <> "" _

       And CADASTRO_USUARIO.CxaTexto_CU_SenhaUsuario = CONFIRMEsenha _

       And CADASTRO_USUARIO.CxaTexto_CU_SenhaAdministrador = "adm123" Then

     

       Sheets("CADASTRO DE USUARIO").Cells(linha, 1) = NOMEUSUARIO

       Sheets("CADASTRO DE USUARIO").Cells(linha, 2) = senhaUSUARIO

       Sheets("CADASTRO DE USUARIO").Cells(linha, 3) = Date

       Sheets("CADASTRO DE USUARIO").Cells(linha, 4) = Time

       Sheets("CADASTRO DE USUARIO").Cells(linha, 5) = NomeCompleto

       Sheets("CADASTRO DE USUARIO").Cells(linha, 6) = Email

      

       LimparCadastro

     

       MsgBox "USUARIO CADASTRADO COM SUCESSO", vbInformation, "NOVO USUARIO"

     

    Else: MsgBox "VERIFIQUE OS DADOS DIGITADOS OU A SENHA DO ADMINISTRADOR", vbCritical, "CADASTRO NEGADO"

     

     

    End If

    End Sub

     

    ' Procedimento para LIMPAR CAMPO DO FORMULARIO

     

    Sub LimparCadastro()

     

    CADASTRO_USUARIO.CxaTexto_CU_NomeCompleto = Empty

    CADASTRO_USUARIO.CxaTexto_CU_Email = Empty

    CADASTRO_USUARIO.CxaTexto_CU_NomeUsuario = Empty

    CADASTRO_USUARIO.CxaTexto_CU_SenhaUsuario = Empty

    CADASTRO_USUARIO.CxaTexto_CU_ConfirmeSenha = Empty

    CADASTRO_USUARIO.CxaTexto_CU_SenhaAdministrador = Empty

     

    End Sub

    sábado, 28 de novembro de 2015 22:05

Respostas

  • Boa tarde,

    Por falta de retorno do usuário, esta thread será encerrada.

    Caso seja necessário, por gentileza, abra uma thread nova.

    Atenciosamente

    Marcos Roberto de Souza Junior

    Esse conteúdo e fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    • Marcado como Resposta Marcos SJ quarta-feira, 2 de dezembro de 2015 19:30
    quarta-feira, 2 de dezembro de 2015 19:30

Todas as Respostas

  • Qual o erro que aparece?
    sábado, 28 de novembro de 2015 23:20
  • Sub cadastrar_NovoUsuario()

    NomeCompleto = CADASTRO_USUARIO.CxaTexto_CU_NomeCompleto

    Email = CADASTRO_USUARIO.CxaTexto_CU_Email

    NOMEUSUARIO = CADASTRO_USUARIO.CxaTexto_CU_NomeUsuario

    senhaUSUARIO = CADASTRO_USUARIO.CxaTexto_CU_SenhaUsuario

    CONFIRMEsenha = CADASTRO_USUARIO.CxaTexto_CU_ConfirmeSenha

    senhaADMINISTRADOR = CADASTRO_USUARIO.CxaTexto_CU_SenhaAdministrador

    linha = 2

    Do Until Sheets("CADASTRO DE USUARIO").Cells(linha, 1) = ""

    limha = linha + 1

    Loop

    olha o incremento da variavel linha. ta certo?

    segunda-feira, 30 de novembro de 2015 09:56
  • Eulessi,

    Qual seria o erro?

    Atenciosamente


    Marcos Roberto de Souza Junior

    Esse conteúdo e fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    segunda-feira, 30 de novembro de 2015 13:28
  • MUDEI PARA ESTE QUE VI NO YOUTUBE, AI ACRESCENTEI O CAMPO CODIGO, AI TA DANDO ERRO DE DEPURAÇÃO NA LINHA EM NEGRITO. ME AJJD AI!!!!!

    'procedimento para CADASTRAR USUÁRIO

    Sub cadastrar_NovoUsuario()

    Codigo = USUARIOS.CxaTexto_CU_Codigo
    NomeCompleto = USUARIOS.CxaTexto_CU_NomeCompleto
    Email = USUARIOS.CxaTexto_CU_Email
    NOMEUSUARIO = USUARIOS.CxaTexto_CU_NomeUsuario
    senhaUSUARIO = USUARIOS.CxaTexto_CU_SenhaUsuario
    CONFIRMEsenha = USUARIOS.CxaTexto_CU_ConfirmeSenha
    senhaADMINISTRADOR = USUARIOS.CxaTexto_CU_Senha_Administrador

    linha = 2

    Do Until Sheets("USUARIOS").Cells(linha, 1) = ""
    linha = linha + 1
    Loop

    If USUARIOS.CxaTexto_CU_Codig <> "" _
       And USUARIOS.CxaTexto_CU_NomeCompleto <> "" And USUARIOS.CxaTexto_CU_Email <> "" _
       And USUARIOS.CxaTexto_CU_NomeUsuario <> "" And USUARIOS.CxaTexto_CU_SenhaUsuario = CONFIRMEsenha _
       And USUARIOS.CxaTexto_CU_SenhaAdministrador = "ADMIN" Then
       
       Sheets("USUARIOS").Cells(linha, 1) = Codigo
       Sheets("USUARIOS").Cells(linha, 2) = NOMEUSUARIO
       Sheets("USUARIOS").Cells(linha, 3) = senhaUSUARIO
       Sheets("USUARIOS").Cells(linha, 4) = Date
       Sheets("USUARIOS").Cells(linha, 5) = Time
       Sheets("USUARIOS").Cells(linha, 6) = NomeCompleto
       Sheets("USUARIOS").Cells(linha, 7) = Email
       
       LimparCadastro

       MsgBox "USUARIO CADASTRADO COM SUCESSO", vbInformation, "NOVO USUARIO"

    Else: MsgBox "VERIFIQUE OS DADOS DIGITADOS OU A SENHA DO ADMINISTRADOR", vbCritical, "CADASTRO NEGADO"


    End If
    End Sub

    terça-feira, 1 de dezembro de 2015 00:14
  • A LINHA EM NEGRITO DA ERRO DE DEPURAÇÃO

    'procedimento para CADASTRAR USUÁRIO

    Sub cadastrar_NovoUsuario()

    Codigo = USUARIOS.CxaTexto_CU_Codigo
    NomeCompleto = USUARIOS.CxaTexto_CU_NomeCompleto
    Email = USUARIOS.CxaTexto_CU_Email
    NOMEUSUARIO = USUARIOS.CxaTexto_CU_NomeUsuario
    senhaUSUARIO = USUARIOS.CxaTexto_CU_SenhaUsuario
    CONFIRMEsenha = USUARIOS.CxaTexto_CU_ConfirmeSenha
    senhaADMINISTRADOR = USUARIOS.CxaTexto_CU_Senha_Administrador

    linha = 2

    Do Until Sheets("USUARIOS").Cells(linha, 1) = ""
    linha = linha + 1
    Loop

    If USUARIOS.CxaTexto_CU_Codig <> "" _
       And USUARIOS.CxaTexto_CU_NomeCompleto <> "" And USUARIOS.CxaTexto_CU_Email <> "" _
       And USUARIOS.CxaTexto_CU_NomeUsuario <> "" And USUARIOS.CxaTexto_CU_SenhaUsuario = CONFIRMEsenha _
       And USUARIOS.CxaTexto_CU_SenhaAdministrador = "ADMIN" Then

       Sheets("USUARIOS").Cells(linha, 1) = Codigo
       Sheets("USUARIOS").Cells(linha, 2) = NOMEUSUARIO
       Sheets("USUARIOS").Cells(linha, 3) = senhaUSUARIO
       Sheets("USUARIOS").Cells(linha, 4) = Date
       Sheets("USUARIOS").Cells(linha, 5) = Time
       Sheets("USUARIOS").Cells(linha, 6) = NomeCompleto
       Sheets("USUARIOS").Cells(linha, 7) = Email

       LimparCadastro

       MsgBox "USUARIO CADASTRADO COM SUCESSO", vbInformation, "NOVO USUARIO"

    Else: MsgBox "VERIFIQUE OS DADOS DIGITADOS OU A SENHA DO ADMINISTRADOR", vbCritical, "CADASTRO NEGADO"


    End If
    End Sub

          
    terça-feira, 1 de dezembro de 2015 00:15
  • Novamente poderia informar de maneira exata o erro e o código de erro apresentado?

    Marcos Roberto de Souza Junior

    Esse conteúdo e fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    terça-feira, 1 de dezembro de 2015 12:37
  • Boa tarde,

    Por falta de retorno do usuário, esta thread será encerrada.

    Caso seja necessário, por gentileza, abra uma thread nova.

    Atenciosamente

    Marcos Roberto de Souza Junior

    Esse conteúdo e fornecido sem garantias de qualquer tipo, seja expressa ou implícita

    MSDN Community Support

    Por favor, lembre-se de Marcar como Resposta as respostas que resolveram o seu problema. Essa e uma maneira comum de reconhecer aqueles que o ajudaram e fazer com que seja mais fácil para os outros visitantes encontrarem a resolução mais tarde.

    • Marcado como Resposta Marcos SJ quarta-feira, 2 de dezembro de 2015 19:30
    quarta-feira, 2 de dezembro de 2015 19:30