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

    [Resolvido]Problemas com Fotos quando mudo de Computador

    Compartilhe
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

    [Resolvido]Problemas com Fotos quando mudo de Computador

    Mensagem  Assis em Qua 14 Fev - 13: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

    [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 : 3898
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Qua 14 Fev - 15: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!
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Qua 14 Fev - 18: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 ***
    avatar
    FabioPaes
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  FabioPaes em Qua 14 Fev - 20: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
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em Qui 15 Fev - 4:45

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

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Dom 18 Fev - 6: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
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em Seg 19 Fev - 9:11

    Assis

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

    [ ]'s
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Seg 19 Fev - 9: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 ***
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Seg 19 Fev - 10: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
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Seg 19 Fev - 11:02

    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 : 5114
    Registrado : 15/03/2013

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

    Mensagem  ahteixeira em Seg 19 Fev - 11: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
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Seg 19 Fev - 11: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
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em Seg 19 Fev - 13: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
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Qua 21 Fev - 8:06

    Noob

    Vou comunicar por imagem,


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


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

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Ter 6 Mar - 7: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
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em Ter 6 Mar - 7: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!









    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Ter 6 Mar - 8: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
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em Ter 6 Mar - 8: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
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Ter 6 Mar - 8: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
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em Ter 6 Mar - 9: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.
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Ter 6 Mar - 10: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
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em Ter 6 Mar - 11:21

    Siga o exemplo, meu amigo
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Ter 6 Mar - 12:23

    Noob

    Eis o resultado .

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


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

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em Ter 6 Mar - 15: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.

    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Ter 6 Mar - 19:41

    Noob

    Será Isto ?

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


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


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

    Noobezinho
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em Ter 6 Mar - 20: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...

    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Qua 7 Mar - 4:20

    Bom dia Noob
    Sim mudei o nome da tblObras.
    Obrigado


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

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Qua 7 Mar - 7: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
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em Qua 7 Mar - 9: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
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Qua 7 Mar - 11: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
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Qua 7 Mar - 17: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
    Moderador
    Moderador

    Respeito às Regras 100%

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

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

    Mensagem  Noobezinho em Qua 7 Mar - 17:16


    É bom poder ajudar

    Valeu pelo retorno, Assis

    Boa sorte!
    avatar
    Assis
    Maximo VIP
    Maximo VIP

    Respeito às Regras 100%

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

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

    Mensagem  Assis em Qua 7 Mar - 17:53

    Teixeira

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

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


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

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em Qui 8 Mar - 3: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

      Data/hora atual: Dom 20 Maio - 17:49