[Resolvido]problema com localização de fotos

Boas
bem sou mais um que pouco ou nada percebe de acess e com a vossa ajuda estou a aprender algumas coisas,
bem o meu problema é o seguinte construí uma base de dados em acess 2003 que se encontra numa pen, e um dos campos da tabela é fotos, onde aparece o caminho
onde estão guardadas as fotos exemplo E:\Fotos\foto.jpg,são cerca de 500 fotos.Sempre que selecciono um registo no formulário aparece a dita foto relacionada com esse registo, bem como no relatório a ele associado, até aqui sem problemas, se pegar na pen e coloco noutro pc as fotos só aparecem se a pen for reconhecida como E:\, se for reconhecida como F: ou G: não me aparecem as fotos.
Peço desculpa se estou a duplicar este assunto.
Agradecia a Vossa ajuda.
Cumprimentos
Zeben

Boas
antes de tudo abrigado pela ajuda mas pelo que percebi o exemplo é para colocar uma imagem como fundo do form.
espero estar errado nesta afirmação, se estiver as minhas desculpas.
eu na bd tenho cerca de 500 registos e cada um está relacionado com uma foto especifica guardada na pasta fotos isto tudo na raiz da pen, sempre que selecciono ou pesquiso um registo aparece o dados referentes a esse registo bem como a respectiva foto num campo que tenho na form.

as instruções que tenho para me aparecer a dita foto relacionada com o registo são:

Private Sub InserirFoto_Click()

' mensagem de ajuda para inserir uma imagem
MsgBox "As imagens deverão ter medidas entre os 100x100 e os 400x400," & vbCrLf & _
"1-Seleccione a pasta onde se localiza a imagem pretendida;" & vbCrLf & _
"2-Seleccione o nome da imagem, faça duplo clique e Ok." & vbCrLf & "" & vbCrLf & _
"Nota: os ficheiros .gif não podem ser animados.", vbInformation, "Ajuda"

' chamada a outra acção (sub) que executa a inclusão de uma imagem
getFileName

End Sub

Sub getFileName()


' procedimentos que exibem janelas de diálogo para procurar e incluir a imagem pretendida
Dim fileName As String
Dim result As Integer

With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Seleccione a imagem a inserir"
.Filters.Add "Todos os ficheiros", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "Mapas de bits", "*.bmp"
.FilterIndex = 1
.AllowMultiSelect = False
.InitialFileName = CurrentProject.path
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
Me![PastaFoto].Visible = True
Me![PastaFoto].SetFocus
Me![PastaFoto].Text = fileName
Me![Matricula].SetFocus
Me![PastaFoto].Visible = False
MensagemFoto.Visible = False
End If
End With

End Sub
Private Sub ApagarFoto_Click()

' acção que elimina o registo da imagem
Me![PastaFoto] = ""
hideLocalFoto 'chama outra sub
MsgBox "A imagem foi eliminada", vbInformation, "Confirmação"
MensagemFoto.Visible = True
DoCmd.GoToControl "Botas"

End Sub
Private Sub Form_AfterUpdate()

' após alterar um registo, exibe a imagem importada mantendo o foco em Botas
Me![Matricula].Requery
On Error Resume Next
exibeMensagem 'chama outra sub
showLocalFoto 'chama outra sub
If (IsRelative(Me!PastaFoto) = True) Then 'IsRelative trata-se de uma outra sub
Me![localfoto].Picture = path & Me![PastaFoto]
Else
Me![localfoto].Picture = Me![PastaFoto]
End If

End Sub

Private Sub PastaFoto_AfterUpdate()

' acção que mostra a imagem seleccionada no caminho (path)
On Error Resume Next
exibeMensagem 'chama outra Sub
showLocalFoto 'chama outra sub
If (IsRelative(Me!PastaFoto) = True) Then
Me![localfoto].Picture = path & Me![PastaFoto]
Else
Me![localfoto].Picture = Me![PastaFoto]
End If

End Sub
Private Sub Form_Current()

Dim res As Boolean
Dim fName As String

' procedimentos para a imagem caso esta não seja encontrada ou ainda não exista
path = CurrentProject.path
On Error Resume Next
MensagemFoto.Visible = False
If Not IsNull(Me![FOTO]) Then
res = IsRelative(Me![FOTO])
fName = Me![PastaFoto]
If (res = True) Then
fName = path & "\" & fName
End If

Me![localfoto].Picture = fName
showLocalFoto
Me.PaintPalette = Me![localfoto].ObjectPalette
If (Me![localfoto].Picture <> fName) Then
hideLocalFoto
MensagemFoto.Caption = "Imagem não localizada"
MensagemFoto.Visible = True
End If
Else
hideLocalFoto
MensagemFoto.Caption = "Registo sem imagem"
MensagemFoto.Visible = True
End If

End Sub
Sub exibeMensagem()

' mostra uma mensagem se o ficheiro da imagem não for encontrado ou não existir
If Not IsNull(Me![Imagem]) Then
MensagemFoto.Visible = False
Else
MensagemFoto.Visible = True
End If

End Sub

