SANDWICH PROJECT 2016 - VBA Access - Importando Fotos de um Diretório - Import Photos from Directory

SANDWICH PROJECT 2016 - VBA Access - Importando Fotos de um Diretório - Import Photos from Directory

Talvez precise importar as fotos de um cadastro de funcionários | clientes | fornecedores, ou criar um catálogo, album de fotos, etc... E deseje manter todas as fotos dentro de um arquivo MS Access.

 Aprenda: 17 Passos Essenciais para Melhorar seu Código VBA 

Isso é recomendável? Não!

É possível? Sim!

Crie uma tabela com a seguinte especificação dentro do seu banco de dados MS Access.

Em seguida crie um módulo como o nome de mdl_Importando_Imagens.

Em seguida cole o código abaixo nele:

Sub ImportPhotosFromDirectory()

        '      Author: André Luiz Bernardes - A&A - In Any Place - andreluizbernardess@gmail.com

    '        Date: 17/05/2016 - 15:14

    ' Application: Field Force Dashboard Analysis® - © A&A - In Any Place 2016, Inc. Todos os direitos reservados.

    '     Company: © A&A - In Any Place 2016, Inc. Todos os direitos reservados.

    '     Purpose: Import Photos from Directory.

    ' C:\Users\Photos

    Dim db As DAO.Database

    Dim rs As DAO.Recordset

    Dim oFS As New FileSystemObject

    

    Dim oFolder As Folder

    Dim oFile As File

    Dim nPath As String

    Let nPath = "C:\Users\Photos"

    Set db = CurrentDb()

    Set rs = db.OpenRecordset("tbl_Photos")

    Set oFolder = oFS.GetFolder(nPath)

    With rs

        For Each oFile In oFolder.Files

            Debug.Print oFile.Name

            

            .AddNew

                        

            Let !PhotoName = oFile.Name

            Let !Photo = oFile

            

            .Update

        Next oFile

    End With

End Sub

Ahhh, não se esqueça de manter a seguinte referência em seu projeto MS Access:

brazilsalesforceeffectiveness@gmail.com