[Resolvido]Formulario - Localizar foto em diretorio

Boa tarde colegas,

Procurei sobre isso nos tópicos mas não encontrei, no access 2007 preciso criar um formulário simples que eu digite o nome da foto e ao clicar num botão ele procure a foto num diretório determinado, se essa foto existir deve ser mostrada do formulário, caso contrario me fale uma mensagem que essa foto não existe.Pois eu não quero cadastrar foto por foto, só localiza-la e visualiza-la.

Por exemplo eu digito "Motor ID 123456", ai o access vai no diretório C:\Users\Daniel\Desktop\Kit\Fotos\ e procura a foto Motor ID 123456.jpeg e aparece no formulário.

Agradeço desde já a ajuda.

Amigão, dê uma procurada no fórum por "imagem" ou "Picture". Temos diversos tópicos com muitas dicas sobre o assunto. Vai lhe ser bem mais instrutivo do que responder aqui.

Criquio, obrigado pela resposta.

Então, eu encontrei alguns exemplos bons, mas todos tem que cadastrar a foto como um registro para poder consultar depois. Meu problema é que eu tenho muitas fotos e não queria cadastra-las para consultar a imagem, somente digitar o nome da foto e o access procura a foto no diretório e mostra a imagem no formulario.

Veja esse tópico

Criquio obrigado pela resposta, eu adaptei um exemplo que encontrei aqui no forum para minhas necessidades, mas ainda não consegui utilizar da forma que vc me falou, eu clico no botão e preciso procurar a foto no diretorio, existe algum codigo que ao digitar o numero ele mesmo procure na pasta.

Vou colocar aqui o que consegui até o momento, abraço.

Não consegui utilizar esse codigo:

Me.NomeControleImagem.Picture = CurrentProject.Path & "\Nome da subpasta\Nome da imagem.jpg"

Fiz assim:

Me.Image1.Picture = CurrentProject.Path & "\Fotos\Nome da imagem.jpg"

Mas como eu declado o caminho das imagens no CurrentProject.Path ? e como eu faço para concatenar o caminho da imagem com o nome que eu digitar + .jpeg quando eu der enter?

abraço

Olá Criquio,
Consegui resolver com este código que estava em outro tópico, acho que você mesmo que desenvolveu.

Private Sub Localizar_AfterUpdate()
If Len(Dir(CurrentProject.Path & "\" & Me.Localizar & ".jpg", vbArchive)) > 0 Then
Me.Imagem.Picture = CurrentProject.Path & "\" & Me.Localizar & ".jpg"
Else
MsgBox "Ou o nome da foto está incorreto ou ainda não existe uma imagem para este motor", vbCritical, "Atenção"
End If
End Sub


A unica coisa que não consegui foi criar uma subpasta chamada Fotos para separar o Banco das imagens, ele não encontra o caminho, tentei desta forma:

If Len(Dir(CurrentProject.Path & "\Fotos" & Me.Localizar & ".jpg", vbArchive)) > 0 Then
Me.Imagem.Picture = CurrentProject.Path & "\Fotos" & Me.Localizar & ".jpg"

Sabe me indicar como faz?

obrigado

Fotos deve ficar entre barras invertidas. Observe:

C:\Pasta do aplicativo\FotosNome da foto.jpg
                            ↓
C:\Pasta do aplicativo\Fotos\Nome da foto.jpg

Observe que do jeito que você fez está faltando a barra que separa as pastas do arquivo de imagem.

Em uso a técnica de, em uma tabela direcionar o caminho da pasta de imagens, pois ela pode estar em rede, e ao abrir o programa pela 1º vez, ele pede o direcionamento dessa pasta, ao salvar cola o caminho na tabela

Depois é tranquilo. ao carregar o form usa-se o código para vincular.

Outro codigo legal que eu uso muito é para trazer algum imagem relacionada a algum código ou matricula de funcionário

Utilizo o código:

Dim CaminhoImagem As String
CaminhoFotos = DLookup("[CaminhoFotos]", "[TblConfiguracao]")
CaminhoFotos = CaminhoFotos & Me!TxtMatricula & ".jpg"
If Len(Dir(CaminhoFotos) & "") > 0 Then
Me.ImagemForm.Picture = CaminhoFotos
Else
Me.ImagemForm.Picture = ""
End If


Onde TxtMatricula é a matricula do funcionário da empresa.

Quando salvar a foto dele em uma pasta, basta salvar com o nº matricula, e no formulario ao digitar a matricula , aparece a foto dele.

At+

Otimo, deu certo aqui.

Tanto a explicação do Criquio quanto a do Jose dão certo.

Muito obrigado,mais um topico resolvido.