New Database Access Security warning

[DMT Dave]

Hi Guy's, i have written a new DB file and placed into a folder (shared folder on internal drive)

I am using Application.FollowHyperlink to the path and file name but get the security warning, after searching a little, all points to Trust Center settings

i can't seem to get past this ???


As always, thank you



Is it better to set as an Object rather than follow hyperlink ?

never had this problem

When i click Yes, file opens fine

[Welshgasman]

So is that a Trusted Location?
How did you place it there?

[DMT Dave]

Its a front end placed in a folder and backend placed where all others BE's are placed

there are other FE's in the same folder, so is it Trusted locations issue ?

TY

FE Folder is Databases
BE folder is Db Backend Folder

[Welshgasman]

If the other FEs work, being in the same location, I would not have thought a trust issue.

[davegri]

If you downloaded the BE or FE from parts unknown, check out the file property.

[Welshgasman]

If you downloaded the BE or FE from parts unknown, check out the file property.

I thought of that, but thought Dave would just copy it within the network?

[moke123]

try using a method other than followhyperlink and you won't get the message.

#If Win64 Then      'Public Dclare PtrSafe Function
  Private Declare PtrSafe Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hWnd As Long, ByVal lpszOp As String, ByVal lpszFile As String, ByVal lpszParams As String, ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long
  Private Declare PtrSafe Function GetDesktopWindow Lib "user32" () As Long
#Else
  Private Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpszOp As String, ByVal lpszFile As String, ByVal lpszParams As String, ByVal lpszDir As String, ByVal FsShowCmd As Long) As Long
  Private Declare Function GetDesktopWindow Lib "user32" () As Long
#End If




Const SW_SHOWNORMAL = 1
Const SE_ERR_FNF = 2&
Const SE_ERR_PNF = 3&
Const SE_ERR_ACCESSDENIED = 5&
Const SE_ERR_OOM = 8&
Const SE_ERR_DLLNOTFOUND = 32&
Const SE_ERR_SHARE = 26&
Const SE_ERR_ASSOCINCOMPLETE = 27&
Const SE_ERR_DDETIMEOUT = 28&
Const SE_ERR_DDEFAIL = 29&
Const SE_ERR_DDEBUSY = 30&
Const SE_ERR_NOASSOC = 31&
Const ERROR_BAD_FORMAT = 11&


Public Sub OpenNativeApp(ByVal psDocName As String)
Dim r As Long, msg As String


r = StartDoc(psDocName)
If r <= 32 Then
    'There was an error
    Select Case r
        Case SE_ERR_FNF
            msg = "File not found"
        Case SE_ERR_PNF
            msg = "Path not found"
        Case SE_ERR_ACCESSDENIED
            msg = "Access denied"
        Case SE_ERR_OOM
            msg = "Out of memory"
        Case SE_ERR_DLLNOTFOUND
            msg = "DLL not found"
        Case SE_ERR_SHARE
            msg = "A sharing violation occurred"
        Case SE_ERR_ASSOCINCOMPLETE
            msg = "Incomplete or invalid file association"
        Case SE_ERR_DDETIMEOUT
            msg = "DDE Time out"
        Case SE_ERR_DDEFAIL
            msg = "DDE transaction failed"
        Case SE_ERR_DDEBUSY
            msg = "DDE busy"
        Case SE_ERR_NOASSOC
            msg = "No association for file extension"
        Case ERROR_BAD_FORMAT
            msg = "Invalid EXE file or error in EXE image"
        Case Else
            msg = "Unknown error"
    End Select
'    MsgBox msg
End If
End Sub


Private Function StartDoc(psDocName As String) As Long


Dim Scr_hDC As Long


Scr_hDC = GetDesktopWindow()
StartDoc = ShellExecute(Scr_hDC, "Open", psDocName, "", "C:", SW_SHOWNORMAL)
End Function

call it with

OpenNativeApp "Your url here"

[DMT Dave]

Hi guys, thank you, it will open directly ok, just a command button from main DB to follow hyperlink

@davegri, i can't find those properties, is it location folder properties ?

@WGM I had copied the DB to the same location as other FE files

@ moke123, would that function go into a global module or current module ?

I normally use a macro to open DB's and call them Autoexec, guessing that's not the issue but i will try yoru suggestions

Thank you indeed

[DMT Dave]

@ davegri, noticed you said file properties, will find it

[davegri]

@ davegri, noticed you said file properties, will find it

Right click on the database file name in File Explorer.

[Welshgasman]

@ davegri, noticed you said file properties, will find it

Right click the file.

[DMT Dave]

I think i am barking up the wrong tree

Right click DB File/Properties

these are the windows i get up







I have tried looking for the optoin to disable the warning....

Sorry if i am niaeve on this

[davegri]

In your first image, the option at the bottom doesn't show. That means the file is not seen as being downloaded from the internet, or it has already been approved.
So the suggestion doesn't apply to that file.

[DMT Dave]

I have tried a few things, perhaps try generating a new databse in the same folder, and import FE Objects from the one that won't play and Import linkd tables from BE

[moke123]

@ moke123, would that function go into a global module or current module ?

A standard module. I tested it to be sure and it does not cause the warning that followhyperlink does.