locked
Deletar Imagem do Cliente RRS feed

  • Pergunta

  • 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
    sexta-feira, 4 de fevereiro de 2011 17:57