 | Start a set with this search |
 | Include this search in one of my sets |
 | Exclude this search from one of my sets |
 | Permalink to these results Paste this link in email or IM: |
 | Atom feed for tracking future search results Paste this URL into your reader: |
3 messages in org.openoffice.fr.prog[prog] liste defilante dans une boite...| From | Sent On | Attachments |
|---|---|---|
| chris draux | Aug 28, 2005 3:10 am | |
| Bernard Marcelly | Aug 28, 2005 5:31 am | |
| chris draux | Aug 28, 2005 9:04 am |
| Permalink for this message Paste this link in email or IM: |
| Permalink for this thread Paste this link in email or IM: |
| Atom feed for this thread Paste this URL into your reader: |
| Subject: | [prog] liste defilante dans une boite de dialogue | Actions... |
|---|---|---|
| From: | chris draux (chri...@free.fr) | |
| Date: | Aug 28, 2005 3:10:38 am | |
| List: | org.openoffice.fr.prog | |
Bonjour J'essaie cette fois une liste déroulante dans une boîte de dialogue. A partir d'une application pédagogique fournie ici : http://www.reseaucerta.org/cotecours/cotecours.php?num=282 Avec OpenOffice 1.1.4 dans le fichier calc figure une boîte de dialogue. Sur cette boîte figure un contrôle de liste déroulante : lbClient Dans les événements figure : Statut modifié : document:Standard.Module1.Client2_Click Si je passe en mode test la liste déroulante s'affiche vide. Si dans l'EDI je lance la macro : Client2_Click, une boîte de dialogue s'ouvre avec les noms extraits de la base, donc tout va bien. Sub Client2_Click Dim oAdrRue, oAdrVil, oNumCli as object resultSet.absolute(oListBox.selectedItemPos+1) 'on va dans le resultSet récupérer la ligne correspondant à la sélection ' on affiche dans les cellules les informations sélectionnées Dim cellCode, cellIdent, cellAdrRue, cellAdrVil as object 'cellules à renseigner cellCode=feuille.getCellRangeByname("B5") 'on adresse la cellule par son emplacement cellIdent=feuille.getCellRangeByname("B6") 'on adresse la cellule par son emplacement cellAdrRue=feuille.getCellRangeByname("adrRueClient") 'on adresse la cellule par son nom cellAdrVil=feuille.getCellRangeByname("adrVilClient") 'on adresse la cellule par son nom cellIdent.String=oListBox.selectedItem 'l'élément sélectionné dans la zone de liste sert pour renseigner cette cellule cellCode.String=resultSet.getString(1) cellAdrRue.String=resultSet.getString(5) cellAdrVil.String=resultSet.getString(7)+" "+resultSet.getString(6) End sub
Pourquoi en mode test la liste ne s'affiche t-elle pas ? Sous Ooo 2.0 m125, a l'ouverture du classeur, j'ai l'erreur : [Microsoft][Gestionnaire de pilotes ODBC] état de curseur non valide, sur la ligne suivante : cellCode.String=resultSet.getString(1) Un bogue ?
Enfin lors de la création d'une source de données ODBC avec l'assistant, sous Ooo 2.0 m125, à l'étape 3 : paramétrer l'authentification de l'utilisateur une case à cocher : 'password required' n'est pas traduite dans la version française. Merci d'avance pour vos lumières. @+ Christian