Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Erro de Linha ao salvar

Esclarecimentos e dúvidas sob o Modelo de Aplicativo de Cadastro em VBA no Microsoft Excel publicado no site e blog http://www.tomasvasquez.com.br
NERI INACIO
Colaborador
Colaborador
Mensagens: 62
Registrado em: Sáb Fev 27, 2016 7:31 pm

Erro de Linha ao salvar

Mensagem por NERI INACIO »

Boa tarde Pessoal
Encontrei um pequeno bug num modelo de cadastro que está postado no link:
Versão 2 http://www.tomasvasquez.com.br/download ... tro_v2.zip

Não sei se já foi respondido ou não.
De qualquer forma o erro acontece assim:
Clico em "Novo" e cadastro um nome qualquer. Clicar em Salvar, para que salve. Sem sair do cadastro e sem se deslocar para outros lançamentos, clique em "Alterar" e digite algo.

A alteração irá sobrepor o primeiro lançamento da planilha. O que é possível fazer para evitar isto?


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


NERI INACIO
Colaborador
Colaborador
Mensagens: 62
Registrado em: Sáb Fev 27, 2016 7:31 pm

Re: Erro de Linha ao salvar

Mensagem por NERI INACIO »

Encontrei a resposta dada pelo fabricio_sp30
viewtopic.php?f=5&t=651&start=10

If optNovo.Value Then
proximoId = PegaProximoId
'pega a próxima linha
Dim proximoIndice As Long
'atualiza o arquivo para pegar o próximo registro atualizado
Call AtualizarArquivo(False)
proximoIndice = wsCadastro.UsedRange.Rows.Count + 1
Call SalvaRegistro(proximoId, proximoIndice)
Call CarregaDadosInicial ' INCLUSAO PARA SOLUCAO DE DUPLICIDADE
Call btnUltimo_Click ' INCLUSAO PARA SOLUCAO DE DUPLICIDADE

txtCodigoID = proximoId
lblMensagem.Caption = "Registro salvo com sucesso."
End If


Responder