[Resolvido]Problemas com Fotos quando mudo de Computador

Boa tarde Amigos

Tenho uma BD que tem um formulário com Fotos.

Nesse formulário tem o seguinte código

Private Sub Form_Current()
On Error Resume Next
   
  If IsNull(Me.LocalFoto) = False Then
      Me.FOTO.Picture = Me.LocalFoto
      FOTO.Visible = True
      SEMFOTO.Visible = False
  Else
      Me.FOTO.Picture = ""
      SEMFOTO.Visible = True
      FOTO.Visible = False

End If

End Sub

As fotos estão numa pasta na mesma diretoria da BD

Mas quando abro a BD em outro computador dá esta informação.

Como evitar ???

Obrigado

Olá assis, quando trabalho com fotos aqui, eu salvo na tabela apenas o Nome da foto, ex: Cama Master.jpg

Assim, quando preciso abrir a foto, basta eu remontar o Caminho do app\Nome da pasta\NomeDaFoto. dessa forma se mudar o Aplicativo para outro computador ou pasta, ele ainda irá funcionar.

Me.FOTO.Picture = Currentproject.Path & "\Imagens\" & Me.LocalFoto

Faça um teste, salvando apenas o Nomedafoto e mande abrir com o Comando a cima... Mude de maquina e teste para ver...

Boa noite Fabio

Então como fica este código ?

Private Sub BtnLocalizar_Click()

Dim strCaminho As String, strPastaInicial As String
strPastaInicial = CurrentProject.Path & "\imagens\"
strCaminho = Buscar(Me.hWnd, "Inserir foto", strPastaInicial, _
"Arquivos gráficos (*.bmp; *.gif; *.jpg)" & vbNullChar & "*.bmp; *.gif; *.jpg")
If Len(strCaminho) > 0 Then
Me.LocalFoto = strCaminho
Me.FOTO.Picture = Me.LocalFoto
Me.FOTO.Visible = True

End If

End Sub

Obrigado

Mude essa linha: Me.LocalFoto = strCaminho
Por esta:

Me.LocalFoto = Mid(strCaminho, InStrRev(strLocalFoto, "\") + 1)
Na linha a cima, eu pego o caminho completo de onde está a Imagem, e extraio partindo da ultima \. assim eu pego somente o nome da foto


Mude essa: Me.FOTO.Picture = Me.LocalFoto

Por essa:
Me.FOTO.Picture = Currentproject.Path & "\Imagens\" & Me.LocalFoto

E se ainda não ajudar, veja esse meu exemplo

Tem dois exemplos de formulários

- Com um foto

-Com 2 fotos - exemplo para múltiplas fotos.

[ ]'s

Fabio
Desculpe a demora da minha resposta.
Na tabela já só fica o nome da foto, mas contínua o mesmo problema, quando abro a BD num PC que só tem o Runtime e com extensão ACCDR
Obrigado

Assis

Se tivesse olhado o meu exemplo, já estaria com isso resolvido

[ ]'s

Tem razão Noob
Mas com a dica dica do Fabio e quando vi só o nome da foto na tabela pensei estar resolvido.
Vou rever e bem os seus exemplos.
E já agora: Onde colocar a pasta das fotos numa BD dividida ?
Obrigado.

Olá a todos,

Assis, não acompanhei tópico, mas o local ideal será a mesma pasta onde tem o back-end
E que por sua vez deve estar partilhada e com premissoes de acesso.

Abraço

Teixeira

E como fica este código ?

Me.FOTO.Picture = Currentproject.Path & "\Imagens\" & Me.LocalFoto

Obrigado

Olá, tem que trocar:

Currentproject.Path

Por variavel ou caminho direto da pasta.

Não esqueça de seguir a indicação do colega Noob, não vi mas acredito que seja dentro do mesmo.

Ficamos aguardar retorno.

Abraço a todos

Teixeira

Estamos sempre a aprender. Ainda não tinha passado por esta fase de fotos.

Obrigado


Noob, o seu exemplo aplicado na minha BD já não dá o erro ( imagem ) minha primeira mensagem.

Como se porta o seu exemplo em rede ?

Tem de ser alterado ?

Obrigado

Assis

Em rede, se colocar junto com o Back end, tem uma função para pegar o caminho do back, no lugar

da Currentproject.Path .

uso: BackuEndPaht & imagens

Public Function BackEndPath() As String
    'uso: BackuEndPaht & pastadesejada
   Dim strFullPath As String
   strFullPath = Mid(CurrentDb.TableDefs("tblObras").Connect, 11)
   For i = Len(strFullPath) To 1 Step -1
       If Mid(strFullPath, i, 1) = "\" Then
           GetDBPath = Left(strFullPath, i)
           Exit For
       End If
   Next
End Function

Colocando a pasta imagens na pasta do Back End, além de restringir os acessos direto na pasta,
o Front end de todas as estações irão procurar as imagens, la.

Mas um detalhe, verifique em rede, se o caminho retornado pela função é o caminho UNC (\\Nomecomputador\pasta...)

Acredito que sim.

[ ]'s

Noob

Vou comunicar por imagem,

Boa tarde Amigos

Noob não estou a conseguir.

Não tem um exemplo ?

Desculpe a insistência.

Obrigado

Assis

Não recebi email avisando da tua última mensagem, por isso

não respondi.

O exemplo está na msg nº 5.

Tem dois formulários:

frmFoto_Noob para adicionar uma foto no formulário

frmFoto2 - exemplo de como adicionar 2 fotos ou mais no form.

Se for colocar somente uma imagem no formulário , irá colocar também somente um campo

para o caminho da pasta de imagens na tua tabela.

A resposta é sim para as 2 perguntas da tua última msg. (nº14)

Dúvidas, retorne!

Noob


O Amigo escreveu para mudar CurrentProject.path por BackuEndPaht & pastadesejada

Mas estou a utilizar assim:
'===================================================
On Error Resume Next
Dim emptyImg As String
emptyImg = GetPathPart & "IMAGENS" & "\SemFoto.gif"

If IsNull(Me.LocalFoto) Then
Me.FOTO.Picture = emptyImg
ElseIf Not FileExists(GetPathPart & "IMAGENS\" & Me.LocalFoto) Then
Me.FOTO.Picture = emptyImg
Else
Me.FOTO.Picture = GetPathPart & "IMAGENS\" & Me.LocalFoto
End If
'================================================

A pasta "Imagens" está na mesma pasta do BE no Servidor

Então fica assim :

BackuEndPaht & Imagens

ou

BackuEndPaht & "\imagens\"


Obrigado

Assis

On Error Resume Next

Só se usa quando você como programador, sabe exatamente qual erro irá dar tal função.
Então usa esse expediente para que o código não detecte tal erro previsto, caso contrário, dificilmente saberá
caso tenha um erro no código.

O Nome da função está errado na chamada.
BackuEndPaht & Imagens

Esse é o correto:

BackEndPath & "\imagens\"

Já sabes utilizar o ponto de interrupção no código (depurar) para ir verificando na janela imediata se as variáveis

estão com valores corretos?



[ ]'s

Noob

Tirei o On Error Resume Next, e não dá erro nenhum


Já tenho o módulo "BackEndPath"



Então altero este código abaixo
'===================================================
On Error Resume Next
Dim emptyImg As String
emptyImg = GetPathPart & "IMAGENS" & "\SemFoto.gif"

If IsNull(Me.LocalFoto) Then
Me.FOTO.Picture = emptyImg
ElseIf Not FileExists(GetPathPart & "IMAGENS\" & Me.LocalFoto) Then
Me.FOTO.Picture = emptyImg
Else
Me.FOTO.Picture = GetPathPart & "IMAGENS\" & Me.LocalFoto
End If
'================================================



Para esta aqui ?

Private Sub Form_Current()

Dim emptyImg As String
emptyImg = BackEndPath & "IMAGENS" & "\SemFoto.gif"

If IsNull(Me.LocalFoto) Then
Me.FOTO.Picture = emptyImg
ElseIf Not FileExists(BackEndPath & "IMAGENS\" & Me.LocalFoto) Then
Me.FOTO.Picture = emptyImg
Else
Me.FOTO.Picture = BackEndPath & "IMAGENS\" & Me.LocalFoto
End If

End Sub

Obrigado

Veja:

Dim emptyImg As String
emptyImg = BackEndPath & "IMAGENS" & "\SemFoto.gif"

If IsNull(Me.LocalFoto) Then          ' se é nulo então
  Me.FOTO.Picture = emptyImg    'recebe a imagem da pasta
Else                                            'caso contrário (já existe um caminho na tabela)
 Me.FOTO.Picture =  Me.LocalFoto 'pega a imagem do caminho que está na tabela e insere no controle imagem do form.
End If

Como pode ver, é simples, não precisa de mais nada.

Não repondeu minha pergunta.

Noob

Estou no móvel, mas ainda hoje vou testar e retorno.

Nos formulários coloco no evento Form_Currente ?

Esta função também resulta no relatórios ?

É que são fotos de produtos, e ao imprimir a ficha de cada produto quero que aparece também a foto.

Obrigado

Siga o exemplo, meu amigo

Noob

Eis o resultado .

emptyImg = BackEndPath & "IMAGENS" & "\SemFoto.gif"

Eu não lembro o que a função retorna no final, se somete a pasta ou a pasta + "/".

Creio que seja assim: BackEndPath & "\IMAGENS\" & "SemFoto.gif"

Experimente.


Bem , perguntei 2 vezes a ti se sabe depurar um código vba, utilizando ponto de interrupção do código e a janela imediata, mas

não respondeu, então teu silencio significa que não.

Veja esse link:

tomasvasquez.com.br/blog/microsoft-office/vba/vba-o-que-e-e-como-utilizar-a-brilhante-janela-de-verificacao-imediata

Leia até o final, faça testes para aprender fazendo, tenho certeza que muitas dúvidas na hora de programar, será sanada

utilizando a depuração.

Noob

Será Isto ?




Ou

Assis

A pasta imagens, está dentro da pasta do back End?

Porque vejo que a função BackEndPath não está retornando o caminho

Substituiu a tabela tblObras por uma tabela do Back End?

Aguardo...

Bom dia Noob
Sim mudei o nome da tblObras.
Obrigado

Olá a todos,

Tem que ser mais acertivo nos detalhes que dá.

Compreendeu o que faz a função GetPathPart que o colega Noob passou na mensagem nº 14?
Está a ir buscar o caminho de uma tabela (tblObras) supostamente vinculada no BackEnd para obter o caminho.
Ora no seu caso era alterar para o nome da tabela (do back end)  que utiliza no seu projecto e que que esteja ligada no seu FrontEnd, caso contrario não vai funcionar.
Gostei da função, mas normalmente uso de outra forma.

Quando abordei o Currentproject.Path  assim como o colega Fábio, é uma forma simples, mas não se aplica para REDE.
Vou exemplificar, temos um projecto que arranca na pasta C:\Alvaro se colocar Currentproject.Path & "\Imagens\" vai apresentar C:\Alvaro\Imagens\
Ora se eu mover/copiar ou renomear e exceutar o projeto a partir da pasta C:\MaximoAccess o mesmo código vai apresentar C:\MaximoAccess\Imagens\
Resumindo o Currentproject.Path apresenta o local de onde está a ser executado o projeto, otimo para quem quer usar o projeto numa "pen drive".


Por fim, sou da opinião que no seu projeto possivelmente deve ter numa tabela ou variável o local do BackEnd
Será consultar o caminho da Pasta (sem o nome do BackEnd) e aplicar no seu código, simplesmente assim:

Me.FOTO.Picture = FuncaoQueObtemOnomeDaPAstaOuVariávelOuMesmoUmDLookup & "IMAGENS\" & Me.LocalFoto

Aguardamos o seu retorno.

Abraço a todos

Olá Alvaro

Estávamos vendo isso pela manha, eu no computador dele.

O que o corre é que o caminho até a pasta do BE, está retornando com isso:

"pwd=xxxxxxxxx:Database=C:\caminho até as imagens"

Como estou atarefado hoje, não pude continuar a dar o suporte para ele.

Deixei então para que ele tente usando as funções de caracteres, retirar essa parte inicial

que são 23 caracteres e retornar somente o caminho.

Combinamos que veremos isso á noite.

[ ]'s

Olá Noob,

Compreendo, o colega tem palavra-passe no BackEnd.
O tamanho da palavra passe pode variar nas funções dos caracteres, fiz uma função que resolve:

Código:

Public Function fncCaminhoTabelaLigada(nTabela As String) As String
'Alvaro Teixeira (ahteixeira) 2018 para MaximoAccess

On Error GoTo TrataErro
    Dim sCaminho As String
    Dim iCaminho As Integer
    
    sCaminho = Mid(CurrentDb.TableDefs(nTabela).Connect, 11)
    iCaminho = InStr(sCaminho, "Database=")
    
    If iCaminho > 0 Then sCaminho = Right(sCaminho, Len(sCaminho) - (iCaminho + 8))

    fncCaminhoTabelaLigada = Left(sCaminho, InStrRev(sCaminho, "\"))

Sair:
    Exit Function

TrataErro:
    If Err.Number = 3265 Then
        MsgBox "Não foi encontrada a tabela para localizar o caminho.", vbCritical, "fncCaminhoTabelaLigada"
    Else
        MsgBox Err.Number & " - " & Err.Description, vbCritical, "fncCaminhoTabelaLigada"
    End If
    fncCaminhoTabelaLigada = ""

End Function



Ao chamar a função, devemos incluir o nome da tabela que pretendemos consultar no parametro, exemplo:

fncCaminhoTabelaLigada("NomeDaTabela")


Funciona quer tenha ou não palavra passe.

Assis, aguardo retorno à minha mensagem n. 28.

Abraço a todos

Boa noite
Teixeira eu na função do Noob mudei o nome da tabela tblObras para uma tabela da minha Bd.
Nunca tinha trabalhado com imagens muito menos em rede.
Mas com a ajuda do Noob lá conseguimos.
Na hora que colocou a sua função +_ 16:00 horas estava eu a tentar resolver os últimos acertos.
Ficou resolvido.

Obrigado

É bom poder ajudar

Valeu pelo retorno, Assis

Boa sorte!

Teixeira

Estou a testar o seu código mas também mostra a password no caminho, ou estou a errar ?

Ola a todos,

Assis, a ultima linha de código que mostra na imagem não deveria estar lá retire, pois de der outro código de erro pode entrar em loop e pendurar.
É uma função que se deve colocar o nome da tabela ao invocar.

Quanto à ultima questão recomendo a leitura do artigo "Segurança e produtividade com o código PROTEC" do nosso colega Avelino Sampaio, está muito bem explicado.

Abraço a todos