MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Problemas com Fotos quando mudo de Computador

    Compartilhe
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3199
    Registrado : 06/11/2009

    Problemas com Fotos quando mudo de Computador

    Mensagem  Assis em Qua 14 Fev 2018, 3:04 pm

    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

    [Você precisa estar registrado e conectado para ver esta imagem.]


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3710
    Registrado : 14/08/2013

    Re: Problemas com Fotos quando mudo de Computador

    Mensagem  FabioPaes em Qua 14 Fev 2018, 5:23 pm

    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...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3199
    Registrado : 06/11/2009

    Re: Problemas com Fotos quando mudo de Computador

    Mensagem  Assis em Qua 14 Fev 2018, 8:19 pm

    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


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3710
    Registrado : 14/08/2013

    Re: Problemas com Fotos quando mudo de Computador

    Mensagem  FabioPaes em Qua 14 Fev 2018, 10:52 pm

    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


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3191
    Registrado : 29/06/2012

    Re: Problemas com Fotos quando mudo de Computador

    Mensagem  Noobezinho em Qui 15 Fev 2018, 6:45 am

    E se ainda não ajudar, veja esse meu [Você precisa estar registrado e conectado para ver este link.]

    Tem dois exemplos de formulários

    - Com um foto

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

    [ ]'s


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se ajudamos alguém e não retornou.
    Se não deu retorno, não ajudo novamente .
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3199
    Registrado : 06/11/2009

    Re: Problemas com Fotos quando mudo de Computador

    Mensagem  Assis em Dom 18 Fev 2018, 7:43 am

    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


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3191
    Registrado : 29/06/2012

    Re: Problemas com Fotos quando mudo de Computador

    Mensagem  Noobezinho em Seg 19 Fev 2018, 10:11 am

    Assis

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

    [ ]'s


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se ajudamos alguém e não retornou.
    Se não deu retorno, não ajudo novamente .
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3199
    Registrado : 06/11/2009

    Re: Problemas com Fotos quando mudo de Computador

    Mensagem  Assis em Seg 19 Fev 2018, 10:48 am

    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.


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4902
    Registrado : 15/03/2013

    Re: Problemas com Fotos quando mudo de Computador

    Mensagem  ahteixeira em Seg 19 Fev 2018, 11:00 am

    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
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3199
    Registrado : 06/11/2009

    Re: Problemas com Fotos quando mudo de Computador

    Mensagem  Assis em Seg 19 Fev 2018, 12:02 pm

    Teixeira

    E como fica este código ?

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

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 4902
    Registrado : 15/03/2013

    Re: Problemas com Fotos quando mudo de Computador

    Mensagem  ahteixeira em Seg 19 Fev 2018, 12:48 pm

    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
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3199
    Registrado : 06/11/2009

    Re: Problemas com Fotos quando mudo de Computador

    Mensagem  Assis em Seg 19 Fev 2018, 12:54 pm

    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


    .................................................................................
    *** Só sei que nada sei ***
    avatar
    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3191
    Registrado : 29/06/2012

    Re: Problemas com Fotos quando mudo de Computador

    Mensagem  Noobezinho em Seg 19 Fev 2018, 2:18 pm

    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


    .................................................................................
    Noobezinho

    * A solução funcionou?  [Você precisa estar registrado e conectado para ver esta imagem.] 
    Agradeça e feche o tópico clicando no botão Resolvido
    Se não sabe como, veja [Você precisa estar registrado e conectado para ver este link.].

    Como anexar imagem no teu post do fórum : [Você precisa estar registrado e conectado para ver este link.]

    * Criar arquivos.zip com o Winrar - veja [Você precisa estar registrado e conectado para ver este link.].

    Atualmente estou verificando se ajudamos alguém e não retornou.
    Se não deu retorno, não ajudo novamente .
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 3199
    Registrado : 06/11/2009

    Re: Problemas com Fotos quando mudo de Computador

    Mensagem  Assis em Qua 21 Fev 2018, 9:06 am

    Noob

    Vou comunicar por imagem,


    [Você precisa estar registrado e conectado para ver esta imagem.]


    .................................................................................
    *** Só sei que nada sei ***

      Data/hora atual: Sab 24 Fev 2018, 10:07 am