Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
Cadastro de cliente...
 
Notifications
Clear all

Cadastro de clientes com foto - erro na hora de editar

 
2024 - VBA & Macros
Post Recente por Hsantos01 8 anos atrás
6 Posts
3 Usuários
0 Reactions
1,792 Visualizações
RSS
 Hsantos01
(@hsantos01)
Posts: 29
Eminent Member
Topic starter
 

Olá a todos!

Alguém conseguiria me ajudar nessa planilha? Eu praticamente terminei ela, mas está dando "erro" num pequeno detalhe.

Eu cadastro um novo cliente com foto e tudo bem!
Quando vou pesquisar esse mesmo cliente, a foto aparece normalmente, mas quando eu faço uma edição no cadastro (exemplo: data de nascimento ou qualquer outro campo). Ai vou pesquisar novamente esse mesmo cliente e a foto desaparece.

Acredito que o erro esteja na hora de salvar a edição. Algo relacionado a foto, mas não sei o que é.

Quem puder me ajudar, ficarei muito grato!

Em anexo está a planilha. Para adicionar um cadastro novo, os campos Código, Nome e CPF são obrigatórios.

 
Postado : 04/03/2017 3:28 pm
 vinniz
(@vinniz)
Posts: 27
Eminent Member
 

Boa noite!
No seu botão de salvar as alterações tem o comando abaixo, que acredito estar limpando sua foto:
Image3.Picture = LoadPicture("")

Abs,
Vinicius

 
Postado : 04/03/2017 5:00 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Ao salvar os dados na rotina do editar, e "salvo" o endereço da foto pela variavel "Foto", porem essa so e carregada se alterar a imagem, caso contrario e salvo como null.
Uma possibilidade é:
No modulo 2 altere a declaração Public acrescentando a variavel EnderecoImagem

Public Foto As String, EnderecoImagem As String
Global onOff As Boolean

na rotina de salvar a edição "Private Sub cmdalterar_Click()"
altere a linha:

ActiveCell.Offset(0, 21).Value = Foto

Para:

If Foto <> "" Then
    ActiveCell.Offset(0, 21).Value = Foto
Else
    ActiveCell.Offset(0, 21).Value = EnderecoImagem
End If

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

 
Postado : 04/03/2017 5:19 pm
 Hsantos01
(@hsantos01)
Posts: 29
Eminent Member
Topic starter
 

Reinaldo

Obrigado pela resposta!
Usei a sua dica, mas não consegui. Agora não mostra nenhuma imagem na pesquisa.

 
Postado : 04/03/2017 6:55 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Veja se atende

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

 
Postado : 04/03/2017 7:50 pm
 Hsantos01
(@hsantos01)
Posts: 29
Eminent Member
Topic starter
 

Muito obrigado Reinaldo! Agora deu tudo certo!

 
Postado : 05/03/2017 5:47 pm
Forum Jump:
  Tópico Anterior
Próximo Tópico