A questa label ho assegnato l'esecuzione di una macro mediante "event on click".
Visto che questa macro impiega un paio di minuti circa volevo fare in modo che questa label (che ha come caption "avvia procedura"), visualizzasse la dicitura "Processo in corso attendere prego" durante l'esecuzione della macro per poi tornare alla caption originale.
Per realizzare cio' ho scritto questo codice che pero' esegue solo la macro , ignorando completamente le altre istruzioni:
- Codice: Seleziona tutto
EtichettaPulsante = Me.quiHoMessoNomePulsante.Caption
Me.quiHoMessoNomePulsante.Caption = "Attendere prego..."
stDocName = "NomeDellaMacro"
DoCmd.RunMacro stDocName
Me.quiHoMessoNomePulsante.Caption = EtichettaPulsante
Msgbox "Procedura terminata"
Sono perplesso in quanto in un altro db 2010 avevo utilizzato lo stesso ragionamento e funzionava tutto perfettamente, l'unica differenza e' che che l'evento on clik apriva una query:
- Codice: Seleziona tutto
stDocName = " NomeDellaQuery "
DoCmd.OpenQuery stDocName, acViewNormal, acReadOnly
Pensate che sia per quello o sto trascurando qualcos'altro?
Grazie per l'aiuto o gli spunti in merito.