MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


4 participantes

    [Resolvido]Problemas com Fotos quando mudo de Computador

    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Assis 14/2/2018, 18:04

    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

    [Resolvido]Problemas com Fotos quando mudo de Computador Sem_ty13


    .................................................................................
    *** Só sei que nada sei ***
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  FabioPaes 14/2/2018, 20:23

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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Assis 14/2/2018, 23:19

    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 ***
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  FabioPaes 15/2/2018, 01:52

    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!
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Noobezinho 15/2/2018, 09:45

    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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Assis 18/2/2018, 11:43

    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 ***
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Noobezinho 19/2/2018, 14:11

    Assis

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

    [ ]'s


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Assis 19/2/2018, 14:48

    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 ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Alvaro Teixeira 19/2/2018, 15:00

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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Assis 19/2/2018, 16:02

    Teixeira

    E como fica este código ?

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

    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Alvaro Teixeira 19/2/2018, 16:48

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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Assis 19/2/2018, 16:54

    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 ***
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Noobezinho 19/2/2018, 18:18

    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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Assis 21/2/2018, 13:06

    Noob

    Vou comunicar por imagem,


    [Resolvido]Problemas com Fotos quando mudo de Computador Noob12


    .................................................................................
    *** Só sei que nada sei ***
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Assis 6/3/2018, 12:05

    Boa tarde Amigos

    Noob não estou a conseguir.

    Não tem um exemplo ?

    Desculpe a insistência.

    Obrigado


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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Noobezinho 6/3/2018, 12:41

    Assis

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

    não respondi. Crying or Very sad

    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!











    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Assis 6/3/2018, 13:15

    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





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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Noobezinho 6/3/2018, 13:29

    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


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Assis 6/3/2018, 13:59

    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


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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Noobezinho 6/3/2018, 14:29

    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.


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Assis 6/3/2018, 15:33

    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


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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Noobezinho 6/3/2018, 16:21

    Siga o exemplo, meu amigo


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Assis 6/3/2018, 17:23

    Noob

    Eis o resultado .

    [Resolvido]Problemas com Fotos quando mudo de Computador Fotos10


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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Noobezinho 6/3/2018, 20:01



    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.



    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Assis 7/3/2018, 00:41

    Noob

    Será Isto ?

    [Resolvido]Problemas com Fotos quando mudo de Computador Fotos11


    Ou
    [Resolvido]Problemas com Fotos quando mudo de Computador Fotos211


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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Noobezinho 7/3/2018, 01:24

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



    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Assis 7/3/2018, 09:20

    Bom dia Noob
    Sim mudei o nome da tblObras.
    Obrigado


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Alvaro Teixeira 7/3/2018, 12:28

    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
    Noobezinho
    Noobezinho
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Noobezinho 7/3/2018, 14:37

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

    [ ]'s


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Alvaro Teixeira 7/3/2018, 16:00

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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Assis 7/3/2018, 22:11

    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


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


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Noobezinho 7/3/2018, 22:16


    É bom poder ajudar

    Valeu pelo retorno, Assis

    Boa sorte!


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...


    Ajude a ser ajudado:
    Seja objetivo na dúvida, dê os detalhes do que precisa, sem rodeios.
    Quando anexar teu projeto, diga onde está o problema, ganhamos mais tempo
    sem precisar procurar o mesmo.
    Assis
    Assis
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Assis 7/3/2018, 22:53

    Teixeira

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Fotos14


    .................................................................................
    *** Só sei que nada sei ***
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Alvaro Teixeira 8/3/2018, 08:29

    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

    Conteúdo patrocinado


    [Resolvido]Problemas com Fotos quando mudo de Computador Empty Re: [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 8/11/2024, 01:32