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]Mudança da Base de Fotos

    avatar
    Josealdo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 193
    Registrado : 14/12/2012

    [Resolvido]Mudança da Base de Fotos Empty [Resolvido]Mudança da Base de Fotos

    Mensagem  Josealdo Sex 15 Jul - 14:22

    Olá pessoal.
    Tenho um BD que as imagens são salvas em uma pasta de rede.  Entretanto o serviço de TI efetuo mudança neste drive de rede.  Desta forma ocorreu mudança no endereço da minha pasta.

    Efetuei um novo endereçamento no codigo, para que o Access faça o salvamento das imangens nesta nova pasta.  Entretanto fiquei com um problema:  As imagens salvas anteriormente ficaram com o endereço antigo na tabela do Access, ou seja quando se efetua a pesquisa do registro não retorna a imagem pois o endereço está incorreto.

    O que estou precisando?  Como eu poderia efetuar a mudança do endereço em todo os campos na tabela? Mantendo  a parte final que é o nome da imagem.  Ou seja trocando todo o endereço e manter o nome da imagem.

    Eu tentei fazer atraves de localizar e substituir mais não funciona.

    Exemplo do endereço antigo: \\Endereço antigo\pasta fotos\nome da imagem

                                               \\Edereço Novo\pasta fotos\nome da imagem

    Algum colegar poderia me ajudar? Por favor.
    Agradeço antecipadmente.


    Última edição por Josealdo em Qua 20 Jul - 13:25, editado 1 vez(es)
    avatar
    wmantovani
    Avançado
    Avançado


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 211
    Registrado : 05/09/2011

    [Resolvido]Mudança da Base de Fotos Empty Re: [Resolvido]Mudança da Base de Fotos

    Mensagem  wmantovani Sex 15 Jul - 15:24

    Talvez uma consulta de atualização, mas faça uma cópia antes

    Josealdo gosta desta mensagem

    avatar
    Josealdo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 193
    Registrado : 14/12/2012

    [Resolvido]Mudança da Base de Fotos Empty Re: [Resolvido]Mudança da Base de Fotos

    Mensagem  Josealdo Sex 15 Jul - 16:14

    @wmantovani, em primeiro obrigado. Eu tentei via consulta atualização mais não funciona pois ela é semelhante ao comando localizar e substituir.
    Ou seja ele não reconhece " \\Endereço antigo\pasta fotos\" como sentença, faltando "nome da imagem" que desejo manter.
    Pois a sentença completa para ele localizar seria: "\\Endereço antigo\pasta fotos\nome da imagem" dessa forma não tem como eu mandar substituir pelo novo endereço matendo a parte final que é o nome da imagem.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2192
    Registrado : 23/01/2018

    [Resolvido]Mudança da Base de Fotos Empty Re: [Resolvido]Mudança da Base de Fotos

    Mensagem  crysostomo Sex 15 Jul - 21:29

    Coloque a pasta das imagens na pasta raiz do sistemas e não terá mais dor de cabeça. Você não vai precisa mais de endereço na tabela, não vai precisar mudar tudo, em qualquer lugar que a pasta do sistema for o código vai localizar as fotos, pois ela estará dentro da pasta raiz do sistema.

    Código:
    Dim ondeEstaAFoto
    ondeEstaAFoto = Dir$(CurrentProject.Path & "\FotoDOSIstemas\ " & Me.txtnomeDoClinete & ".*")

    If Len(ondeEstaAFoto) > 0 Then
     Me.campoFt.Picture = ondeEstaAFoto
    Else
    msgbox " Foto não encontrada"
    End If

    Sucesso.


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

    Josealdo gosta desta mensagem

    DamascenoJr.
    DamascenoJr.
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3707
    Registrado : 21/11/2016

    [Resolvido]Mudança da Base de Fotos Empty Re: [Resolvido]Mudança da Base de Fotos

    Mensagem  DamascenoJr. Dom 17 Jul - 21:28

    Uma função em um módulo

    Código:
    Public Function fncParteFinal(ByVal strCaminho As String) As String

        If strCaminho = "" Then Exit Sub
       
        fncParteFinal = Mid(strCaminho, InStrRev(strCaminho, "\") + 1)

    End Function

    Utilização em consulta atualização
    [Resolvido]Mudança da Base de Fotos Temp10

    Não esqueça o resolvido do tópico.


    .................................................................................
    Ajude-se a ser ajudado, anexe seu projeto.
    Sempre tente entender o código,
    não somente copie e cole.
    Positive as mensagens que achar útil clicando no '+' no canto superior direito delas.

    Josealdo e crysostomo gostam desta mensagem

    avatar
    Josealdo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 193
    Registrado : 14/12/2012

    [Resolvido]Mudança da Base de Fotos Empty Re: [Resolvido]Mudança da Base de Fotos

    Mensagem  Josealdo Ter 19 Jul - 10:48

    @DamascenoJr. ,  obrigado vou tentar e depois dou o feedback. Gratidão.


    @DamascenoJr., fiz a codificação lecionada por você e funcionou perfeitamente.

    Deixo aqui a minha grande Gratidão por você compartilhar os seus conhecimentos. Muito Grato e muito Sucesso para você.


    Última edição por Josealdo em Qua 20 Jul - 13:24, editado 1 vez(es)
    avatar
    Josealdo
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 193
    Registrado : 14/12/2012

    [Resolvido]Mudança da Base de Fotos Empty Re: [Resolvido]Mudança da Base de Fotos

    Mensagem  Josealdo Ter 19 Jul - 10:52

    @crysostomo, vou tentar aplicar sua sujestão. Consigo aplicar para drive de rede ou sharepoint com a mesma sintaxe do comando?
    Gratidão.
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 75%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2192
    Registrado : 23/01/2018

    [Resolvido]Mudança da Base de Fotos Empty Re: [Resolvido]Mudança da Base de Fotos

    Mensagem  crysostomo Qua 20 Jul - 19:40

    Sucesso


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.

      Data/hora atual: Sab 1 Out - 11:32