[Resolvido]Falha ao editar o campo "Hiperlink".

Boa tarde. Tenho uma tabela com um campo de hiperlink que abre um arquivo PDF e toda vez que renomeio o arquivo original, o link não atualiza e dá erro. Quando vou editar para o novo renomeado vem essa mensagem de alteração de usuário (no anexo).
A única solução que encontrei foi copiar o registro depois excluir ele todo e colar em novo registro para que o campo volte ao normal.
Alguém sabe como resolver isso sem ter que excluir o registro inteiro?
Obrigado.

Boa noite.
Se não existe compartilhamento no sistema ele pode estar aberto escondido no gerenciador de tarefas.
Você pode usar o recordset para atualizar o campo.
Comigo o hiperlink sempre deu problema em algumas atualizações, eu te aconselho a usar a shell

Código:

Shell "explorer.exe \caminho do pdf" & Me.o nome do pasta ou usuário & ".pdf" ele vai abrir o pdf com o nome , mas ou menos assim


Assim você renomeando o nome do pdf e o nome que está no campo do formulário a shell vai abrir de acordo com o nome do campo, sendo assim ele será mais rápido. O único problema que pode existir nesse código é renomear o nome do pdf e esquecer de renomear no campo.
Eu não sei como é sei projeto.
atte.

Bom dia. Obrigado pelo código mas não funcionou. Precisava que ele lesse o PDf que foi digitado no campo e não no código. Isso o usuário não poderá fazer depois.
Obrigado!

Ler o pdf todo?
Em termo do seu post esse código acima abre o pdf ao ler o nome do documento que está no campo mesmo que o usuário atualizasse algum registro, facilita  e não daria mais esse erro na imagem.
Abre-se o documento de qualquer usuário, Ex.:
C:\Licitação\julianovv.pdf

O MsAccess mostra apenas a parte de exibição do hiperlink em uma tabela, quando o tipo de campo é definido como hiperlink.
Mas as informações reais do link estão ocultas.
Se você alterar o tipo de campo para texto, o link oculto aparecerá e você poderá usar para fazer as alterações desejadas e depois voltar a alterar para hiperlink.

Isso pode ser feito via VBA, ou manualmente.

Por isso não se deve usar campo hiperlink, mas texto e usar outro metodo para abrir os ficheiros.

Pode usar por exemplo assim:

Código:

Application.FollowHyperlink ("C:\Temp\teste.pdf"), NewWindow:=True

Ou assim;

Código:

Dim strCaminho As String
strCaminho = "C:\Temp\" & Me.SeuCampo.Value & ".pdf"
Application.FollowHyperlink strCaminho

Ou o que está na mensagem Nº2

Bom dia. Deu quase certo. Usei o primeiro código e abriu o arquivo PDF (inseri o código no botão para abrir) mas quando inseri novo caminho em outro registro continuou abrindo o anterior; isso porque o caminho completo estava no código. O novo caminho não foi salvo. O caminho que o usuário inserir no campo não deveria ser salvo no código?
Obrigado!

Na segunda possibilidade que lhe dei sim;

Código:

strCaminho = "C:\Temp\" & Me.SeuCampo.Value & ".pdf"

Ainda não deu. O botão não abre e o caminho não é salvo. E pra piorar mais ainda, o caminho tem o ano, mês e a pasta onde se encontra do arquivo.

C:\Documents and Settings\Juliano\Meus documentos\Condominio\2023\09-Setembro\Contabilidade\Comp_KEPLER_HONORARIOS_082023.pdf

Boa noite Juliano.
Se nenhum desses abrir é porque seu Access está sem referencia.
Esse vai pegar o nome que está na caixa após atualizar

Código:

