Apertura database esterno formato .accdr

Question

Salve a tutti. ho un problemino da risolvere. da database formato .accdb ho creato un pulsante per aprire un database esterno nel formato .accdr, codice per la apertura:

Private Sub Comando2_Click()

Application.FollowHyperlink "C:\Gestionale.accdr", , True

End Sub

premendo su comando2 si apre una finestra di microsoft office  con messaggio:

_____________________________________________________________________________________

 Apertura di

 C:\Gestionale.accdr in corso

Alcune file possono contenere virus o danneggiare in  altro modo il computer.

Accertarsi della provenienza dei file.

Aprire file?

                                                      Ok     Annulla  

______________________________________________________________________________________

 come potrei fare per evitare  questo messaggio di conferma e va aprire direttamente database esterno.

 Grazie Anticipatamente. Vladi

Answer 1

Il seguente codice provato, poco, su macchina in installato Office 2013 Professional ha aperto senza alcun avviso un file accdr:

In un modulo standard inserisci il seguente codice:

---

Declare Function ShellExecute Lib "shell32.dll" _

    Alias "ShellExecuteA" ( _

        ByVal Hwnd As Long, _

        ByVal lpOperation As String, _

        ByVal lpFile As String, _

        ByVal lpParameters As String, _

        ByVal lpDirectory As String, _

        ByVal nShowCmd As Long _

    ) As Long

Public Sub ApriFile(sFileName As String, Optional sParametri As String)

    ShellExecute 0, "Open", sFileName, sParametri, "", 1

End Sub

---

Nell'evento su click del tuo pulsante scriverai:

---

Private Sub Comando2_Click()

    ApriFile sFileName:="MsAccess.exe", _

        sParametri:="C:\Gestionale.accdr /runtime"

End Sub

---

David

Answer 2

Grazie David. Funziona benissimo, grazie

Ciao. Vladi