Bonjour à toutes et à tous,
Prog Une erreur dans une macro
Je voudrais, au démarrage d'une application, afficher un menu avec trois
options. Je voudrais associer à chaque option un bouton qui me
permettrait d'ouvrir un sous formulaire. Le retour d'un sous formulaire
au menu ferait appel à un deuxième bouton.
Jean-Michel Pierre et François Gatto m'ont proposé un exemple. Il y a
une erreur dans le formulaire, ouverture des formulaires. Je n'arrive
pas à la corriger
REM ***** BASIC *****
' ouverture des formulaires
' se fait par appel d'une fonction
Sub onClickOuvrirFmTbClients( oEvent as variant )
OpenForm(
OEvent.Source.Model.Parent.ActiveConnection.Parent.DatabaseDocument.FormDocuments,
OEvent.Source.Model.Parent.ActiveConnection, "FmTbClients")
end sub
*Erreur d'exécution BASIC*
*L'argumentt n'est pas facultatif*
Sub onClickOuvrirFmTbRegion( oEvent as variant )
OpenForm(
OEvent.Source.Model.Parent.ActiveConnection.Parent.DatabaseDocument.FormDocuments,
OEvent.Source.Model.Parent.ActiveConnection, "FmTbRegion")
end sub
Sub onClickOuvrirFmTbDestinataires( oEvent as variant )
OpenForm(
OEvent.Source.Model.Parent.ActiveConnection.Parent.DatabaseDocument.FormDocuments,
OEvent.Source.Model.Parent.ActiveConnection, "FmTbDestinataires")
end sub
Sub onClickOuvrirFmTbProduits( oEvent as variant )
OpenForm(
OEvent.Source.Model.Parent.ActiveConnection.Parent.DatabaseDocument.FormDocuments,
OEvent.Source.Model.Parent.ActiveConnection, "FmTbProduits")
end sub
Sub onClickOuvrirFmTbLivraisonProduits( oEvent as variant )
OpenForm(
OEvent.Source.Model.Parent.ActiveConnection.Parent.DatabaseDocument.FormDocuments,
OEvent.Source.Model.Parent.ActiveConnection, "FmTbLivraisonProduits")
end sub
function OpenForm( formContainer as variant, oConnection as variant,
sFormName as string) as variant
Dim aProp(1) As New com.sun.star.beans.PropertyValue
aProp(0).Name = "ActiveConnection"
aProp(0).Value = oConnection
aProp(1).Name = "OpenMode"
aProp(1).Value = "open"
OpenForm = formContainer.loadComponentFromURL(sFormName,"_blank",0,aProp())
end function
Avec mes remerciements
Cordialement
Papy
