Boa tarde
Como evitar esta mensagem ?
No click de um botão o comando é :
Private Sub Lista0_Click()
Dim strCaminho$
strCaminho = CurrentProject.path & "\PDF\"
Application.FollowHyperlink strCaminho & Me.Lista0.Column(0)
End Sub
Mensagem da imagem
Como evitar esta mensagem ?
No click de um botão o comando é :
Private Sub Lista0_Click()
Dim strCaminho$
strCaminho = CurrentProject.path & "\PDF\"
Application.FollowHyperlink strCaminho & Me.Lista0.Column(0)
End Sub
Mensagem da imagem