27/02 11:11
alip1
Buongiorno chiedo scusa se l'argomento forse è stato già trattato ma non sono riuscito a trovarlo.
Ho un'applicazione VBA in access.... la stessa viene aperta con runtime avendo cambiato il suffisso accdb in accdr.
Ora si vorrebbe aprire l'applicazione da altro programma scritto in VB 2012 utilizzando un comando di shell
Nell'applicativo in access all'avvio viene richiamata la seguente funzione, realizzata a mo di test intanto per controllare il parametro passato:
Ora non so come fare per lanciare l'applicazione in access passando un parametro. Ho provato così ma non mi funziona:
ma non funziona.
con l'istruzione:
funziona apre l'app in access ma ovvio senza parametri passati.
Sapreste indicarmi come fare?? Grazie per l'attenzione
Ho un'applicazione VBA in access.... la stessa viene aperta con runtime avendo cambiato il suffisso accdb in accdr.
Ora si vorrebbe aprire l'applicazione da altro programma scritto in VB 2012 utilizzando un comando di shell
Nell'applicativo in access all'avvio viene richiamata la seguente funzione, realizzata a mo di test intanto per controllare il parametro passato:
Function CheckCommandLine() As Boolean 'Command è il nome della della variabile in cui viene memorizzato il parametro 'passato dalla linea di comando Dim bok As Boolean bok = False If Command <> "" Then MsgBox (Command) bok = True Else MsgBox ("Nessun parametro passato") bok = False End If CheckCommandLine = bok End Function
Ora non so come fare per lanciare l'applicazione in access passando un parametro. Ho provato così ma non mi funziona:
Dim oShell As Object oShell = CreateObject("WScript.Shell") oShell.run("C:\ViaggiRimborsiGestione\Viaggi_Rimborsi.accdr /cmd "Parametro1" ", 0)
ma non funziona.
con l'istruzione:
oShell.run("C:\ViaggiRimborsi\GestioneViaggi_Rimborsi.accdr", 0)
funziona apre l'app in access ma ovvio senza parametri passati.
Sapreste indicarmi come fare?? Grazie per l'attenzione
Ultima modifica effettuata da alip1 27/02 11:39
aaa