IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Contribuez Discussion :

LibreOffice Base (7+) : Comment passer automatiquement en majuscule le contenu d'un textbox


Sujet :

Contribuez

  1. #1
    Membre régulier
    Profil pro
    Responsable de service informatique
    Inscrit en
    mars 2003
    Messages
    93
    Détails du profil
    Informations personnelles :
    Localisation : France, Dordogne (Aquitaine)

    Informations professionnelles :
    Activité : Responsable de service informatique
    Secteur : Enseignement

    Informations forums :
    Inscription : mars 2003
    Messages : 93
    Points : 93
    Points
    93
    Par défaut LibreOffice Base (7+) : Comment passer automatiquement en majuscule le contenu d'un textbox
    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

  2. #2
    Membre régulier
    Profil pro
    Responsable de service informatique
    Inscrit en
    mars 2003
    Messages
    93
    Détails du profil
    Informations personnelles :
    Localisation : France, Dordogne (Aquitaine)

    Informations professionnelles :
    Activité : Responsable de service informatique
    Secteur : Enseignement

    Informations forums :
    Inscription : mars 2003
    Messages : 93
    Points : 93
    Points
    93
    Par défaut FAIRE EN SORTE QUE LA TABLE ENREGISTRE LE CONTENU EN MAJUSCULE
    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. lecteur audio gtk: comment passer automatiquement à la plage suivante?
    Par victorvictor dans le forum GTK+ avec C & C++
    Réponses: 5
    Dernier message: 23/08/2010, 08h05
  2. Réponses: 2
    Dernier message: 29/01/2010, 13h06
  3. Comment passer de minuscule à majuscule?
    Par moilou2 dans le forum Excel
    Réponses: 8
    Dernier message: 08/09/2008, 16h44
  4. Comment passer automatiquement sur une autre page?
    Par loicdtc dans le forum Général JavaScript
    Réponses: 7
    Dernier message: 07/11/2007, 09h34
  5. [JavaScript] [FAQ][correction] Comment passer automatiquement au champ suivant
    Par Auteur dans le forum Contribuez
    Réponses: 10
    Dernier message: 14/12/2006, 19h18

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo