Bonjour Maurice
Voici une macro (encore merci à son auteur) à installer dans la base.
Elle permet de lancer une requête.
Pour l'exécuter automatiquement à l'ouverture de la base :
- Ouvrir la base
- Aller dans menu Affichage > Barre d'outils > Personnaliser > onglet
Évènements
- Sélectionner "Ouvrir un document" et cliquer sur le bouton "Macro"
- Sélectionner la macro "onClickButton"
- Vérifier en base de la fenêtre que "Enregistrer dans" se fera bien
dans le bon document
Voilà, ça devrait marcher.
Bernard
----------------------------------------------------------------------------------------------------------
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
------------------------------------------------------------------------------------------
Le 22/10/2010 17:29, Maurice a écrit :
Bonjour,
Quand je consulte une base je commence presque toujours par la même
requête.
Est-il possible d'automatiser cette procédure (macro ?... mais je n'en
ai jamais utilisée) ?
Maurice
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
--
Bernard Ribot Windows 7 / Windows XP SP3 OpenOffice.prg 3.2.1
---
Antivirus avast! : message Sortant sain.
Base de donnees virale (VPS) : 101022-1, 22/10/2010
Analyse le : 22/10/2010 18:08:17
avast! - copyright (c) 1988-2010 AVAST Software.
http://www.avast.com
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
