Usuário com melhor resposta
ESTE CODIGO DA ERRO AO CADASTRAR MAIS DE UM REGISTRO. ME AJJD. A ACHAR ONDE ESTA ESTE ERRO?

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
Respostas
-
Boa tarde,
Por falta de retorno do usuário, esta thread será encerrada.
Caso seja necessário, por gentileza, abra uma thread nova.
AtenciosamenteMarcos 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
Todas as Respostas
-
-
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?
-
Qual seria o erro?
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.
-
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 -
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 -
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.
-
Boa tarde,
Por falta de retorno do usuário, esta thread será encerrada.
Caso seja necessário, por gentileza, abra uma thread nova.
AtenciosamenteMarcos 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