Posso dirti che il codice proposto funziona su Maschere e, opportunamente modificato, sulle Query.
Comunque se ritieni di volerlo testare mi permetto di indicarti una modifica per farlo funzionare in un aQuery;
UCase(Left([Testo];1)) & LCase(Mid([Testo];2;50))
L'aggiunta di LCase completa il codice formattando anche le stringhe inserite con caratteri tutti maiuscoli. Quindi anche il codice riferito alla Maschera, per completezza, andrebbe inserito come:
Option Compare Database
Option Explicit
Private Sub Testo_AfterUpdate()
[Testo] = UCase(Left([Testo], 1)) & LCase(Mid([Testo],2,50))
End Sub
Cordiali saluti.
Giuseppe