[Resolvido]Mudança da Base de Fotos

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.

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

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

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.

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


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

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

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

Sucesso