[Resolvido]Impressão de imagens

Olá, J. Paulo e todos

Bem, é sobre impressão de imagens no Access através de uma tabela de configuração apontando unicamente para o caminho das imagens.
Exemplo: na tabela (Configuração) determinar um único caminho C:\IMAGENS
É que quero evitar ter que adicionar em cada registro o caminho de cada imagem, tipo:
c:\imagens\foto1.jpg
c:\imagens\foto2.jpg
c:\imagens\foto3.jpg
c:\imagens\foto4.jpg
c:\imagens\foto5.jpg
...
...
...
O resto o VBA se encarrega de fazer.

Sim, e qual a sua dúvida?

Olá, Topbr. Minha dúvida é justamente como fazer isto. Tenho um exemplo mas não funciona. Tem a tabela Configuração (caminho) e o VBA no detalhe do relatório mas não aparece a imagem na visualização para impressão.

Exemplo de uma pasta de nome Fotos em C:\

Cada foto terá neste exemplo o nome do Cliente .jpg

......................................................................

Option Explicit

Private Sub Detalhe_Print(Cancel As Integer, PrintCount As Integer)
On Error Resume Next
If IsNull(Me.Cliente) Then
Me.CampoImagem.Picture = "C:\Fotos\SemFoto.jpg"

ElseIf FileExists("C:\Fotos\" & Cliente.Value & ".jpg") = False Then
Me.CampoImagem.Picture = "C:\Fotos\SemFoto.jpg"

Else
Me.CampoImagem.Picture = "C:\Fotos\" & Cliente.Value & ".jpg"
End If
Erro:
Exit Sub
End Sub



Function FileExists(ByVal strFile As String, Optional bFindFolders As Boolean) As Boolean

Dim lngAttributes As Long

lngAttributes = (vbReadOnly Or vbHidden Or vbSystem)

If bFindFolders Then
lngAttributes = (lngAttributes Or vbDirectory)
Else

Do While Right$(strFile, 1) = "\"
strFile = Left$(strFile, Len(strFile) - 1)
Loop
End If

On Error Resume Next
FileExists = (Len(Dir(strFile, lngAttributes)) > 0)
End Function

Olá, JPaulo, desculpe mas não estou conseguindo montar o código. Prefiro usar o código da matrícula (exemplo: 0001, 0002, ...) para vincular às imagens (exemplo: 0001.jpg, 0002.jpg, ...). Minha tabela contém: Nome, Cod_Matricula, Turma, Turno e Foto.
Se não lhe causar nenhum inconveniente, gostaria, se puder, disponibilizar um arquivo já pronto. Se não, que você me oriente como fazê-lo. Muito grato !

Coloque aqui e passe o link;

http://www.speedyshare.com/

http://www.speedyshare.com/files/22527742/Ficha_do_Aluno.mdb

Coloque essa foto que lhe mando, na pasta C:\imagens

http://dl.dropbox.com/u/771097/Francisco.rar

JPaulo, mais uma vez você demonstra ser uma grande pessoa e um excelente profissional. Parabéns pela gentileza e delicadeza com o tratamento que dá a nós mortais e amantes do glorioso MSACCESS. Nota 1.000, está funcionando perfeitamente seu exemplo e nem precisa daquela tabela Configurações. O VBA é muito poderoso, igualzinho a você. Valeu !
No outro modelo que tenho, eu tinha que colocar na tabela localização todos os registros com o caminho: c:\imagens\foto1.jpg; c:\imagens\foto2.jpg... mas agora, nesse seu método, nunca mais !

Valew pelo retorno amigo.

Se precisar de novo dê um grito.