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

 > 

  • Pergunta

  • Question
    Entrar para Votar
    0
    Entrar para Votar

    '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

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    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

  • Question
    Entrar para Votar
    0
    Entrar para Votar
    Qual o erro que aparece?
    sábado, 28 de novembro de 2015 23:20
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar

    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
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar
    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
    |
  • Question
    Entrar para Votar
    0
    Entrar para Votar
    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
    |