MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access


2 participantes

    [Resolvido]Apagar imagem de uma pasta.

    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3948
    Registrado : 21/04/2011

    [Resolvido]Apagar imagem de uma pasta. Empty Apagar imagem de uma pasta.

    Mensagem  Marcelo David 6/8/2011, 04:23

    Bom dia meus amigos.
    Uso o código abaixo para inserir imagem em form, só que para excluir a imagem inserida não sei como proceder. Por exemplo, se eu apagar o caminho da imagem ela logicamente some do form. O que gostaria é que além de sumir do form, também apagasse a imagem da pasta.

    O código é esse (Autor: ToPBr)



    Dim strCaminho As String, strPastaInicial As String
    Dim CopiaSegura As Object
    Dim Caminho As String
    Dim fso As Object
    Dim cam As String

    strPastaInicial = "C:\Meus Documentos"
    strCaminho = Buscar(Me.hwnd, "Inserir capa", strPastaInicial, "Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
    If Len(strCaminho) > 0 Then

    cam = CurrentProject.Path & "\Capas\" ' Caminho do bd mais a pasta fotos

    ' Faz a cópia do arquivo para a pasta do bd e sub pasta Fotos renomeando para jpg
    Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
    CopiaSegura.CopyFile strCaminho, cam & Me.RegID.Value & Me.Titulo.Value & ".jpg"

    Me.FotoCapa = cam & Me.RegID.Value & Me.Titulo.Value & ".jpg"
    Me.Ima.Picture = Me.FotoCapa

    End If
    End If

    Grato


    .................................................................................
    [Resolvido]Apagar imagem de uma pasta. Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Apagar imagem de uma pasta. Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Apagar imagem de uma pasta. Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Apagar imagem de uma pasta. Marcel11
    criquio
    criquio
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 11229
    Registrado : 30/12/2009

    [Resolvido]Apagar imagem de uma pasta. Empty Re: [Resolvido]Apagar imagem de uma pasta.

    Mensagem  criquio 6/8/2011, 04:38

    Use o Kill e depois limpe o controle imagem para não dar erro:

    Kill "Caminho completo da imagem"
    Me.NomeControleImagem.Picture = ""


    Eu uso algo assim nesse exemplo:
    http://maximoaccess.forumeiros.com/t2843-interacao-consulta-modulo-formulario-continuo


    .................................................................................
    Meu novo site: www.vcssistemas.com.br

    Clique aqui e veja um vídeo que explica como fazer pesquisas no forum.


    DICA: Quando precisar inserir um exemplo do seu aplicativo, siga os procedimentos abaixo:
    1 - faça uma cópia do aplicativo
    2 - retire tudo que não for necessário à solução do problema, exceto o que o aplicativo precisar para funcionar
    3 - use o Compactar/Reparar
    4 - compacte o aplicativo em zip ou rar (zip para postagem como anexo na mensagem)


    Agradeça a quem lhe ajudou, clicando no joinha de uma das mensagens do usuário.
    Positive as mensagens que achar útil, no canto superior direito delas.

    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3948
    Registrado : 21/04/2011

    [Resolvido]Apagar imagem de uma pasta. Empty Re: [Resolvido]Apagar imagem de uma pasta.

    Mensagem  Marcelo David 6/8/2011, 04:51

    Nossa, amigão, não tinha visto seu exemplo, gostei dele, além de muitos códigos interessantes!!!
    Quanto a apagar as imagens, funcionou direitinho!!!

    Muito obrigado


    .................................................................................
    [Resolvido]Apagar imagem de uma pasta. Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Apagar imagem de uma pasta. Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Apagar imagem de uma pasta. Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Apagar imagem de uma pasta. Marcel11
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3948
    Registrado : 21/04/2011

    [Resolvido]Apagar imagem de uma pasta. Empty Re: [Resolvido]Apagar imagem de uma pasta.

    Mensagem  Marcelo David 6/8/2011, 04:58

    Ops, resolvido.


    .................................................................................
    [Resolvido]Apagar imagem de uma pasta. Favicon-16x16   Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
    [Resolvido]Apagar imagem de uma pasta. Favicon-16x16   Access e VBA - Formulário Desacoplado - [Passo a passo]
    [Resolvido]Apagar imagem de uma pasta. Yt_16x10 Conheça meu canal no Youtube e se inscreva.
    [Resolvido]Apagar imagem de uma pasta. Marcel11

    Conteúdo patrocinado


    [Resolvido]Apagar imagem de uma pasta. Empty Re: [Resolvido]Apagar imagem de uma pasta.

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/11/2024, 12:42