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]Falha em código "Inserir imagem".

    julianovv
    julianovv
    Super Avançado
    Super Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 653
    Registrado : 14/12/2010

    [Resolvido]Falha em código "Inserir imagem". Empty [Resolvido]Falha em código "Inserir imagem".

    Mensagem  julianovv 10/3/2022, 14:31

    Bom dia. Estou com esse código para inserir fotos que funciona bem mas não está salvando na pasta que deveria. Sempre salva no diretório do banco de dados mesmo com a pasta "CopiaFotos" definida (linha destacada em vermelho).
    Tem como alterar isso salvando na pasta definida?

    Seguem os dados da tabela de estoque:

    NOME DO CAMPO => TIPO DE DADOS / DESCRIÇÃO

    CodEstoque => Numeração automática / Código automático do material.
    dataentrada => Data/Hora / A data que o material deu entrada no estoque.
    nome_material => Texto / O nome do material disponível.
    categoria => Texto / Nome do tipo de material (para caixa de combinação).
    qtde => Texto / Quantidade do material. Medidas variadas (gramas, quilos, mililitros, litros, metros, centímetros).
    LocalFotos => Texto / O local da foto do material.

    Segue o código com o destaque em vermelho:

    Private Sub btInsere_Click()
      'By ToPBr 2010
      'Adicionar foto a registro e copiar arquivo de foto para pasta do bd
      Dim strCaminho As String, strPastaInicial As String
      Dim CopiaSegura As Object
      Dim Caminho As String
      Dim fso As Object
      Dim cam As String
     
      On Error GoTo TrataErro
     
      If IsNull(Me.nome_material) = True Then
         MsgBox "Para inserir a foto será necessário informar o nome do material.", vbInformation, "Aviso"
         DoCmd.CancelEvent
         Me.nome_material.SetFocus
      Else
         strPastaInicial = "C:\Documents and Settings\Juliano\Meus documentos\Condominio\EstoqueFotos\LocalFotos"
         strCaminho = Buscar(Me.hwnd, "Inserir foto", strPastaInicial, _
         "Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
         
        If Len(strCaminho) > 0 Then
        cam = CurrentProject.Path & "\CopiaFotos" ' Caminho do bd mais a pasta Copiafotos
           
        ' Faz a cópia do arquivo para a pasta do bd e sub pasta CopiaFotos renomeando para jpg
        Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
        CopiaSegura.CopyFile strCaminho, cam & Me.CodEstoque.Value & Me.nome_material.Value & ".jpg"

           
            Me.LocalFotos = cam & Me.CodEstoque.Value & Me.nome_material.Value & ".jpg"
            Me.img.Picture = Me.LocalFotos
         End If
      End If ' fim do if que verifica campos Material e CodEstoque.
     
    TrataErro:
      If Err.Number = 76 Then
         MsgBox "Reveja o material. Nome de arquivo inválido!", vbInformation, "Atenção"
      End If
    End Sub

    Obrigado!
    Wink


    .................................................................................
    Juliano

    USO O ACCESS 2007 NO XP SP3
    Pentil 4 Duo Core 2 - 3.2 ghz - HD 250 GB ATA II - Placa Asus P5QPL-AM - 2 GB de memória DDR2 667 mhz Kingston - GForce GT220 - LG Led LCD 20M35PD - Impressora Epson T33 - Scanner Bright.
    Smile
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 10765
    Registrado : 04/11/2009

    [Resolvido]Falha em código "Inserir imagem". Empty Re: [Resolvido]Falha em código "Inserir imagem".

    Mensagem  JPaulo 10/3/2022, 16:40

    Duas possibilidades:

    1ª cam = CurrentProject.Path & "\CopiaFotos\"

    Ou

    2ª CopiaSegura.CopyFile strCaminho, cam & "\" & Me.CodEstoque.Value & Me.nome_material.Value & ".jpg"


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Falha em código "Inserir imagem". Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Falha em código "Inserir imagem". Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Falha em código "Inserir imagem". Folder_announce_new Instruções SQL como utilizar...

      Data/hora atual: 24/9/2022, 21:00