New Database Access Security warning

[DMT Dave]

@ moke123, when you say standard module, do you mean within the same module as the sub ie: paste above the Private Sub or create a mod then call it ?

I tried your post and comes back vriable not defined even with option explicit declared in the mod. that was pasted into Publuc Functions module, not the local module (above teh sub)

[Welshgasman]

even with option explicit declared

That ensures variables need to be declared.

What was the variable? Just Dim it.

[moke123]

@ moke123, when you say standard module, do you mean within the same module as the sub ie: paste above the Private Sub or create a mod then call it ?

I tried your post and comes back vriable not defined even with option explicit declared in the mod. that was pasted into Publuc Functions module, not the local module (above teh sub)

Put it in it's own module or just import the module in the attached example.

The three module types are
Form Module ( a class module)
Class Module ( a class module for custom classes)
Standard Module

As far as your error, my guess is that you didn't have the following part of the code at the top of the module:

#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&

[DMT Dave]

@moke123, yes, imported your modOpenApp and no problem, i had coped into an existing modiel where i have various functions set.

once pulled in the modAopenApp, totally works a treat

I have called it by path and file string

    
strPath = "T:\Databases\"strFile = "DMT Staff Holidays.accdb"


OpenNativeApp strPath & strFile

So this will open any/most file extensions ?

also my occasional barain freeze in lacking of closing objects, there would never be a locked file after closing ?

thank you all indeed

[Welshgasman]

Some people write code that when they open something, they immediately write the code to close it. Then they write the relevant code in between. I don't do it that way, but you might try that method?

[DMT Dave]

Pual, i think i am the minority in that group, always debug.print, the amount of times you have propmted me that, it pays off, mindest is now debug.print and stop, see the reeult then move to the next part

you are all a great help to everyone, not just me..

TY

[jojowhite]

without using API, you can accomplish the same:

strPath = "T:\Databases\"
strFile = "DMT Staff Holidays.accdb"
CreateObject("Shell.Application").NameSpace(0).ParseName(strPath & strFile).InvokeVerb "Open"

[DMT Dave]

@jojowhite, WOW that is so efficient

Just googled invokeverb, not come across that at all, don't have time for a short while to read it all through but, assuming invokeverb is to do with (( What Do You Want To Do With strPath & strFile )) "Open" in this instance ?

TY