Bom dia!!

Leia as regras, os arquivos devem ser compactados!!

Nossas Regras:
viewtopic.php?f=7&t=203

Quesito REGRAS
Upload de arquivos
Ja temos mais de 1,5GB em arquivos aqui no Planilhando, e como não geramos $$$, temos que ser austeros no uso da banda e recursos, por isso, segue novas regras pra upload de arquivos:
-Tamanho máximo: 2Mb
-Formato obrigatório: .Zip - .rar - .ice

Tente algo como...ponha dentro (no início do.) botão salvar

Dim obj As MSForms.Control
  For Each obj In Me.Controls
   If obj = "" Then
    MsgBox "Preencha os campos " & obj.Name
     Exit Sub
    End If
  Next

peço desculpa .... por nao ter compactado

resolveu mas apareceu novo prolema ... se inserir esse codigo ... se escrever na referencia por exempl 7001-013
uma referencia criada mas sem ser adicionada a a imagem .

e a a abrir e e adicionar imagem ... e depois for gravar da outro erro ...
se me fiz entender

e ai cara ninguem -.- ;S

por favor :S uma maozinha

Não entendi até o momento qual o problema/duvida?

o problema e que agora nao consigo gravar uma imagem ....quer dizer consigo mas nao consigo escolher o destino dela ....

outro problema se por acaso careegar no botao de gravar sem ter nada escrito ou nenhuma imagem .... ele da um erro ... ;S

Pode postar o arquivo (compactado) ?

aqui vai se puderem dar uma olhada agradecia ....

alguem consgui veer ???

Bom dia!!

Talvez te ajude...

 If Not Me.Image_Produto.Picture Is Nothing Then lÁreaTransferência = SetClipboardData(2, Me.Image_Produto.Picture.Handle)
    CloseClipboard

..faça os teste, depois retorne.
http://www.sendspace.com/file/71kduv

Att

ai ... eu sabia que se era fera eheheheh
obrigado viu ...