Notifications
Clear all

Erro em salvar registro

4 Posts
2 Usuários
0 Reactions
1,054 Visualizações
(@filipeb)
Posts: 0
New 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!

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

Bom dia!!

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

Att

 
Postado : 12/12/2016 6:47 am
(@filipeb)
Posts: 0
New 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

 
Postado : 12/12/2016 6:58 am
(@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

 
Postado : 12/12/2016 7:41 am