tasti scelta rapida con macro, eseguire codice?

Question

Salve a tutti,

eccomi qui a chiedere di nuovo il vostro aiuto,

ho creato delle scorciatoie da tastiera con una macro, salvandola con il nome AutoKeys. Le operazioni che devo comandare da tastiera sono quattro(i quattro pulsanti nel menu principale), tre di queste semplicemente devono aprire una maschera, fin qui sono riuscito nell'intendo, ma un'operazione di queste prima di aprire una maschera apre una finestra di dialogo chiedendo all'utente di inserire un id e poi apre una maschera filtrata in base al'id inserito, il codice eseguito è il seguente:

Public a As String

Private Sub Comando3_Click()

Dim defaultValue As String

defaultValue = "0"

a = InputBox("Inserisci Nag", "Ricerca per Nag", defaultValue)

DoCmd.OpenForm "mscDettaglio", acNormal, , "ID=" & a

End Sub

Ho pensato, forse devo racchiudere il codice soprastante in una funzione e richiamarla sia all'evento click del pulsante che alla pressione del tasto assegnato...Facile a dirsi ma per me che sono un neofita, non è così semplice...Qualcuno mi da un consiglio?

Grazie Anticipatamente

Saluti Satore11

Answer 1

Ciao,

mi sembra ottima la soluzione di una funzione, qualsiasi successiva modifica verrebbe sentita da entrambe le strade.

Crei un nuovo modulo e lo chiami come vuoi contenete  :

Function Apri_mscDettaglio()

Dim a As String

Dim defaultValue As String

defaultValue = "0"

a = InputBox("Inserisci Nag", "Ricerca per Nag", defaultValue)

DoCmd.OpenForm "mscDettaglio", acNormal, , "ID=" & a

End Function

Nella maschera come nella macro attivi la funzione con:

Apri_mscDettaglio

Fammi sapere Mimmo

Answer 2

Ciao,

Ottimo funziona perfettamente!!

Grazie Mille

Saluti Satore11