Function IsRelative(fName As String) As Boolean

' devolve se o nome de ficheiro incluir uma unidade ( ou caminho (\\)
IsRelative = (InStr(1, fName, ":") = 0) And (InStr(1, fName, "\\") = 0)

End Function

Sub hideLocalFoto()

' esconde o controlo da imagem
Me![localfoto].Visible = False
CaixaFoto.Visible = False

End Sub
Sub showLocalFoto()

' exibe o controlo da imagem
Me![localfoto].Visible = True
CaixaFoto.Visible = True

End Sub

que fui aproveitando e adaptando para a minha base de dados,só que não consigo sair daqui.
Cumprimentos Zeben

A base de dados também está na raiz da PEN?
Tem as fotos colocadas dentro de uma pasta chamada fotos?
Se sim, no código não está a apontar para essa pasta.
Pode disponibilizar aqui parte da BD para vermos isso?

Boas
quer a base de dados quer a pasta Fotos estão dentro da raiz da pen, por exemplo se eu apagar um registo da bd ele apaga quer o registo da bd como também apaga a foto associada a esse registo, que se encontra dentro da pasta Fotos, caso a pen seja detectada como E:\ se for detectada como F:\ ou D:\ apaga o registo mas não apaga a foto.
por isso é que estou as voltas com isto
Cumprimentos
Zeben

acho que não me fiz entender.

tens a BD neste Caminho:

E:\TuaBD.mdb

e tens a pasta das fotos em:
E:\fotos

quando seleccionas a foto que pretendes, tens de seleccionar a pasta das fotos e depois seleccionas a foto.
O código vai gravar na BD isto:
E:\fotos\foto1.jpg

de seguida, se pegares na pen e colocares noutro pc que atribua a drive da pen como X:\ e quizeres visualizar a foto que já está guardada na tabela (E:\fotos\foto1.jpg), nao vai mostrar porque nao encontra o directorio.

O que é que está mal?

no código nao indicas em que pasta estão as fotos!

Nesta linha:

.InitialFileName = CurrentProject.path

coloca:
.InitialFileName = CurrentProject.path & "\NomedaPastaFotos"

Depois, na tabela deve apenas guardar o nome da foto, isto para que quando necessite de mudar de máquina nao de erro.

por exemplo:
me![PastaFoto] = fileName

depois para mostrar a imagem, basta:
Me![localfoto].Picture = currentProject.path & "\" & Me![PastaFoto]

Boas
peço desculpa pois fui jantar e esqueci-me da bd, bem aqui vai

cumprimentos
zeben

boas
fiz como indicou mas agora o problema é que quando vou à pasta fotos para seleccionar a foto correspondente ao registo da tres opções de escolha 1- todos os ficheiros
2 - jpgs e mapas de bits e na janela nada aparece para ser escolhido nas 3 opções e nesta situação diz que o nome de ficheiro é *fotos
já não sei que fazer

zeben

bem sou eu novamente

fiz as alterações da seguinte maneira:

Sub getFileName()


' procedimentos que exibem janelas de diálogo para procurar e incluir a imagem pretendida
Dim fileName As String
Dim result As Integer

With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Seleccione a imagem a inserir"
.Filters.Add "Todos os ficheiros", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "Mapas de bits", "*.bmp"
.FilterIndex = 1
.AllowMultiSelect = False
[color=blue].InitialFileName = CurrentProject.Path & "\Fotos"
result = .Show
If (result <> 0) Then
fileName = Trim(.SelectedItems.Item(1))
Me![PastaFoto].Visible = True
Me![PastaFoto].SetFocus
Me![PastaFoto] = fileName
Me![Matricula].SetFocus
Me![PastaFoto].Visible = False
MensagemFoto.Visible = False
End If
End With

End Sub
Private Sub ApagarFoto_Click()

' acção que elimina o registo da imagem
Me![PastaFoto] = ""
hideLocalFoto 'chama outra sub
MsgBox "A imagem foi eliminada", vbInformation, "Confirmação"
MensagemFoto.Visible = True
DoCmd.GoToControl "MATRICULA"

End Sub
Private Sub Form_AfterUpdate()

' após alterar um registo, exibe a imagem importada mantendo o foco em MATRICULA
Me![Matricula].Requery
On Error Resume Next
exibeMensagem 'chama outra sub
showLocalFoto 'chama outra sub
If (IsRelative(Me!PastaFoto) = True) Then 'IsRelative trata-se de uma outra sub
Me![localfoto].Picture = Path & Me![PastaFoto]
Else
Me![localfoto].Picture = Me![PastaFoto]
End If

End Sub

Private Sub PastaFoto_AfterUpdate()

' acção que mostra a imagem seleccionada no caminho (path)
On Error Resume Next
exibeMensagem 'chama outra Sub
showLocalFoto 'chama outra sub
If (IsRelative(Me!PastaFoto) = True) Then
Me![localfoto].Picture = currentPoject.Path & "\" & Me![PastaFoto]
Me![PastaFoto] = fileName
Else
Me![localfoto].Picture = Me![PastaFoto]
End If

End Sub

