Bonjour,
J'ai une macro pour afficher un formulaire qui fonctionne très bien si je
l'enregistre dans Mes Macros, dès que je l'enregistre sous le formulaire
elle se plante. Qui peut me dire pourqoui.
' Affichage du formulaire de création
Option Explicit
Dim astuce As Object ' pour maintenir le formulaire affiché
Global maConnexion as Object, dbDoc As Object
Sub CreationDepVerte()
Dim monDbContext As Object, maSource As Object
Dim monFormulaire As Object, LesFormulaires As Object
Dim OdbOpt (0) as new com.sun.star.beans.PropertyValue
Dim stdOpenArgs(1) as new com.sun.star.beans.PropertyValue
Dim adrOdb As String
Const nomSource = "gestion_patrimoine_routier_heric", nomFormulaire =
"f_creation_depverte"
monDbContext = CreateUnoService("com.sun.star.sdb.DatabaseContext")
maSource = monDbContext.getByName(NomSource)
dbDoc = maSource.DatabaseDocument
adrOdb = dbDoc.URL
OdbOpt(0).Name ="Hidden"
OdbOpt(0).Value = True
dbDoc = StarDesktop.loadComponentFromUrl(adrOdb, "_blank", 0, OdbOpt())
lesFormulaires = dbDoc.FormDocuments
'Contournement de bogue : l'instruction suivante est
' indispensable pour visualiser le formulaire en fin de macro
astuce = lesFormulaires.getByName(nomFormulaire)
stdOpenArgs(0).Name = "ActiveConnection"
maConnexion = dbDoc.Datasource.getConnection("","")
stdOpenArgs(0).Value = maConnexion
stdOpenArgs(1).Name = "OpenMode"
stdOpenArgs(1).Value = "open"
lesFormulaires.loadComponentFromUrl(nomFormulaire, "_blank", 0,
stdOpenArgs()) Le plantage se fait sur cette ligne. Syntax error BASIC
Erreur de syntaxe
Roselyne MORTEVEILLE
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
