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