e continua a não encontrar a foto.
grato pela ajuda que possam dar


bem se servir para ajudar outros retirei do código esta parte

Function IsRelative(fName As String) As Boolean

' devolve se o nome de ficheiro incluir uma unidade ((: ) ou caminho (\\)
IsRelative = (InStr(1, fName, ":") = 0) And (InStr(1, fName, "\\") = 0)

End Function


e agora as imagens aparecem com o nome sem ter o caminho da unidade e com um pequeno senão (tudo a ajudar) se fechar a base de dados e a voltar a abrir não me aparece nenhuma imagem, se seleccionar uma qualquer as outras já aparecem.
zeben

ola zeben.

Hoje andei no corte e costura...

Está a funcionar tal como pretendes.

Apenas grava na BD isto:
\NomedoFicheiro.gif

Assim podes andar com a BD por onde quizeres que nao vai dar problemas.

Aqui ficou a funcionar no PC e na PEN.

testa e depois retorna.

http://dl.dropbox.com/u/10750210/Imagens_zeben.rar

P.S. não comentei nada, nem limpei o codigo porque já é tarde e amanha é mais um dia de trabalho.
Mas amanha ja posso dar-te uma limpeza a isso.
Não testei em rede porque este PC nao esta ligado a nenhuma rede, mas podes testar.

1 abraço

Boas bitabit
muito obrigado pela grande ajuda

mas esta a dar um erro "o acess não consegue encontrar o ficheiro E:\Fotos\E:\fotos\...jpg, consegui resolver o problema parcialmente ao suprimir a seguinte linha

Private Sub Form_Load()
StrCaminho = CurrentProject.Path & "\Fotos"
Me.localfoto.Picture = StrCaminho & Me.TxtFotoDB <----- esta

End Sub

e se o ficheiro de imagem na bd não tiver antes \......jpg abre janela de mensagem de erro não consegue abrir o ficheiro E:\fotos..-..-...jpg

mas tirando isto está 5 estrelas
muito obrigado
zeben

olá, vou ver onde errei e já digo algo.

1 abraço

Qual é a acção que faz para que apareça esse erro?

Fui experimentar a BD e está a funcionar perfeitamente.

Boa Noite bitabit

acontece quando selecciono um registo que tenha o caminho completo da bd exemplo e:\Fotos\aa-11-22 no campo "foto", se já estiver alterado para \aa-11-22 nenhum problema.
e como referi atrás antes de suprimir a linha que indiquei não sei porque dava erro de debug aqui neste comando mesmo qu e o caminho para a foto fosse \aa-11-22

Sub getFileName()
StrCaminho = CurrentProject.Path & "\Fotos"

' procedimentos que exibem janelas de diálogo para procurar e incluir a imagem pretendida
Dim fileName As String
Dim result As Integer
'-----------------------------------

Dim StrNomeFich As String <----------------- aqui dava erro e pedia para fazer debug

'----------------------------------------

With Application.FileDialog(msoFileDialogFilePicker)
.Title = "Seleccione a imagem a inserir"
.Filters.Add "Todos os ficheiros", "*.*"
.Filters.Add "JPEGs", "*.jpg"
.Filters.Add "Mapas de bits", "*.bmp"
.FilterIndex = 1
.AllowMultiSelect = False
.InitialFileName = StrCaminho
result = .Show
If (result <> 0) Then

fileName = Trim(.SelectedItems.Item(1))
'----------------------------------------------------------
StrNomeFich = Right(fileName, Len(fileName) - Len(StrCaminho))
'--------------------------------------------------------------------
Me![PastaFoto].Visible = True
Me![PastaFoto].SetFocus
'--------------------------
Me.TxtFotoDB = StrNomeFich
'----------------------------
Me![PastaFoto].Text = StrCaminho & StrNomeFich
Me![MATRICULA].SetFocus
Me![PastaFoto].Visible = False
MensagemFoto.Visible = False
End If
End With

End Sub

depois por tentativa e erro suprimi aquela linha e ja está 5 *****, o trabalho agora è alterar bd todos os caminhos das cerca de 500 e tal fotos como indicou

Cumprimentos

zeben

agora para alterar o caminho das 500 fotos da tabela, basta criar uma subrotina que num click faz isso tudo.

vou-lhe fazer um exemplo com base na BD que alterei e já disponibilizo aqui.

até já

Conforme prometido, está aqui o exemplo:

http://dl.dropbox.com/u/10750210/AlteraCaminhoDB_zeben.rar

Vê primeiro a tabela, depois executa o formAlteraCaminho e por fim vê o código para perceber o que está lá feito.
Está todo comentado.

Boas amigo bitabit

muito obrigado pela preciosa ajuda prestada tenho a BD a funcionar 5 ***** , agora vou continuar a construi-la, pois até ficar completa
ainda falta muito, provavelmente virei aqui novamente pedir ajuda.

Muito mas Muito obrigado

Cumprimentos

Zeben

O forum agradece o retorno.
Basta colocar Resolvido no topico

1 abraço

oops

erro meu e muito obrigado mais uma vez

Cumprimentos

zeben