Criei um UserForm e coloquei dois botões.
1. seleciona a imagem do cliente
2. exclui a imagem do cliente
O seleciona funciona bem, porém quando clico em excluir a imagem desaparece do form (beleza), porém quando abro a tela do cliente lá está ela de novo, quando tento selecionar outra pra gravar por cima, o que acontece????
NADA
lá está minha imagem inicial de novo.
E se eu gravar um cliente sem imagem, não consigo mais colocar imagem depois.
os meus códigos são:
1. selecionar
'BOTÃO SELECIONAR FIGURA DO CLIENTE
Private Sub botaoselecionar_Click()
Exibe_Caixa_Dialogo
End Sub
'AÇÃO QUE SELECIONARÁ A FIGURA DO CLIENTE
Sub Exibe_Caixa_Dialogo()
Set CaixaDialogo = Application.FileDialog(msoFileDialogFilePicker)
With CaixaDialogo
.Title = "ARSSISTEC - Somente Imagens JPG ou Gif"
.InitialView = msoFileDialogViewPreview
.AllowMultiSelect = False
If .Show = -1 Then
EnderecoImagem = .SelectedItems(1)
Image_client.Picture = LoadPicture(.SelectedItems(1))
End If
End With
End Sub
2. excluir:
'BOTÃO EXCLUIR FIGURA DO CLIENTE
Private Sub botaoexclui_Click()
'quando clicar no botão não deve mais autorizar imagem, e deve colocar como endereço da imagem "nada"
With Image_client
.Picture = Nothing
End With
EnderecoImagem = ""
End Sub
E não adianta salvar vazio que a imagem volta depois.
no módulo está
Public EnderecoImagem As String
na atualização da planilha está
.cells(dadoslinha,28).value = EnderecoImagem
na atualização do form está
Enderecoimagem=.cells(dadoslinha,28).value
Image_client.Picture = LoadPicture(EnderecoImagem)
na limpeza do form está:
Image_client.Picture = Nothing
EnderecoImagem = ""
AMIGOS, AJUDEM-ME COM ESSA DÚVIDA. MUITO OBRIGADO DESDE JÁ
Medeiros
