Se avete la necessità di far eseguire delle funzioni ad accesss passando delle variabili, le macro sono uno strumento troppo rigido.
Fortunatamente Microsoft ci viene incontro con l'opzione: /cmdEcco come farla funzionare..
Create un file .bat e inserite il seguente codice:
rem il percorso dove risiede il vostro db
SET path_to_db="C:\Users\federosso\Documents\LABS\chk_command_line_params.mdb"
rem il percorso per accedere ad Access
SET access="C:\Program Files (x86)\Microsoft Office\Office14\MSACCESS.EXE"
rem il parametro che vogliamo passare ad access
SET parametro="123456"
rem l'opzione che dice ad access che stiamo inviando un comando
SET options=/cmd %parametro%
rem la stringa finale che richiama Access passandogli il path del db e le opzioni sopra dichiarate
%access% %path_to_db% %options%
A questo punto passiamo ad Access:
All'interno del vostro db, inserite la seguente funzione:
Function CheckCommandLine()
' Command è il nome della variabile in cui viene memorizzato il parametro passato dalla linea di comando
If Command <> "" Then
MsgBox (Command)
Else
MsgBox ("Nessun Parametro inviato")
End If
End Function
Creata la funzione è necessario creare una Macro e darle il nome AutoExec per permettere l'auto esecuzione all'avvio; al suo interno diciamo di richiamere la funzione CheckCommandLine() che abbiamo appena inserito nel modulo.
.png)
Fortunatamente Microsoft ci viene incontro con l'opzione: /cmdEcco come farla funzionare..
Create un file .bat e inserite il seguente codice:
rem il percorso dove risiede il vostro db
SET path_to_db="C:\Users\federosso\Documents\LABS\chk_command_line_params.mdb"
rem il percorso per accedere ad Access
SET access="C:\Program Files (x86)\Microsoft Office\Office14\MSACCESS.EXE"
rem il parametro che vogliamo passare ad access
SET parametro="123456"
rem l'opzione che dice ad access che stiamo inviando un comando
SET options=/cmd %parametro%
rem la stringa finale che richiama Access passandogli il path del db e le opzioni sopra dichiarate
%access% %path_to_db% %options%
A questo punto passiamo ad Access:
All'interno del vostro db, inserite la seguente funzione:
Function CheckCommandLine()
' Command è il nome della variabile in cui viene memorizzato il parametro passato dalla linea di comando
If Command <> "" Then
MsgBox (Command)
Else
MsgBox ("Nessun Parametro inviato")
End If
End Function
Creata la funzione è necessario creare una Macro e darle il nome AutoExec per permettere l'auto esecuzione all'avvio; al suo interno diciamo di richiamere la funzione CheckCommandLine() che abbiamo appena inserito nel modulo.
Commenti