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.
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
Application.FollowHyperlink ("C:\Temp\teste.pdf"), NewWindow:=True
Dim strCaminho As String
strCaminho = "C:\Temp\" & Me.SeuCampo.Value & ".pdf"
Application.FollowHyperlink strCaminho
strCaminho = "C:\Temp\" & Me.SeuCampo.Value & ".pdf"
Shell "explorer.exe ""C:\Users\gilli\Teste\" & Me.CBOnoME.Column(1) & ".pdf"""
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
julianovv gosta desta mensagem
julianovv gosta desta mensagem
julianovv gosta desta mensagem
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
julianovv gosta desta mensagem
|
|