[Base] Formulaire avec contrôle de table pré-rempli

[Glaeken]

Bonjour à tous,
suite à un problème d'ouverture d'un formulaire, un contrôle de table n'affichait pas les données.
Avec l'aide d'utilisateur du forum, on a trouvé qu'il falait passer le connexion.
Voila le code pour afficher le formulaire avec le contrôle de table rempli.

Code : Tout sélectionner

Sub Affichage()

	Dim dbDoc2 as Object 
  	Dim monFormulaire as Object, lesFormulaires as Object 
   	Dim docFormulaire as Object, lesFormulairesDeDocForm as Object 
   	Dim OdbOpt(0) as new com.sun.star.beans.PropertyValue 
   	Dim adrOdb as String, nomFormulaire as String 
	Dim StdOpenArgs(1) as new com.sun.star.beans.PropertyValue 
	dim PysForm as object 
	
   	StdOpenArgs(0).Name = "ActiveConnection" 
   	StdOpenArgs(0).Value = connexion 
   	StdOpenArgs(1).Name = "OpenMode" 
   	StdOpenArgs(1).Value = "open" 
    
   	dbDoc2 = test.DatabaseDocument 
   	lesFormulaires = dbDoc2.FormDocuments 
   	monFormulaire = lesFormulaires(1) 
   	nomFormulaire = monFormulaire.Name 
   	lesFormulaires.getByName(nomFormulaire) 
   	docFormulaire = lesFormulaires.loadComponentFromURL(nomFormulaire, "_blank", 0, stdOpenArgs()) 
   	lesFormulairesDeDocForm = docFormulaire.DrawPage.Forms 
   	PysForm = lesFormulairesDeDocForm(0) 
    
   	PysForm(1).text = client

End Sub

Voici la partie où la connexion est ouverte :

Code : Tout sélectionner

                StdOpenArgs(0).Name = "ActiveConnection" 
   	StdOpenArgs(0).Value = connexion