Shell "explorer.exe ""C:\Users\gilli\Teste\" & Me.CBOnoME.Column(1) & ".pdf"""

Bom dia. Obrigado, vou tentar. Eu pensava em algo mais prático onde o usuário digitasse o nome do arquivo PDF e no botão de abrir tivesse o código para localizar o arquivo e abrir. Se não localizasse, abriria uma caixa de mensagem avisando que o arquivo não existe ou foi digitado errado.

Código:

if len("C:\Users\gilli\Teste\" & Me.CBOnoME.Column(1)>0 then -> Aqui vai verificar se o arquivo existe
  msgbox" Arquivo não encontrado!"
else
 Shell "explorer.exe ""C:\Users\gilli\Teste\" & Me.CBOnoME.Column(1) & ".pdf""" -> se existir ele abre
end if
end sub

Boa tarde. Obrigado pelo código. Tentei implantar mas deu erro em "then".
O caminho (C:\Documents and Settings\Juliano\Meus documentos\Condominio\) é o diretório principal. Existem as pastas de ano e mês. É possível usar apenas o diretório ou o usuário terá de entrar no código para colocar o ano e mês?
Obrigado.

Você esqueceu de colocar mais um parêntese que é da Len,  na mensagem acima,  eu digitei no celular e nao entrou.

Len( aqrquivo.collun(1)).
Uma da len e outra da coluna

Bom dia. O código ficou assim mas mesmo com o nome do arquivo correto no campo, a mensagem de "arquivo não encontrado" apareceu. Alterei o caminho colocando ele completo com o ano e mês e também deu a mesma mensagem.

Private Sub Comando133_Click()
If Len("C:\Documents and Settings\Juliano\Meus documentos\Condominio\") & Me.abrearquivo1 > 0 Then
MsgBox " Arquivo não encontrado!"
Else
Shell "explorer.exe ""C:\Documents and Settings\Juliano\Meus documentos\Condominio\" & Me.abrearquivo1 & ".pdf"""
End If
End Sub

O parênteses é no final

Private Sub Comando133_Click()
If Len("C:\Documents and Settings\Juliano\Meus documentos\Condominio\" & Me.abrearquivo1) > 0 Then...
Deixa o arquivo o arquivo

Quase deu certo. Fiz algumas mudanças como inverter o sinal de maior para menor e digitar o caminho completo. O arquivo não pôde ter ".pdf" no final. Dessa forma abriu, mas abriu o programa Internet Explorer, o que na verdade deveria ser o programa associado, nesse caso o Adobe Reader.

Invertendo o sinal, a mensagem de "arquivo não encontrado" sumiu e entrou a mensagem do próprio Explorer quando o arquivo não existe:



Funcionou somente como teste pra ver se o arquivo abriria mas com o caminho completo vai ser impossível o usuário entrar no código para alterar as mudanças de ano e mês. E também o Internet Explorer que não é o programa associado.
Aí complica.

Código:

Private Sub btAbrirPdf_Click()
    If Len(Dir(CurrentProject.Path & "\Pdf\" & Me.txtMes & ".pdf")) > 0 Then
        Shell "explorer.exe """ & CurrentProject.Path & "\Pdf\" & Me.txtMes & ".pdf"""
Else
       MsgBox "Arquivo não encontrado!"
    End If
End Sub


Onde a pasta estiver o código vai verificar a própria pasta, isso ja desprocupa.
Não pode tracar sinal, tudo que é <0 é falso então o arquivo não existe.
O Explorer é uma pasta de pesquisa que o Windows tem, não sei qual é seu windows, mas se o arquivo não existir o Explorer vai buscar na internet.

At.te

Sim, fiz só um teste para ver como seria o resultado pois o sinal correto não funcionou mesmo com o nome do arquivo correto no campo.
Vou tentar esse novo código.
Obrigado.

Impossível.
Encontrar documento na pasta Raiaz
https://servimg.com/view/20492303/19

Obrigado pela força mas as tentativas falharam. Os nomes dos arquivos não são iguais e variam a cada mês.
A única solução que encontrei foi manter o mesmo campo fazendo a substituição caso o arquivo tenha sido renomeado sem excluir o anterior. Usei o "Remover Link" e adicionei o novo. Por enquanto está funcionando. Vamos ver daqui pra frente.