Discussion :

[jacques14]

Bonjour à tous et toutes

Je suis nouveau dans la communauté libre office.
Je tourne sous mac OX 10.6.8 et avec néo office.

J'ai un petit souci élémentaire pour déclarer dans un code basic une boite de liste combinée me permettant de récupérer la valeur choisie et d'utiliser cette dernière de façon dynamique pour ouvrir le formulaire correspondant.

Si d'aucun avait la gentillesse de m'aiguiller je l'en remercie par avance.

Ci-dessous le code appelé par un bouton qui fonctionne parfaitement. J'aimerais tout simplement remplacer la valeur fixe "FRDV1" par la valeur de la combobox.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Sub OpenAForm (FormName as String)
Dim GetForm as Object
GetForm = ThisDatabaseDocument.FormDocuments.GetByName(FormName)
GetForm.Open
End sub
 
Sub OpenRdvForm (oEv as Object)
OpenAForm("FRDV1")
End Sub

[zoom61]

Bonjour,

Avec quelque chose comme :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

ValChoix = Dlg1.getControl("ComboBox1")

[jacques14]

Merci de ta réponse.
Peux tu m'éclairer sur les lignes de code qui devraient être écrites avant et qui permettent justement d'en arriver à la ligne que tu me proposes.
C'est à dire tout le processus de déclaration en cascade. Je vois bien la façon de faire mais je n'arrive à trouver les arguments idoines.

Cordialement

[zoom61]

Quelque chose comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Sub OpenRdvForm (oEv as Object)
ValChoix = Dlg1.getControl("ComboBox1") 'ComboBox1 étant le champ qui contient le nom du formulaire
OpenAForm(ValChoix)
End Sub

[jacques14]

Je te remercie pour cette avancée mais je bloque encore malgré diverses recherches et tentatives pour déclarer la variable "dlg1" dont dépend le contrôle de la combobox.
Comment spécifier dans le code le formulaire actif dans lequel est ma combobox ?

Comme je n'ai pas de guide de référence sur les méthodes et propriétés utilisées dans ce langage basic je galère grave.

Cordialement

[zoom61]

Alors avec quelque chose comme cela :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Dim oDocument As Object,  oFormulaire As Object, oListe As Object
...
'Récupère le document actif
 oDocument = StarDesktop.CurrentComponent
'Récupère le formulaire ouvert
 oFormulaire = oDocument.DrawPage.Forms.GetByIndex(0)
'Récupère la liste déroulante du formulaire
 oListe = oFormulaire.getByName("lstTable")

[jacques14]

Bonsoir

Merci de tes lignes de code mais malheureusement cela ne fonctionne pas.
J'ai toujours un message d'erreur "Méthode ou propriété introuvable" sur la ligne de déclaration du formulaire
"oFormulaire = oDocument.DrawPage.Forms.GetByIndex(0)"

Cela ne viendrait-il pas du fait que je suis sous neooffice et que la bibliothèque est différente ?

Cordialement

[zoom61]

Et au lieu de :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oFormulaire = oDocument.DrawPage.Forms.GetByIndex(0)

Essaie avec :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

oFormulaire = oDocument.DrawPages.getByIndex(0).Forms.getByName("Formulaire")