Le tout réside dans la définition de l'évènement "a la perte du focus" du contrôle via une macro.
L'effet est qu'a la fin de saisie lorsque l'on passe a un autre contrôle sur le formulaire le script est appelé et le contenu est passé en majuscule.
Chaque contrôle sur lequel on souhaite ce traitement doit disposer de son propre script ( ex UC_serial )car il est spécifié le nom du formulaire (propriété de formulaire) et nom du contrôle textbox( propriété de contrôle) a traité.
PS: Si quelqu'un connait le moyen de récupérer le contrôle spécifique qui appelle le script on pourrais faire une fonction unique ce qui serait plus élégant...

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
 
Sub UC_Serial()
	UPcaseTextBox("Form_Inventaire","txtSERIALNUMBER")
END SUB
 
Sub UPcaseTextBox(sFORM as string,sCtrl as string)
DIM sVal as string
	sVal =ThisComponent.Drawpage.Forms.getByName(sFORM).getByName(sCtrl).text
	ThisComponent.Drawpage.Forms.getByName(sFORM).getByName(sCtrl).text = UCase(sVal)
END SUB