[users-fr] OOo 3.2 Base Bouton de commande
Bonjour, j'avais demandé il y a quelque temps, s' il était concevable d'avoir une macro qui ouvre une Requête plutôt qu'un formulaire. Cette question n'avait pas eu d'écho , je veux bien croire que l'activité sur le forum en cette période est réduite et aussi peut-être que ma question est un peu saugrenue Dans le code OOo.org Basic je ne vois pas de commande d'équivalence à la fonction : Function OpenForm Cette demande fait suite au constat que le switchboard s'il apporte un début de réponse à un menu d'accueil, ne proposant pas de commande Requêtes, il ne donne pas les moyens à un utilisateur lambda de profiter pleinement d'une Base de données. Quelqu'un aurait-il une réponse ? Claude --
Re: [users-fr] OOo 3.2 Base Bouton de commande
Il me semble avoir envoyer un document ou un lien vers un document qui donne des exemples de macros exécutant des requêtes SQL INSERT, DELETE, UPDATE . Ce n'est pas exactement la solution à ton problème mais ça permet d'exécuter indirectement des requêtes SQL). Bernard Le 09/08/2010 09:35, Fricard Claude a écrit : Bonjour, j'avais demandé il y a quelque temps, s' il était concevable d'avoir une macro qui ouvre une Requête plutôt qu'un formulaire. Cette question n'avait pas eu d'écho , je veux bien croire que l'activité sur le forum en cette période est réduite et aussi peut-être que ma question est un peu saugrenue Dans le code OOo.org Basic je ne vois pas de commande d'équivalence à la fonction : Function OpenForm Cette demande fait suite au constat que le switchboard s'il apporte un début de réponse à un menu d'accueil, ne proposant pas de commande Requêtes, il ne donne pas les moyens à un utilisateur lambda de profiter pleinement d'une Base de données. Quelqu'un aurait-il une réponse ? Claude -- Bernard Ribot Windows 7 / Windows XP SP3 OpenOffice.prg 3.2.1 --- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 100808-1, 08/08/2010 Analyse le : 09/08/2010 10:27:21 avast! - copyright (c) 1988-2010 AVAST Software. http://www.avast.com - To unsubscribe, e-mail: users-unsubscr...@fr.openoffice.org For additional commands, e-mail: users-h...@fr.openoffice.org
Re: [users-fr] OOo 3.2 Base Bouton de commande
Bonsoir Claude Le 09/08/2010 09:35, Fricard Claude a écrit : Bonjour, j'avais demandé il y a quelque temps, s' il était concevable d'avoir une macro qui ouvre une Requête plutôt qu'un formulaire. Cette question n'avait pas eu d'écho , je veux bien croire que l'activité sur le forum en cette période est réduite et aussi peut-être que ma question est un peu saugrenue Oui la période est propice à la calmitude :D Si j'ai bien compris l'expression de ton besoin, il s'agit de pouvoir ouvrir directement une requête sans passer par l'appel d'un formulaire. Si tel est le cas, voici un bout de code (que tu aurais pu trouver sur le Net) : sub onClickButton( oEvent as object ) '"Query1" = le nom de la requête openQueryDataView( "Query1", oEvent.Source.Model.Parent.ActiveConnection ) end sub sub OpenQueryDataView( aQueryName as string, aConnection as variant ) dim oDesktop, oDispatchObject dim aURL as New com.sun.star.util.URL dim aProps(5) as New com.sun.star.beans.PropertyValue oDesktop = createUnoService("com.sun.star.frame.Desktop") aURL.Complete = ".component:DB/DataSourceBrowser" oDispatchObject = oDesktop.queryDispatch(_ aURL, _ "_Blank",_ com.sun.star.frame.FrameSearchFlag.CREATE) aProps(0).Name = "ActiveConnection" aProps(0).Value = aConnection aProps(1).Name = "CommandType" aProps(1).Value = com.sun.star.sdb.CommandType.QUERY aProps(2).Name = "Command" aProps(2).Value = aQueryName aProps(3).Name = "ShowMenu" aProps(3).Value = TRUE aProps(4).Name = "ShowTreeView" aProps(4).Value = FALSE aProps(5).Name = "ShowTreeViewButton" aProps(5).Value = FALSE oDispatchObject.dispatch(aURL, aProps) end sub Dans le code OOo.org Basic je ne vois pas de commande d'équivalence à la fonction : Function OpenForm En effet ; la démarche est sensiblement différente. Cette demande fait suite au constat que le switchboard s'il apporte un début de réponse à un menu d'accueil, ne proposant pas de commande Requêtes, il ne donne pas les moyens à un utilisateur lambda de profiter pleinement d'une Base de données. Quelqu'un aurait-il une réponse ? Claude Bonne continuation. -- Francois Gatto Ubuntu 10.04 OpenOffice.org 3.2.1 - To unsubscribe, e-mail: users-unsubscr...@fr.openoffice.org For additional commands, e-mail: users-h...@fr.openoffice.org
Re: [users-fr] OOo 3.2 Base Bouton de commande
Merci François pour cette macro. Bernard Le 09/08/2010 19:07, François Gatto a écrit : Bonsoir Claude Le 09/08/2010 09:35, Fricard Claude a écrit : Bonjour, j'avais demandé il y a quelque temps, s' il était concevable d'avoir une macro qui ouvre une Requête plutôt qu'un formulaire. Cette question n'avait pas eu d'écho , je veux bien croire que l'activité sur le forum en cette période est réduite et aussi peut-être que ma question est un peu saugrenue Oui la période est propice à la calmitude :D Si j'ai bien compris l'expression de ton besoin, il s'agit de pouvoir ouvrir directement une requête sans passer par l'appel d'un formulaire. Si tel est le cas, voici un bout de code (que tu aurais pu trouver sur le Net) : sub onClickButton( oEvent as object ) '"Query1" = le nom de la requête openQueryDataView( "Query1", oEvent.Source.Model.Parent.ActiveConnection ) end sub sub OpenQueryDataView( aQueryName as string, aConnection as variant ) dim oDesktop, oDispatchObject dim aURL as New com.sun.star.util.URL dim aProps(5) as New com.sun.star.beans.PropertyValue oDesktop = createUnoService("com.sun.star.frame.Desktop") aURL.Complete = ".component:DB/DataSourceBrowser" oDispatchObject = oDesktop.queryDispatch(_ aURL, _ "_Blank",_ com.sun.star.frame.FrameSearchFlag.CREATE) aProps(0).Name = "ActiveConnection" aProps(0).Value = aConnection aProps(1).Name = "CommandType" aProps(1).Value = com.sun.star.sdb.CommandType.QUERY aProps(2).Name = "Command" aProps(2).Value = aQueryName aProps(3).Name = "ShowMenu" aProps(3).Value = TRUE aProps(4).Name = "ShowTreeView" aProps(4).Value = FALSE aProps(5).Name = "ShowTreeViewButton" aProps(5).Value = FALSE oDispatchObject.dispatch(aURL, aProps) end sub Dans le code OOo.org Basic je ne vois pas de commande d'équivalence à la fonction : Function OpenForm En effet ; la démarche est sensiblement différente. Cette demande fait suite au constat que le switchboard s'il apporte un début de réponse à un menu d'accueil, ne proposant pas de commande Requêtes, il ne donne pas les moyens à un utilisateur lambda de profiter pleinement d'une Base de données. Quelqu'un aurait-il une réponse ? Claude Bonne continuation. -- Francois Gatto Ubuntu 10.04 OpenOffice.org 3.2.1 - To unsubscribe, e-mail: users-unsubscr...@fr.openoffice.org For additional commands, e-mail: users-h...@fr.openoffice.org -- Bernard Ribot Windows 7 / Windows XP SP3 OpenOffice.prg 3.2.1 --- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 100809-0, 09/08/2010 Analyse le : 09/08/2010 19:29:06 avast! - copyright (c) 1988-2010 AVAST Software. http://www.avast.com - To unsubscribe, e-mail: users-unsubscr...@fr.openoffice.org For additional commands, e-mail: users-h...@fr.openoffice.org
Re: [users-fr] OOo 3.2 Base Bouton de commande
Merci François ainsi que Bernard pour les solutions proposées. Lorsque j'aurai un peu de temps je vais essayer cela à titre personnel, encore faut-il que je me plonge un peu plus dans le langage Basic. Il reste que dans le cadre de l'association RIO et en fonction du niveau moyen je ne peux proposer de telles solutions. Concernant le langage Basic pourriez-vous me suggérer un lien vers un guide, une doc explicitant les diverses commandes. Il me semble avoir déjà eu cette information mais je l'ai pas mémorisée. merci d'avance Claude Le 09/08/2010 19:07, François Gatto a écrit : Bonsoir Claude Le 09/08/2010 09:35, Fricard Claude a écrit : Bonjour, j'avais demandé il y a quelque temps, s' il était concevable d'avoir une macro qui ouvre une Requête plutôt qu'un formulaire. Cette question n'avait pas eu d'écho , je veux bien croire que l'activité sur le forum en cette période est réduite et aussi peut-être que ma question est un peu saugrenue Oui la période est propice à la calmitude :D Si j'ai bien compris l'expression de ton besoin, il s'agit de pouvoir ouvrir directement une requête sans passer par l'appel d'un formulaire. Si tel est le cas, voici un bout de code (que tu aurais pu trouver sur le Net) : sub onClickButton( oEvent as object ) '"Query1" = le nom de la requête openQueryDataView( "Query1", oEvent.Source.Model.Parent.ActiveConnection ) end sub sub OpenQueryDataView( aQueryName as string, aConnection as variant ) dim oDesktop, oDispatchObject dim aURL as New com.sun.star.util.URL dim aProps(5) as New com.sun.star.beans.PropertyValue oDesktop = createUnoService("com.sun.star.frame.Desktop") aURL.Complete = ".component:DB/DataSourceBrowser" oDispatchObject = oDesktop.queryDispatch(_ aURL, _ "_Blank",_ com.sun.star.frame.FrameSearchFlag.CREATE) aProps(0).Name = "ActiveConnection" aProps(0).Value = aConnection aProps(1).Name = "CommandType" aProps(1).Value = com.sun.star.sdb.CommandType.QUERY aProps(2).Name = "Command" aProps(2).Value = aQueryName aProps(3).Name = "ShowMenu" aProps(3).Value = TRUE aProps(4).Name = "ShowTreeView" aProps(4).Value = FALSE aProps(5).Name = "ShowTreeViewButton" aProps(5).Value = FALSE oDispatchObject.dispatch(aURL, aProps) end sub Dans le code OOo.org Basic je ne vois pas de commande d'équivalence à la fonction : Function OpenForm En effet ; la démarche est sensiblement différente. Cette demande fait suite au constat que le switchboard s'il apporte un début de réponse à un menu d'accueil, ne proposant pas de commande Requêtes, il ne donne pas les moyens à un utilisateur lambda de profiter pleinement d'une Base de données. Quelqu'un aurait-il une réponse ? Claude Bonne continuation. -- Francois Gatto Ubuntu 10.04 OpenOffice.org 3.2.1 - To unsubscribe, e-mail: users-unsubscr...@fr.openoffice.org For additional commands, e-mail: users-h...@fr.openoffice.org
Re: [users-fr] OOo 3.2 Base Bouton de commande
Bonjour Claude, Il existe une "bible" : le "Guide de programmation de StarOffice 8 pour BASIC", édité par Sun, que j'ai imprimé mais je ne sais plus où je l'avais trouvé :-). Il faut que je fasse des recherches. Tu as aussi le tutoriel "Comment utiliser des macros Basic dans OpenOffice" : http://fr.openoffice.org/Documentation/How-to/Basic/ht01_basic.pdf Et il y en a certainement d'autres. Bernard Le 10/08/2010 09:23, Claude FRICARD a écrit : Merci François ainsi que Bernard pour les solutions proposées. Lorsque j'aurai un peu de temps je vais essayer cela à titre personnel, encore faut-il que je me plonge un peu plus dans le langage Basic. Il reste que dans le cadre de l'association RIO et en fonction du niveau moyen je ne peux proposer de telles solutions. Concernant le langage Basic pourriez-vous me suggérer un lien vers un guide, une doc explicitant les diverses commandes. Il me semble avoir déjà eu cette information mais je l'ai pas mémorisée. merci d'avance Claude Le 09/08/2010 19:07, François Gatto a écrit : Bonsoir Claude Le 09/08/2010 09:35, Fricard Claude a écrit : Bonjour, j'avais demandé il y a quelque temps, s' il était concevable d'avoir une macro qui ouvre une Requête plutôt qu'un formulaire. Cette question n'avait pas eu d'écho , je veux bien croire que l'activité sur le forum en cette période est réduite et aussi peut-être que ma question est un peu saugrenue Oui la période est propice à la calmitude :D Si j'ai bien compris l'expression de ton besoin, il s'agit de pouvoir ouvrir directement une requête sans passer par l'appel d'un formulaire. Si tel est le cas, voici un bout de code (que tu aurais pu trouver sur le Net) : sub onClickButton( oEvent as object ) '"Query1" = le nom de la requête openQueryDataView( "Query1", oEvent.Source.Model.Parent.ActiveConnection ) end sub sub OpenQueryDataView( aQueryName as string, aConnection as variant ) dim oDesktop, oDispatchObject dim aURL as New com.sun.star.util.URL dim aProps(5) as New com.sun.star.beans.PropertyValue oDesktop = createUnoService("com.sun.star.frame.Desktop") aURL.Complete = ".component:DB/DataSourceBrowser" oDispatchObject = oDesktop.queryDispatch(_ aURL, _ "_Blank",_ com.sun.star.frame.FrameSearchFlag.CREATE) aProps(0).Name = "ActiveConnection" aProps(0).Value = aConnection aProps(1).Name = "CommandType" aProps(1).Value = com.sun.star.sdb.CommandType.QUERY aProps(2).Name = "Command" aProps(2).Value = aQueryName aProps(3).Name = "ShowMenu" aProps(3).Value = TRUE aProps(4).Name = "ShowTreeView" aProps(4).Value = FALSE aProps(5).Name = "ShowTreeViewButton" aProps(5).Value = FALSE oDispatchObject.dispatch(aURL, aProps) end sub Dans le code OOo.org Basic je ne vois pas de commande d'équivalence à la fonction : Function OpenForm En effet ; la démarche est sensiblement différente. Cette demande fait suite au constat que le switchboard s'il apporte un début de réponse à un menu d'accueil, ne proposant pas de commande Requêtes, il ne donne pas les moyens à un utilisateur lambda de profiter pleinement d'une Base de données. Quelqu'un aurait-il une réponse ? Claude Bonne continuation. -- Francois Gatto Ubuntu 10.04 OpenOffice.org 3.2.1 - To unsubscribe, e-mail: users-unsubscr...@fr.openoffice.org For additional commands, e-mail: users-h...@fr.openoffice.org -- Bernard Ribot Windows 7 / Windows XP SP3 OpenOffice.prg 3.2.1 --- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 100809-1, 09/08/2010 Analyse le : 10/08/2010 10:09:35 avast! - copyright (c) 1988-2010 AVAST Software. http://www.avast.com - To unsubscribe, e-mail: users-unsubscr...@fr.openoffice.org For additional commands, e-mail: users-h...@fr.openoffice.org
Re: [users-fr] OOo 3.2 Base Bouton de commande
J'ai demandé à Google :-) : http://docs.sun.com/app/docs/doc/819-1328?l=fr Le 10/08/2010 09:23, Claude FRICARD a écrit : Merci François ainsi que Bernard pour les solutions proposées. Lorsque j'aurai un peu de temps je vais essayer cela à titre personnel, encore faut-il que je me plonge un peu plus dans le langage Basic. Il reste que dans le cadre de l'association RIO et en fonction du niveau moyen je ne peux proposer de telles solutions. Concernant le langage Basic pourriez-vous me suggérer un lien vers un guide, une doc explicitant les diverses commandes. Il me semble avoir déjà eu cette information mais je l'ai pas mémorisée. merci d'avance Claude Le 09/08/2010 19:07, François Gatto a écrit : Bonsoir Claude Le 09/08/2010 09:35, Fricard Claude a écrit : Bonjour, j'avais demandé il y a quelque temps, s' il était concevable d'avoir une macro qui ouvre une Requête plutôt qu'un formulaire. Cette question n'avait pas eu d'écho , je veux bien croire que l'activité sur le forum en cette période est réduite et aussi peut-être que ma question est un peu saugrenue Oui la période est propice à la calmitude :D Si j'ai bien compris l'expression de ton besoin, il s'agit de pouvoir ouvrir directement une requête sans passer par l'appel d'un formulaire. Si tel est le cas, voici un bout de code (que tu aurais pu trouver sur le Net) : sub onClickButton( oEvent as object ) '"Query1" = le nom de la requête openQueryDataView( "Query1", oEvent.Source.Model.Parent.ActiveConnection ) end sub sub OpenQueryDataView( aQueryName as string, aConnection as variant ) dim oDesktop, oDispatchObject dim aURL as New com.sun.star.util.URL dim aProps(5) as New com.sun.star.beans.PropertyValue oDesktop = createUnoService("com.sun.star.frame.Desktop") aURL.Complete = ".component:DB/DataSourceBrowser" oDispatchObject = oDesktop.queryDispatch(_ aURL, _ "_Blank",_ com.sun.star.frame.FrameSearchFlag.CREATE) aProps(0).Name = "ActiveConnection" aProps(0).Value = aConnection aProps(1).Name = "CommandType" aProps(1).Value = com.sun.star.sdb.CommandType.QUERY aProps(2).Name = "Command" aProps(2).Value = aQueryName aProps(3).Name = "ShowMenu" aProps(3).Value = TRUE aProps(4).Name = "ShowTreeView" aProps(4).Value = FALSE aProps(5).Name = "ShowTreeViewButton" aProps(5).Value = FALSE oDispatchObject.dispatch(aURL, aProps) end sub Dans le code OOo.org Basic je ne vois pas de commande d'équivalence à la fonction : Function OpenForm En effet ; la démarche est sensiblement différente. Cette demande fait suite au constat que le switchboard s'il apporte un début de réponse à un menu d'accueil, ne proposant pas de commande Requêtes, il ne donne pas les moyens à un utilisateur lambda de profiter pleinement d'une Base de données. Quelqu'un aurait-il une réponse ? Claude Bonne continuation. -- Francois Gatto Ubuntu 10.04 OpenOffice.org 3.2.1 - To unsubscribe, e-mail: users-unsubscr...@fr.openoffice.org For additional commands, e-mail: users-h...@fr.openoffice.org -- Bernard Ribot Windows 7 / Windows XP SP3 OpenOffice.prg 3.2.1 --- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 100809-1, 09/08/2010 Analyse le : 10/08/2010 10:43:07 avast! - copyright (c) 1988-2010 AVAST Software. http://www.avast.com - To unsubscribe, e-mail: users-unsubscr...@fr.openoffice.org For additional commands, e-mail: users-h...@fr.openoffice.org
Re: [users-fr] OOo 3.2 Base Bouton de commande
Merci Bernard pour ces infos, lorsque mon petit-fils en garde en ce moment, me laissera un peu de temps je vais voir tout cela. Je peux effectivement utiliser "bêtement" le code fourni par les uns et les autres mais j'aimerai également comprendre , histoire de faire travailler les quelques neurones qui me restent à ...68 ans. Toutefois je ne manquerai pas de revenir vers vous pour des des explications complémentaires. Claude Le 10/08/2010 10:43, ribotb a écrit : J'ai demandé à Google :-) : http://docs.sun.com/app/docs/doc/819-1328?l=fr Le 10/08/2010 09:23, Claude FRICARD a écrit : Merci François ainsi que Bernard pour les solutions proposées. Lorsque j'aurai un peu de temps je vais essayer cela à titre personnel, encore faut-il que je me plonge un peu plus dans le langage Basic. Il reste que dans le cadre de l'association RIO et en fonction du niveau moyen je ne peux proposer de telles solutions. Concernant le langage Basic pourriez-vous me suggérer un lien vers un guide, une doc explicitant les diverses commandes. Il me semble avoir déjà eu cette information mais je l'ai pas mémorisée. merci d'avance Claude Le 09/08/2010 19:07, François Gatto a écrit : Bonsoir Claude Le 09/08/2010 09:35, Fricard Claude a écrit : Bonjour, j'avais demandé il y a quelque temps, s' il était concevable d'avoir une macro qui ouvre une Requête plutôt qu'un formulaire. Cette question n'avait pas eu d'écho , je veux bien croire que l'activité sur le forum en cette période est réduite et aussi peut-être que ma question est un peu saugrenue Oui la période est propice à la calmitude :D Si j'ai bien compris l'expression de ton besoin, il s'agit de pouvoir ouvrir directement une requête sans passer par l'appel d'un formulaire. Si tel est le cas, voici un bout de code (que tu aurais pu trouver sur le Net) : sub onClickButton( oEvent as object ) '"Query1" = le nom de la requête openQueryDataView( "Query1", oEvent.Source.Model.Parent.ActiveConnection ) end sub sub OpenQueryDataView( aQueryName as string, aConnection as variant ) dim oDesktop, oDispatchObject dim aURL as New com.sun.star.util.URL dim aProps(5) as New com.sun.star.beans.PropertyValue oDesktop = createUnoService("com.sun.star.frame.Desktop") aURL.Complete = ".component:DB/DataSourceBrowser" oDispatchObject = oDesktop.queryDispatch(_ aURL, _ "_Blank",_ com.sun.star.frame.FrameSearchFlag.CREATE) aProps(0).Name = "ActiveConnection" aProps(0).Value = aConnection aProps(1).Name = "CommandType" aProps(1).Value = com.sun.star.sdb.CommandType.QUERY aProps(2).Name = "Command" aProps(2).Value = aQueryName aProps(3).Name = "ShowMenu" aProps(3).Value = TRUE aProps(4).Name = "ShowTreeView" aProps(4).Value = FALSE aProps(5).Name = "ShowTreeViewButton" aProps(5).Value = FALSE oDispatchObject.dispatch(aURL, aProps) end sub Dans le code OOo.org Basic je ne vois pas de commande d'équivalence à la fonction : Function OpenForm En effet ; la démarche est sensiblement différente. Cette demande fait suite au constat que le switchboard s'il apporte un début de réponse à un menu d'accueil, ne proposant pas de commande Requêtes, il ne donne pas les moyens à un utilisateur lambda de profiter pleinement d'une Base de données. Quelqu'un aurait-il une réponse ? Claude Bonne continuation. -- Francois Gatto Ubuntu 10.04 OpenOffice.org 3.2.1 - To unsubscribe, e-mail: users-unsubscr...@fr.openoffice.org For additional commands, e-mail: users-h...@fr.openoffice.org
Re: [users-fr] OOo 3.2 Base Bouton de commande
François, J'ai essayé avec le bout de code que tu m'as donné : la macro s'exécute mais aucun résultat ne s'affiche , que faut-il ajouter pour cela ? une MsgBox ? la commande Dispatch ne devrai-elle pas le faire ? sachant que la requête est R_Ouvrage_le_plus_cher Le code : sub onClickButton( oEvent as object ) '"Query1" = R_Ouvrage_le_plus_cher openQueryDataView( "Query1", oEvent.Source.Model.Parent.ActiveConnection ) end sub sub OpenQueryDataView( aQueryName as string, aConnection as variant ) dim oDesktop, oDispatchObject dim aURL as New com.sun.star.util.URL dim aProps(5) as New com.sun.star.beans.PropertyValue oDesktop = createUnoService("com.sun.star.frame.Desktop") aURL.Complete = ".component:DB/DataSourceBrowser" oDispatchObject = oDesktop.queryDispatch(_ aURL, _ "_Blank",_ com.sun.star.frame.FrameSearchFlag.CREATE) aProps(0).Name = "ActiveConnection" aProps(0).Value = aConnection aProps(1).Name = "CommandType" aProps(1).Value = com.sun.star.sdb.CommandType.QUERY aProps(2).Name = "Command" aProps(2).Value = aQueryName aProps(3).Name = "ShowMenu" aProps(3).Value = TRUE aProps(4).Name = "ShowTreeView" aProps(4).Value = FALSE aProps(5).Name = "ShowTreeViewButton" aProps(5).Value = FALSE oDispatchObject.dispatch(aURL, aProps) end sub excuse la question d'un béotien en la matière ... Claude Le 09/08/2010 19:07, François Gatto a écrit : Bonsoir Claude Le 09/08/2010 09:35, Fricard Claude a écrit : Bonjour, j'avais demandé il y a quelque temps, s' il était concevable d'avoir une macro qui ouvre une Requête plutôt qu'un formulaire. Cette question n'avait pas eu d'écho , je veux bien croire que l'activité sur le forum en cette période est réduite et aussi peut-être que ma question est un peu saugrenue Oui la période est propice à la calmitude :D Si j'ai bien compris l'expression de ton besoin, il s'agit de pouvoir ouvrir directement une requête sans passer par l'appel d'un formulaire. Si tel est le cas, voici un bout de code (que tu aurais pu trouver sur le Net) : sub onClickButton( oEvent as object ) '"Query1" = le nom de la requête openQueryDataView( "Query1", oEvent.Source.Model.Parent.ActiveConnection ) end sub sub OpenQueryDataView( aQueryName as string, aConnection as variant ) dim oDesktop, oDispatchObject dim aURL as New com.sun.star.util.URL dim aProps(5) as New com.sun.star.beans.PropertyValue oDesktop = createUnoService("com.sun.star.frame.Desktop") aURL.Complete = ".component:DB/DataSourceBrowser" oDispatchObject = oDesktop.queryDispatch(_ aURL, _ "_Blank",_ com.sun.star.frame.FrameSearchFlag.CREATE) aProps(0).Name = "ActiveConnection" aProps(0).Value = aConnection aProps(1).Name = "CommandType" aProps(1).Value = com.sun.star.sdb.CommandType.QUERY aProps(2).Name = "Command" aProps(2).Value = aQueryName aProps(3).Name = "ShowMenu" aProps(3).Value = TRUE aProps(4).Name = "ShowTreeView" aProps(4).Value = FALSE aProps(5).Name = "ShowTreeViewButton" aProps(5).Value = FALSE oDispatchObject.dispatch(aURL, aProps) end sub Dans le code OOo.org Basic je ne vois pas de commande d'équivalence à la fonction : Function OpenForm En effet ; la démarche est sensiblement différente. Cette demande fait suite au constat que le switchboard s'il apporte un début de réponse à un menu d'accueil, ne proposant pas de commande Requêtes, il ne donne pas les moyens à un utilisateur lambda de profiter pleinement d'une Base de données. Quelqu'un aurait-il une réponse ? Claude Bonne continuation. -- Francois Gatto Ubuntu 10.04 OpenOffice.org 3.2.1 - To unsubscribe, e-mail: users-unsubscr...@fr.openoffice.org For additional commands, e-mail: users-h...@fr.openoffice.org
Re: [users-fr] OOo 3.2 Base Bouton de commande
J'utilise moi-même "telle quelle" sans trop chercher à comprendre les macros que je trouve "à droite à gauche". J'ai renoncé à me mettre à StarBasic. C'est trop différent du VB for Applications de Microsoft que je connais un peu et qui m'a servi à développer des applications (simples) sous Excel (facturation, gestion de stock, etc.). Mais je n'ai pas réussi à "rentrer" dans le StarBasic ce qui me laisse quelques regrets car j'aurais voulu réécrire ces applications Excel sous StarBasic afin de migrer complètement à OOo la bureautique d'une petite entreprise. Tant pis. Bon courage à toi. Bernard Le 10/08/2010 10:50, Claude FRICARD a écrit : Merci Bernard pour ces infos, lorsque mon petit-fils en garde en ce moment, me laissera un peu de temps je vais voir tout cela. Je peux effectivement utiliser "bêtement" le code fourni par les uns et les autres mais j'aimerai également comprendre , histoire de faire travailler les quelques neurones qui me restent à ...68 ans. Toutefois je ne manquerai pas de revenir vers vous pour des des explications complémentaires. Claude Le 10/08/2010 10:43, ribotb a écrit : J'ai demandé à Google :-) : http://docs.sun.com/app/docs/doc/819-1328?l=fr Le 10/08/2010 09:23, Claude FRICARD a écrit : Merci François ainsi que Bernard pour les solutions proposées. Lorsque j'aurai un peu de temps je vais essayer cela à titre personnel, encore faut-il que je me plonge un peu plus dans le langage Basic. Il reste que dans le cadre de l'association RIO et en fonction du niveau moyen je ne peux proposer de telles solutions. Concernant le langage Basic pourriez-vous me suggérer un lien vers un guide, une doc explicitant les diverses commandes. Il me semble avoir déjà eu cette information mais je l'ai pas mémorisée. merci d'avance Claude Le 09/08/2010 19:07, François Gatto a écrit : Bonsoir Claude Le 09/08/2010 09:35, Fricard Claude a écrit : Bonjour, j'avais demandé il y a quelque temps, s' il était concevable d'avoir une macro qui ouvre une Requête plutôt qu'un formulaire. Cette question n'avait pas eu d'écho , je veux bien croire que l'activité sur le forum en cette période est réduite et aussi peut-être que ma question est un peu saugrenue Oui la période est propice à la calmitude :D Si j'ai bien compris l'expression de ton besoin, il s'agit de pouvoir ouvrir directement une requête sans passer par l'appel d'un formulaire. Si tel est le cas, voici un bout de code (que tu aurais pu trouver sur le Net) : sub onClickButton( oEvent as object ) '"Query1" = le nom de la requête openQueryDataView( "Query1", oEvent.Source.Model.Parent.ActiveConnection ) end sub sub OpenQueryDataView( aQueryName as string, aConnection as variant ) dim oDesktop, oDispatchObject dim aURL as New com.sun.star.util.URL dim aProps(5) as New com.sun.star.beans.PropertyValue oDesktop = createUnoService("com.sun.star.frame.Desktop") aURL.Complete = ".component:DB/DataSourceBrowser" oDispatchObject = oDesktop.queryDispatch(_ aURL, _ "_Blank",_ com.sun.star.frame.FrameSearchFlag.CREATE) aProps(0).Name = "ActiveConnection" aProps(0).Value = aConnection aProps(1).Name = "CommandType" aProps(1).Value = com.sun.star.sdb.CommandType.QUERY aProps(2).Name = "Command" aProps(2).Value = aQueryName aProps(3).Name = "ShowMenu" aProps(3).Value = TRUE aProps(4).Name = "ShowTreeView" aProps(4).Value = FALSE aProps(5).Name = "ShowTreeViewButton" aProps(5).Value = FALSE oDispatchObject.dispatch(aURL, aProps) end sub Dans le code OOo.org Basic je ne vois pas de commande d'équivalence à la fonction : Function OpenForm En effet ; la démarche est sensiblement différente. Cette demande fait suite au constat que le switchboard s'il apporte un début de réponse à un menu d'accueil, ne proposant pas de commande Requêtes, il ne donne pas les moyens à un utilisateur lambda de profiter pleinement d'une Base de données. Quelqu'un aurait-il une réponse ? Claude Bonne continuation. -- Francois Gatto Ubuntu 10.04 OpenOffice.org 3.2.1 - To unsubscribe, e-mail: users-unsubscr...@fr.openoffice.org For additional commands, e-mail: users-h...@fr.openoffice.org -- Bernard Ribot Windows 7 / Windows XP SP3 OpenOffice.prg 3.2.1 --- Antivirus avast! : message Sortant sain. Base de donnees virale (VPS) : 100810-0, 10/08/2010 Analyse le : 10/08/2010 13:46:42 avast! - copyright (c) 1988-2010 AVAST Software. http://www.avast.com - To unsubscribe, e-mail: users-unsubscr...@fr.openoffice.org For additional commands, e-mail: users-h...@fr.openoffice.org
Re: [users-fr] OOo 3.2 Base Bouton de commande
Claude FRICARD a écrit : François, J'ai essayé avec le bout de code que tu m'as donné : la macro s'exécute mais aucun résultat ne s'affiche , que faut-il ajouter pour cela ? une MsgBox ? la commande Dispatch ne devrai-elle pas le faire ? sachant que la requête est R_Ouvrage_le_plus_cher Le code : sub onClickButton( oEvent as object ) '"Query1" = R_Ouvrage_le_plus_cher openQueryDataView( "Query1", oEvent.Source.Model.Parent.ActiveConnection ) end sub sub OpenQueryDataView( aQueryName as string, aConnection as variant ) dim oDesktop, oDispatchObject dim aURL as New com.sun.star.util.URL dim aProps(5) as New com.sun.star.beans.PropertyValue oDesktop = createUnoService("com.sun.star.frame.Desktop") aURL.Complete = ".component:DB/DataSourceBrowser" oDispatchObject = oDesktop.queryDispatch(_ aURL, _ "_Blank",_ com.sun.star.frame.FrameSearchFlag.CREATE) aProps(0).Name = "ActiveConnection" aProps(0).Value = aConnection aProps(1).Name = "CommandType" aProps(1).Value = com.sun.star.sdb.CommandType.QUERY aProps(2).Name = "Command" aProps(2).Value = aQueryName aProps(3).Name = "ShowMenu" aProps(3).Value = TRUE aProps(4).Name = "ShowTreeView" aProps(4).Value = FALSE aProps(5).Name = "ShowTreeViewButton" aProps(5).Value = FALSE oDispatchObject.dispatch(aURL, aProps) end sub excuse la question d'un béotien en la matière ... Claude Le 09/08/2010 19:07, François Gatto a écrit : Bonsoir Claude Le 09/08/2010 09:35, Fricard Claude a écrit : Bonjour, j'avais demandé il y a quelque temps, s' il était concevable d'avoir une macro qui ouvre une Requête plutôt qu'un formulaire. Cette question n'avait pas eu d'écho , je veux bien croire que l'activité sur le forum en cette période est réduite et aussi peut-être que ma question est un peu saugrenue Oui la période est propice à la calmitude :D Si j'ai bien compris l'expression de ton besoin, il s'agit de pouvoir ouvrir directement une requête sans passer par l'appel d'un formulaire. Si tel est le cas, voici un bout de code (que tu aurais pu trouver sur le Net) : sub onClickButton( oEvent as object ) '"Query1" = le nom de la requête openQueryDataView( "Query1", oEvent.Source.Model.Parent.ActiveConnection ) end sub sub OpenQueryDataView( aQueryName as string, aConnection as variant ) dim oDesktop, oDispatchObject dim aURL as New com.sun.star.util.URL dim aProps(5) as New com.sun.star.beans.PropertyValue oDesktop = createUnoService("com.sun.star.frame.Desktop") aURL.Complete = ".component:DB/DataSourceBrowser" oDispatchObject = oDesktop.queryDispatch(_ aURL, _ "_Blank",_ com.sun.star.frame.FrameSearchFlag.CREATE) aProps(0).Name = "ActiveConnection" aProps(0).Value = aConnection aProps(1).Name = "CommandType" aProps(1).Value = com.sun.star.sdb.CommandType.QUERY aProps(2).Name = "Command" aProps(2).Value = aQueryName aProps(3).Name = "ShowMenu" aProps(3).Value = TRUE aProps(4).Name = "ShowTreeView" aProps(4).Value = FALSE aProps(5).Name = "ShowTreeViewButton" aProps(5).Value = FALSE oDispatchObject.dispatch(aURL, aProps) end sub Si tu suis le code que tu as reçu, tu devrais avoir "R_Ouvrage_le_plus_cher " à la place de "Query1" ici : sub onClickButton( oEvent as object ) '"Query1" = R_Ouvrage_le_plus_cher openQueryDataView( "R_Ouvrage_le_plus_cher", oEvent.Source.Model.Parent.ActiveConnection ) end sub - To unsubscribe, e-mail: users-unsubscr...@fr.openoffice.org For additional commands, e-mail: users-h...@fr.openoffice.org
Re: [users-fr] OOo 3.2 Base Bouton de commande
Bernard, De fait StarBasic n'est pas trivial et finalement je ne sais si je trouverais temps et courage pour aller "fouiller" la chose même à titre personnel. Cependant et si je n'abuse pas trop de ton temps , j'aimerais avoir un exemple concret de l'utilisation de macros pour exécuter une instruction SQL DELETE, UPDATE ou INSERT. Ceci pour compléter un menu d'accueil en alternative au Switchboard qui lui est recevable pour mes "élèves". Par avance merci. Claude Le 10/08/2010 13:46, ribotb a écrit : J'utilise moi-même "telle quelle" sans trop chercher à comprendre les macros que je trouve "à droite à gauche". J'ai renoncé à me mettre à StarBasic. C'est trop différent du VB for Applications de Microsoft que je connais un peu et qui m'a servi à développer des applications (simples) sous Excel (facturation, gestion de stock, etc.). Mais je n'ai pas réussi à "rentrer" dans le StarBasic ce qui me laisse quelques regrets car j'aurais voulu réécrire ces applications Excel sous StarBasic afin de migrer complètement à OOo la bureautique d'une petite entreprise. Tant pis. Bon courage à toi. Bernard Le 10/08/2010 10:50, Claude FRICARD a écrit : Merci Bernard pour ces infos, lorsque mon petit-fils en garde en ce moment, me laissera un peu de temps je vais voir tout cela. Je peux effectivement utiliser "bêtement" le code fourni par les uns et les autres mais j'aimerai également comprendre , histoire de faire travailler les quelques neurones qui me restent à ...68 ans. Toutefois je ne manquerai pas de revenir vers vous pour des des explications complémentaires. Claude Le 10/08/2010 10:43, ribotb a écrit : J'ai demandé à Google :-) : http://docs.sun.com/app/docs/doc/819-1328?l=fr Le 10/08/2010 09:23, Claude FRICARD a écrit : Merci François ainsi que Bernard pour les solutions proposées. Lorsque j'aurai un peu de temps je vais essayer cela à titre personnel, encore faut-il que je me plonge un peu plus dans le langage Basic. Il reste que dans le cadre de l'association RIO et en fonction du niveau moyen je ne peux proposer de telles solutions. Concernant le langage Basic pourriez-vous me suggérer un lien vers un guide, une doc explicitant les diverses commandes. Il me semble avoir déjà eu cette information mais je l'ai pas mémorisée. merci d'avance Claude Le 09/08/2010 19:07, François Gatto a écrit : Bonsoir Claude Le 09/08/2010 09:35, Fricard Claude a écrit : Bonjour, j'avais demandé il y a quelque temps, s' il était concevable d'avoir une macro qui ouvre une Requête plutôt qu'un formulaire. Cette question n'avait pas eu d'écho , je veux bien croire que l'activité sur le forum en cette période est réduite et aussi peut-être que ma question est un peu saugrenue Oui la période est propice à la calmitude :D Si j'ai bien compris l'expression de ton besoin, il s'agit de pouvoir ouvrir directement une requête sans passer par l'appel d'un formulaire. Si tel est le cas, voici un bout de code (que tu aurais pu trouver sur le Net) : sub onClickButton( oEvent as object ) '"Query1" = le nom de la requête openQueryDataView( "Query1", oEvent.Source.Model.Parent.ActiveConnection ) end sub sub OpenQueryDataView( aQueryName as string, aConnection as variant ) dim oDesktop, oDispatchObject dim aURL as New com.sun.star.util.URL dim aProps(5) as New com.sun.star.beans.PropertyValue oDesktop = createUnoService("com.sun.star.frame.Desktop") aURL.Complete = ".component:DB/DataSourceBrowser" oDispatchObject = oDesktop.queryDispatch(_ aURL, _ "_Blank",_ com.sun.star.frame.FrameSearchFlag.CREATE) aProps(0).Name = "ActiveConnection" aProps(0).Value = aConnection aProps(1).Name = "CommandType" aProps(1).Value = com.sun.star.sdb.CommandType.QUERY aProps(2).Name = "Command" aProps(2).Value = aQueryName aProps(3).Name = "ShowMenu" aProps(3).Value = TRUE aProps(4).Name = "ShowTreeView" aProps(4).Value = FALSE aProps(5).Name = "ShowTreeViewButton" aProps(5).Value = FALSE oDispatchObject.dispatch(aURL, aProps) end sub Dans le code OOo.org Basic je ne vois pas de commande d'équivalence à la fonction : Function OpenForm En effet ; la démarche est sensiblement différente. Cette demande fait suite au constat que le switchboard s'il apporte un début de réponse à un menu d'accueil, ne proposant pas de commande Requêtes, il ne donne pas les moyens à un utilisateur lambda de profiter pleinement d'une Base de données. Quelqu'un aurait-il une réponse ? Claude Bonne continuation. -- Francois Gatto Ubuntu 10.04 OpenOffice.org 3.2.1 - To unsubscribe, e-mail: users-unsubscr...@fr.openoffice.org For additional commands, e-mail: users-h...@fr.openoffice.org
Re: [users-fr] OOo 3.2 Base Bouton de commande
Je te renvoie le lien qui pointe sur un tuto contenant des macros pour exécuter du SQL : http://user.services.openoffice.org/fr/forum/ftopic1454.html J'ai déjà utilisé ça dans une de mes bases (mais je ne sais plus laquelle, faudrait que je farfouille :-)). Tu associes la macro à un évènement dans un contrôle (un bouton, ou autre). Bernard Le 10/08/2010 14:51, Claude FRICARD a écrit : Bernard, De fait StarBasic n'est pas trivial et finalement je ne sais si je trouverais temps et courage pour aller "fouiller" la chose même à titre personnel. Cependant et si je n'abuse pas trop de ton temps , j'aimerais avoir un exemple concret de l'utilisation de macros pour exécuter une instruction SQL DELETE, UPDATE ou INSERT. Ceci pour compléter un menu d'accueil en alternative au Switchboard qui lui est recevable pour mes "élèves". Par avance merci. Claude Le 10/08/2010 13:46, ribotb a écrit : J'utilise moi-même "telle quelle" sans trop chercher à comprendre les macros que je trouve "à droite à gauche". J'ai renoncé à me mettre à StarBasic. C'est trop différent du VB for Applications de Microsoft que je connais un peu et qui m'a servi à développer des applications (simples) sous Excel (facturation, gestion de stock, etc.). Mais je n'ai pas réussi à "rentrer" dans le StarBasic ce qui me laisse quelques regrets car j'aurais voulu réécrire ces applications Excel sous StarBasic afin de migrer complètement à OOo la bureautique d'une petite entreprise. Tant pis. Bon courage à toi. Bernard Le 10/08/2010 10:50, Claude FRICARD a écrit : Merci Bernard pour ces infos, lorsque mon petit-fils en garde en ce moment, me laissera un peu de temps je vais voir tout cela. Je peux effectivement utiliser "bêtement" le code fourni par les uns et les autres mais j'aimerai également comprendre , histoire de faire travailler les quelques neurones qui me restent à ...68 ans. Toutefois je ne manquerai pas de revenir vers vous pour des des explications complémentaires. Claude Le 10/08/2010 10:43, ribotb a écrit : J'ai demandé à Google :-) : http://docs.sun.com/app/docs/doc/819-1328?l=fr Le 10/08/2010 09:23, Claude FRICARD a écrit : Merci François ainsi que Bernard pour les solutions proposées. Lorsque j'aurai un peu de temps je vais essayer cela à titre personnel, encore faut-il que je me plonge un peu plus dans le langage Basic. Il reste que dans le cadre de l'association RIO et en fonction du niveau moyen je ne peux proposer de telles solutions. Concernant le langage Basic pourriez-vous me suggérer un lien vers un guide, une doc explicitant les diverses commandes. Il me semble avoir déjà eu cette information mais je l'ai pas mémorisée. merci d'avance Claude Le 09/08/2010 19:07, François Gatto a écrit : Bonsoir Claude Le 09/08/2010 09:35, Fricard Claude a écrit : Bonjour, j'avais demandé il y a quelque temps, s' il était concevable d'avoir une macro qui ouvre une Requête plutôt qu'un formulaire. Cette question n'avait pas eu d'écho , je veux bien croire que l'activité sur le forum en cette période est réduite et aussi peut-être que ma question est un peu saugrenue Oui la période est propice à la calmitude :D Si j'ai bien compris l'expression de ton besoin, il s'agit de pouvoir ouvrir directement une requête sans passer par l'appel d'un formulaire. Si tel est le cas, voici un bout de code (que tu aurais pu trouver sur le Net) : sub onClickButton( oEvent as object ) '"Query1" = le nom de la requête openQueryDataView( "Query1", oEvent.Source.Model.Parent.ActiveConnection ) end sub sub OpenQueryDataView( aQueryName as string, aConnection as variant ) dim oDesktop, oDispatchObject dim aURL as New com.sun.star.util.URL dim aProps(5) as New com.sun.star.beans.PropertyValue oDesktop = createUnoService("com.sun.star.frame.Desktop") aURL.Complete = ".component:DB/DataSourceBrowser" oDispatchObject = oDesktop.queryDispatch(_ aURL, _ "_Blank",_ com.sun.star.frame.FrameSearchFlag.CREATE) aProps(0).Name = "ActiveConnection" aProps(0).Value = aConnection aProps(1).Name = "CommandType" aProps(1).Value = com.sun.star.sdb.CommandType.QUERY aProps(2).Name = "Command" aProps(2).Value = aQueryName aProps(3).Name = "ShowMenu" aProps(3).Value = TRUE aProps(4).Name = "ShowTreeView" aProps(4).Value = FALSE aProps(5).Name = "ShowTreeViewButton" aProps(5).Value = FALSE oDispatchObject.dispatch(aURL, aProps) end sub Dans le code OOo.org Basic je ne vois pas de commande d'équivalence à la fonction : Function OpenForm En effet ; la démarche est sensiblement différente. Cette demande fait suite au constat que le switchboard s'il apporte un début de réponse à un menu d'accueil, ne proposant pas de commande Requêtes, il ne donne pas les moyens à un utilisateur lambda de profiter pleinement d'une Base de données. Quelqu'un
Re: [users-fr] OOo 3.2 Base Bouton de commande
OK jean-Michel et merci ça fonctionne, j'avais compris que l'assignation: Query1 = Nom de la requête dispensait de répéter ce nom dans les paramètres de OpenQueryDataView. A+ Claude Le 10/08/2010 14:31, Jean Michel PIERRE a écrit : Claude FRICARD a écrit : François, J'ai essayé avec le bout de code que tu m'as donné : la macro s'exécute mais aucun résultat ne s'affiche , que faut-il ajouter pour cela ? une MsgBox ? la commande Dispatch ne devrai-elle pas le faire ? sachant que la requête est R_Ouvrage_le_plus_cher Le code : sub onClickButton( oEvent as object ) '"Query1" = R_Ouvrage_le_plus_cher openQueryDataView( "Query1", oEvent.Source.Model.Parent.ActiveConnection ) end sub sub OpenQueryDataView( aQueryName as string, aConnection as variant ) dim oDesktop, oDispatchObject dim aURL as New com.sun.star.util.URL dim aProps(5) as New com.sun.star.beans.PropertyValue oDesktop = createUnoService("com.sun.star.frame.Desktop") aURL.Complete = ".component:DB/DataSourceBrowser" oDispatchObject = oDesktop.queryDispatch(_ aURL, _ "_Blank",_ com.sun.star.frame.FrameSearchFlag.CREATE) aProps(0).Name = "ActiveConnection" aProps(0).Value = aConnection aProps(1).Name = "CommandType" aProps(1).Value = com.sun.star.sdb.CommandType.QUERY aProps(2).Name = "Command" aProps(2).Value = aQueryName aProps(3).Name = "ShowMenu" aProps(3).Value = TRUE aProps(4).Name = "ShowTreeView" aProps(4).Value = FALSE aProps(5).Name = "ShowTreeViewButton" aProps(5).Value = FALSE oDispatchObject.dispatch(aURL, aProps) end sub excuse la question d'un béotien en la matière ... Claude Le 09/08/2010 19:07, François Gatto a écrit : Bonsoir Claude Le 09/08/2010 09:35, Fricard Claude a écrit : Bonjour, j'avais demandé il y a quelque temps, s' il était concevable d'avoir une macro qui ouvre une Requête plutôt qu'un formulaire. Cette question n'avait pas eu d'écho , je veux bien croire que l'activité sur le forum en cette période est réduite et aussi peut-être que ma question est un peu saugrenue Oui la période est propice à la calmitude :D Si j'ai bien compris l'expression de ton besoin, il s'agit de pouvoir ouvrir directement une requête sans passer par l'appel d'un formulaire. Si tel est le cas, voici un bout de code (que tu aurais pu trouver sur le Net) : sub onClickButton( oEvent as object ) '"Query1" = le nom de la requête openQueryDataView( "Query1", oEvent.Source.Model.Parent.ActiveConnection ) end sub sub OpenQueryDataView( aQueryName as string, aConnection as variant ) dim oDesktop, oDispatchObject dim aURL as New com.sun.star.util.URL dim aProps(5) as New com.sun.star.beans.PropertyValue oDesktop = createUnoService("com.sun.star.frame.Desktop") aURL.Complete = ".component:DB/DataSourceBrowser" oDispatchObject = oDesktop.queryDispatch(_ aURL, _ "_Blank",_ com.sun.star.frame.FrameSearchFlag.CREATE) aProps(0).Name = "ActiveConnection" aProps(0).Value = aConnection aProps(1).Name = "CommandType" aProps(1).Value = com.sun.star.sdb.CommandType.QUERY aProps(2).Name = "Command" aProps(2).Value = aQueryName aProps(3).Name = "ShowMenu" aProps(3).Value = TRUE aProps(4).Name = "ShowTreeView" aProps(4).Value = FALSE aProps(5).Name = "ShowTreeViewButton" aProps(5).Value = FALSE oDispatchObject.dispatch(aURL, aProps) end sub Si tu suis le code que tu as reçu, tu devrais avoir "R_Ouvrage_le_plus_cher " à la place de "Query1" ici : sub onClickButton( oEvent as object ) '"Query1" = R_Ouvrage_le_plus_cher openQueryDataView( "R_Ouvrage_le_plus_cher", oEvent.Source.Model.Parent.ActiveConnection ) end sub - To unsubscribe, e-mail: users-unsubscr...@fr.openoffice.org For additional commands, e-mail: users-h...@fr.openoffice.org -- FRICARD Claude& Danielle 117 rue de Paris 78550 HOUDAN 01 30 59 66 27