Notifications
Clear all

Erro em salvar registro

4 Posts
2 Usuários
0 Reactions
1,065 Visualizações
Filipeb
(@filipeb)
Posts: 34
Eminent Member
Topic starter
 

Bom dia , tenho 2 formulários iguais , só que o de cadastro de cliente está com erro em salvar o registro!
Não consigo identificar o problema , diz erro de compilação , variavel não definida!

"A inovação é o que distingue um Líder de um Seguidor."
~ Steve Jobs

 
Postado : 12/12/2016 6:22 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Seu arquivo tem senha, talvez seu projeto também...

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/12/2016 6:47 am
Filipeb
(@filipeb)
Posts: 34
Eminent Member
Topic starter
 

Bom dia, é so clicar na parte branca do login, na parte cinza do fundo que vai abrir a planilha

Caso não de o usuario é Filipe a senha e 456456f

"A inovação é o que distingue um Líder de um Seguidor."
~ Steve Jobs

 
Postado : 12/12/2016 6:58 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

Favor revisar o seu projeto, pois sua adaptação ainda falta alguns detalhes!!

Essa variável está errada colDataDataNascimento deveria ser colDataNascimento

Private Sub SalvaRegistro(ByVal id As Long, ByVal indice As Long)
    With wsCadastro 'Qual a guia que recebe esse nome
        .Cells(indice, colNumeroCliente).Value = id
        .Cells(indice, colNomeCliente).Value = Me.txtNomeCliente.Text
        .Cells(indice, colCPF).Value = Me.txtCPF.Text
        .Cells(indice, colEndereço).Value = Me.txtEndereço.Text
        .Cells(indice, colCidade).Value = Me.txtCidade.Text
        .Cells(indice, colEstado).Value = Me.txtEstado.Text
        .Cells(indice, colTelefone).Value = Me.txtTelefone.Text
        .Cells(indice, colDataDataNascimento).Value = Me.txtDataNascimento.Text
        .Cells(indice, colCEP).Value = Me.txtCEP.Text
        .Cells(indice, colEmail).Value = Me.txtEmail.Text
    End With

    Call AtualizaRegistroCorrente
End Sub

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 12/12/2016 7:41 am