Code ci_dessous déconnecte les données et ferme le formulaire sous-jacent avec la version 2.3.1,
déconnecte seulement les données et ne ferme plus le formulaire sous la version 2.4
Sub fermerFormulaire()
dbDoc.close(true)
maConnexion.close
maConnexion.dispose
End Sub
Tou essai de procédure de fermeture, sur évènement fermeture ou avec méthode document.close échoue.
Code de connexion :
Sub form2()
AfficherFormulaire("adherents","F_compta")
End Sub
Sub AfficherFormulaire(nomSource As String, nomFormulaire As String)
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
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
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())
End Sub
MichelDu37
-
MichelDu37
- Messages : 2