Caminho para fotos

Boa tarde Pessoal!

"DEUS SEJA LOUVADO"

Tenho um cadastro de clientes onde terei que guardar fotos. Criei um campo tipo anexo para guardar as mesmas, porém um colaborador aqui (Crisostomo) alertou para não colocar anexos no banco. Fiz algumas modificações no design do formulário de clientes, porém naõ sei como criar um caminho para inserir as fotos. Preciso que ao clicar no botão Inserir Foto, seja feita uma verificação se a pasta com o nome deste cliente já existe, se não preciso que seja criada uma pasta com o nome do cliente atual no caminho do banco atual e seja aberta a janela do explorer para inserir a mesma. Conto com a ajuda de vocês. Vlw. Segue o arquivo.

Olhe este topico:

https://www.maximoaccess.com/t17653-colocar-varias-fotos-por-registo-em-formulario-no-access-2010-de-64-bits?highlight=fotos

Bom dia"

"DEUS SEJA LOUVADO"

Olhei o link que sugeriram. Como tenho conhecimento limitado em vba, pra mim tá tudo em grego. Se alguém puder ajudar fico grato.

No momento estou fora do escritorio , quando chegar e não tiver resolvido eu dou uma olhada no arquivo

Esse sistema guarda a foto já gravando o  nome da pessoa, se quiser colocar a pasta em outro lugar, (recomento colocar no disco) você altera o caminho da Foto2 no vba.
Abçs

Bom dia Crysostomo!

"DEUS SEJA LOUVADO"

Obrigado por compartilhar seu conhecimento. Meu OS é 64 bits e por isso o código não funcionou, se tiver outra forma de resolver poste por favor. Vlw

influentemente tem isso, o 64bits tinha que declario
O que ele está pedindo? se for prsafe coloque a declaração da olhadinha
https://docs.microsoft.com/en-us/previous-versions/office/developer/office-2010/ee691831(v=office.14)
depois você volta pra pra ver se deu certo, e me ajudar , porque ainda estou com 32 bit mas pra frente vou ter problema com isso .

Boa noite Crysostomo"

"DEUS SEJA LOUVADO"

Dei uma olhada no link que vc sugeriu, mas para mim está em grego. Vlw

Voubdar uma olhada nisso por tbm mais a frente vou precisar é te mando o arquivo declarado

Boa tarde Crysostomo!
"DEUS SEJA LOUVADO"

Para o código funcionar em 64 bits basta colocar a instrução PtrSafe na frente da palavra Declare. Com isso o programa funciona normalmente, porém seu creio que falta algo no seu código, quando clico em localizar o foco vai para o caminho, porém nada acontece e a foto não é mostrada. Se puder dar uma olhada agradeço.

Bom dia"

Alguém teria uma solução para o problema mencionado? To no aguardo.
Grato

Qual é a mensagem que aparece na tela? para rodar  64 na linha de erro, Antes de Function Coloque PtrSafe. Salve e faça o teste. Ficara assim: PtrSafe Function .....
se não aparecer mensagem pedindo PtrSafe
coloque assim:

Código:

Option Compare Database
Option Explicit
#if Win64 then
  Declare PtrSafe Function MyMathFunc Lib "User32" (ByVal N As LongLong) As LongLong
#else
  Declare Function MyMathFunc Lib "User32" (ByVal N As Long) As Long
#end if
#if VBA7 then
  Declare PtrSafe Sub MessageBeep Lib "User32" (ByVal N AS Long)
#else
  Declare Sub MessageBeep Lib "User32" (ByVal N AS Long)
#end if

Boa noite!

"DEUS SEJA LOUVADO"

Tentei sem sucesso o recomendado. O que desejo é ao cadastrar um cliente o campo endereço das fotos receba o caminho do banco atual + pasta fotos + nome do cliente, ao clicar no botão inserir foto seja aberto o caminho endereço das fotos e na caixa de listagem abaixo seja listado as fotos do cliente e ao clicar na lista a foto seja mostrada no quadro. Segue a BD.

Grato