Funzione per Maiuscolo

Question

Uso la seguente Funzione per convertire il testo in maiuscolo:

Function Maiux()

    Me.ActiveControl = UCase(Me.ActiveControl)

End Function

Per evitare di metterla in tutti i moduli vorrei renderla Pubblica. Se la lascio così non funziona a causa del Me.

In che modo devo correggere il codice?

Grazie.

Answer 1

ciao Luigi e Mimmo,

scusate l'intromissione....se intendi evitare di scrivere su ogni form o su ogni text box la stessa routine, potresti ricorrere a questo :

http://answers.microsoft.com/it-it/office/forum/office\_2003-access/rilevare-il-nome-delletichetta-di-un-controllo/fbfdad95-5606-4ef0-9b79-22822bb76398

gestendo l'evento dopo aggiornamento della textbox puoi centrare l'obbiettivo.

Richiamando le classi come da suggerimento del ns Mau, che siano 1 o 10 le form da gestire il ragionamento non cambia.

Ciao, Sandro.

Answer 2

Grazie Mimmo, devo essere stato poco chiaro. Voglio evitare di mettere tale funzione nel modulo di ogni form (è quello che faccio adesso). Quindi, pensavo, in che modo sostituire il "me" nel senso che "sulla form attiva, fammi l'ucase sul controllo attivo".

Mi piacerebbe sapere come si trasforma in codice quello che ho detto.

Spero di essere stato più comprensibile.

Answer 3

Ciao Luigi,

perchè per utilizzare la funzione UCase crei una ulteriore funzione.

In una maschera sul before-update puoi maiuscolizzare tutti i controlli che vuoi direttamente con UCase.

Mimmo