[Resolvido]Inclusão de imagens em formulário

Pessoal,

Eu tenho um Banco de dados com mais de 1000 registros, a cada um desses registros, corresponde uma imagem que se encontra na pasta "imagens" eu não quero armazenar essas imagens na tabela, prefiro que elas fiquem na pasta mesmo. O que eu desejo, é criar no formulário um controle imagem ou campo para que a imagem seja mostrada e que eu possa escolher para aquele registro, a imagem correspondente. Explicando melhor, colocaria um botão ao lado do campo imagem, que abriria uma caixa de dialogo e escolheria então a imagem daquele registro. Eu ja comecei a fazer alguma coisa aqui usando a "microsoft office 11.0 Object Library", consegui colocar a imagem no primeiro registro, porem quando vou para o segundo registro que não tem imagem ainda, o access mostra um erro. Eu pensei em criar no photoshop, uma imagem onde teria escrito "SEM IMAGEM" e ela seria colocada ou apareceria de imediato, para aqueles registros que ainda não tem uma imagem. O meu BD trata-se de um BD onde eu estou cadastrando o meu acervo de filmes, quando eu comecei o dito cujo, era so informação de texto puro, ai eu para dar uma incrementada, resolvi colocar um pequeno poster de cada filme, so que eu ja tinha digitado mais de 1000 filmes. Se alguem puder me dar uma ideia de como fazer, eu agradeceria.

Grato

Por que não nomeia as imagens com o código ou título do filme? Você pode colocar uma pasta com o nome de Imagens dentro da pasta do aplicativo e colocar as imagens dentro dessa pasta. No seu formulário, você coloca:

Me.NomeDoControleImagem.Picture = CurrentProject.Path & "\" & Me.Código & ".jpg"

Caso não lembre os nomes dos filmes olhando para a imagem, pode usar o objeto FileDialog para acessar a imagem usar a instrução Name para renomear a imagem.

Mas as imagens ja estão com o mesmo nome do filme, logico que algumas o nome está abreviado devido o nome do filme ser as vezes, imenso. Pensei em colocar um campo no formulario com o nome do arquivo da imagem, dai é so implementar sua dica pegando o nome da imagem no proprio campo. Eu queria ver se implementaria a caixa de dialogo, onde eu pudesse ir na pasta e escolher a imagem, mas de qualquer forma, sua dica ja ajudou bastante. Obrigado.

Veja se consegue garimpar algo de útil aqui:

http://maximoaccess.forumeiros.com/t2843-interacao-consulta-modulo-formulario-continuo

Amigo,

Eu tentei fazer dessa forma

Private Sub Form_Load()

Dim pathBD As String

Set pathBD = "..\imagens\"

Me.Poster.Picture = pathBD& & Me.Foto

End Sub

pathBD, seria o local onde se encontram as imagens dos filmes
Poster é o controle da imagem no formulario
Foto é o campo que contem o nome da imagem por exemplo: duro_de_matar.jpg
Coloquei o codigo no evendo ao carregar do formulário, mas não estou conseguindo, o que fiz de errado?

Pode colocar o caminho direto:

Me.Poster.Picture = CurrentProject.Path & "\Imagens\" & Me.Foto & ".jpg"

CurrentProject.Path busca a pasta do bd. Depois, junta ela com a pasta Imagens, depois junta o nome no campo Foto e depois adiciona a extensão.

Me.Poster.Picture = CurrentProject.Path & "\Imagens\" & Me.Foto & ".jpg"

Só mais uma dúvida, existe a necessidade de colocar o .jpg no final? pergunto, porque o campo que guarda o nome da imagem, guarda o nome completo incluindo a extensão ex: duro_de_matar.jpg.

grato

Se tem a extensão no campo então não precisa adicionar:

Me.Poster.Picture = CurrentProject.Path & "\Imagens\" & Me.Foto

Olá Criquio,

Antes de mais nada, deixe-me agradecer pela sua ajuda. São poucas as pessoas que se predispõe a ajudar. Fiz tudo como vc me orientou e realmente funcionou. So tem um pequeno detalhe, quando eu movo para o proximo registro, a imagem que aparece, é a do anterior. Independente do registro a imagem sempre é a do primeiro. Não estou em casa, estou no meu trabalho, a fim de testar sua ultima dica, criei um pequeno BD exemplo com 3 campos:

ID
Titulo (Titulo do filme)
Imagem (Guarda o nome da imagem)

coloquei no formulário, um controle do tipo imagem e dei-lhe o nome de Poster. depois fui nas propriedades do formulário e no evento ao carregar coloquei:

Me.Poster.Picture = CurrentProject.Path & "\imagens\" & Me.Imagem

Funcionou bonito, apenas com o problema mencionado acima, ou seja, a imagem do primeiro registro, permanece para todos. Talvez eu tenha colocado o código no lugar errado, pois coloquei no evento ao carregar do formulário, vou tentar mudar o local, quem sabe no evento ao mudar ou no atual.

abs

Ola criquio,

Consegui!!! coloquei o código no evento "No Atual" e funcionou. Obrigado

Grande abraço

É isso aí. É programando que se aprende a programar

Só faltou clicar no Resolvido. Dessa vez eu o faço.