Discussion :

[megs]

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

[megs]

issue du site web LibreOffice (ask)
Il sagit en plus du passage en majuscule des caractères dans le textbox, de sauver modifier le contenu du champs.
On utilisera l’évènement "avant l'actualisation" pour placer cette macro sur le contrôle textbox.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
 
Sub UPcaseText(PysEvent)
PysEvent.Source.text = Ucase(PysEvent.Source.text)
END SUB