Bonjour,
Gilles Massardier a écrit :
J'ai repris les macros, changé les noms des formulaires, mais il doit y
avoir un truc qui m'échappe, lorsque je clic, j'ai le message suivant :
run time error basic :
sous-procédure ou procédure de fonction non définie...
Dans la macro j'ai cette ligne de sur lignée :
OpenForm(
OEvent.Source.Model.Parent.ActiveConnection.Parent.DatabaseDocument.FormDocuments,
OEvent.Source.Model.Parent.ActiveConnection, "F_Enfant")
voilà, voilà,
encore merci pour l'aide
gilles
Pour tester l'exemple proposé par Jean Michel il manque en effet
quelques éléments, dont en voici la substance (sous réserve que Jean
Michel ait écrit autre chose) :
Function OpenForm( formContainer as variant, oConnection as variant,
sFormName as string, optional strMode as string ) as variant
Dim aProp(1) As New com.sun.star.beans.PropertyValue
dim openMode as string
if ismissing( strMode ) then
openMode = "open"
else
openMode = strMode
endif
aProp(0).Name = "ActiveConnection"
aProp(0).Value = oConnection
aProp(1).Name = "OpenMode"
aProp(1).Value = strMode
OpenForm =
formContainer.loadComponentFromURL(sFormName,"_blank",0,aProp())
End Function
Sub ExitForm
oFrame = thisComponent.CurrentController.getFrame()
oFrame.close( True )
End Sub
Les 2 macros peuvent être placées dans Mes Macros>Standard.
La première (fonction) sera sollicitée chaque fois que de besoin.
La seconde (procédure) doit être associée à chaque bouton de fermeture
de formulaire.
Francois Gatto
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
