Disable warning message.

[Perfac]

The forms in my app hosts different kinds of buttons. Some buttons open word documents stored externally, some open video clips etc. It always shows the attached error message. I did change the setting under "File" and "Options" to not display other kinds of warnings. I searched the internet but did not find the way to disable the warning below.

[Gicu]

How do you open the files, I assume you store the link to them as hyperlink and that is the cause of the warning.
Here are a couple of links on how to edit the registry to remove the warning:
https://stackoverflow.com/questions/...curity-warning
https://learn.microsoft.com/en-us/mi...erlink-warning
https://www.slipstick.com/how-to-out...0the%20warning.

I avoid the hyperlink data type for this reason (and also the difficulty it present with editing it) and simply save the full path to the files in a regular small text field. Then to open them I use Application.FollowHyperlink or one of the many implementations of ShellExecute.

Cheers,

[Perfac]

1. One of your references has a button, if clicked it fixes the registry, how easy can that be? I did what they suggested manually also, but the warning still there.
2. In my app there is a form that opens external videos through an attachment, there is no warning there. But the user first opens the attachment page and then select the video.
3. I would like the result after clicking the button the video clip must instantly start.
4. The code in blue is where I tried to do what you suggest, the call from the form. The code in red is on the module. The text field is named "Rocky". The button named "btn23".
5. Most buttons are set up like this, but the warning message is showing.
6. When I click on the button now, the error is "Bad file name or number". Maybe I save the name wrong in the text field? See the third image. That is where the clip is stored.

Private Sub btn23_Click()
    OpenTutorial23 Me.Rocky.Value
End Sub

Sub OpenTutorial23(tutName23 As String)
    If Len(Dir("D:\VideoClips" & tutName23 & ".mp4")) = 0 Then
        MsgBox "No Video clip linked."
    Else
    FollowHyperlink "D:\VideoClips" & tutName23 & ".mp4"
End If
End Sub

[Gicu]

The error implies the file name is wrong, check the argument for the FollowHyperlink. Maybe something like this:

Private Sub btn23_Click()
    OpenTutorial23 Me.Rocky.Value 'which I believe would be OpenTutorial23 "D:\VideoClips\Rocky.mp4"
End Sub


Sub OpenTutorial23(tutName23 As String)
    if Len(Dir(tutName23)) = 0 'If Len(Dir("D:\VideoClips" & tutName23 & ".mp4")) = 0 Then	
        MsgBox "No Video clip linked."
    Else
    Application.FollowHyperlink tutName23  '"D:\VideoClips" & tutName23 & ".mp4"
End If
End Sub

Cheers,

[Perfac]

Thanks. The clip opens, but the warning message is still there.

[Gicu]

If you don't want to try to mess with the registry again (I think the link from MS was suggesting multiple edits) you should try switching to Shell:

Private Sub btn23_Click()
    'OpenTutorial23 Me.Rocky.Value 'which I believe would be OpenTutorial23 "D:\VideoClips\Rocky.mp4"
    OpenTutorial23_Shell Me.Rocky.Value 'use Shell
End Sub


Sub OpenTutorial23(tutName23 As String)
    if Len(Dir(tutName23)) = 0 'If Len(Dir("D:\VideoClips" & tutName23 & ".mp4")) = 0 Then    
        MsgBox "No Video clip linked."
    Else
    Application.FollowHyperlink tutName23  '"D:\VideoClips" & tutName23 & ".mp4"
End If
End Sub


Sub OpenTutorial23_Shell(tutName23 As String) 'new public sub to add to your module
On Error GoTo ErrProc
'FollowHyperlink is not working properly
If Len(Dir(tutName23)) = 0 
        MsgBox "No Video clip linked."
Else
    Dim wsShell As Object
    Set wsShell = CreateObject("WScript.Shell")
    wsShell.Run Chr(34) & tutName23 & Chr(34)    
End If


ExitProc:
Set wsShell = Nothing
Exit Sub
ErrProc:
MsgBox "Cannot open document. Contact database administrator. : " & Err.Number    
End Sub

Cheers,

[Perfac]

Thank you, Vlad. The result is good.