Je viens d'intégrer la macro dans une petite base. Ça fonctionne bien
(encore une fois, merci Jean-Michel) et ma petite base est toujours
petite (elle a juste pris 1ko !)
Donc ton problème ne semble pas lié à la macro elle-même.
Bernard
Le 11/08/2010 15:00, Fricard Claude a écrit :
Je remarque que ma base: celle qui plante, fait 15,5 Mgo !!! ce qui me
paraît anormal, alors que dans une version précédente sans Macros elle
faisait 195Ko ??? le delta viendrait de l'introduction de quelques
macros: Étonnant j'ai peut-être trouvé à l'insu de mon plein gré...la
machine à générer du code! Ce fichier est tellement gros que je ne
peux même pas vous le proposer via ci-joint.fr (limite 8Mgo).
J'aurai tendance à dire que ce serait depuis l'introduction du code
starbasic: (avec Query1 = une requête de ma base) code proposé par
François.
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
Mais peut-être la cause est tout à fait ailleurs
Le 11/08/2010 12:17, Jean Michel PIERRE a écrit :
Lorsque je veux ouvrir un objet de ma base : formulaire,
requête,etc. le système se plante et il m'est proposé de lancer la
restauration de mon fichier, ce qui est fait mais ne soigne pas le
problème. Ce souci fait suite à l'implantation de macros starBasic .
ces macros ont fait l'objet de demandes d'aides de ma part
auxquelles Jean-Michel , Bernard et François ont bien voulu
répondre. J'ai envoyé un rapport de faute à Oracle suivant la
procédure. Maintenant comment puis-je sortir de cette situation ? je
précise que l'ouverture d'une autre base ne pose pas de problèmes.
Mes macros sont restées dans le filet mauvaise pêche ! ;-)
merci pour vos suggestions
Peux tu me retourner la base qui plante pour voir si je reproduis ce
que tu décris ?
J.M
---------------------------------------------------------------------
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) : 100811-0, 11/08/2010
Analyse le : 11/08/2010 15:26:12
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