Re: [fr-users] Libo 5.2.6 W10 - BASE Switchboard ne fonctionnant plus / Code Macro pour ouverture de formulaire par tag

Le 19/04/2017 à 16:30, Jean Michel PIERRE a écrit :
> Le 19/04/2017 à 15:03, Fricard Claude a écrit :
> > N'ayant pas vu passer mon message je récidive...
> > Claude
> >
> > -------- Message transféré --------
> > Sujet :     Libo 5.2.6 W10 - BASE Switchboard
> > Date :     Mon, 17 Apr 2017 14:23:47 +0200
> > De :     Fricard Claude <fricard.claude@wanadoo.fr>
> > Répondre à :     fricard.claude@wanadoo.fr
> > Pour :     users LibreOffice LO <users@fr.libreoffice.org>
> >
> >
> >
> > Bonjour
> > J'ai installé la version 5.2.6 . La bonne nouvelle est que le problème
> > qui faisait que LibreOffice Base se "plantait" (j'étais obligé de "tuer"
> > la tâche) semble avoir disparu avec cette nouvelle version.
> > Par contre J'essaie de mettre en place un SwichBoard avec ma base .
> > L'extension est en place et je peux commencer à configurer ce formulaire
> > Switchboard. D'une part Switchboard n'apparait pas dans les formulaires
> > après enregistrement et de plus lorsque je veux configurer un appel à un
> > formulaire , la liste des formulaires (Form) n'est pas proposée, ce sont
> > les Tables qui le sont.
> > L'extension switchboard-1.2.0.oxt est la seule version disponible (je
> > pense) et je précise que sur une base précédemment créée la
> > configuration du switchboard ne pose pas de problème.
> > Si quelqu'un a une idée, je suis preneur ...
> > Merci
> En complément,
> pour l'ouverture par tag, avec clic sur un PushButton, la Macro a 
> enregistrer dans la Base a ce code :
>
>     Sub OuvForm(evt As Object)
>
> '*************************************************************************************************
>
>     'Lancée par l'appui sur un bouton
>
>     ' Permet l'ouverture d'un formulaire dont le nom est renseigné 
> dans le champ
>
>     ' "Complément d'information" du bouton
>
> '=================================================================================================
>
>     Dim oForms As Object
>
>     Dim sNomForm As String
>
>        sNomForm = evt.Source.Model.tag
>
>        oForms = ThisComponent.Parent.FormDocuments
>
>        IF oForms.hasByName(sNomForm)  Then
>
>          oForms.getByName(sNomForm).open
>
>        Else
>
>          MsgBox("Formulaire inconnu : " & sNomForm, 16)
>
>        End IF
>
>     End Sub
Je m'excuse auprès de Jean-Michel pour n'avoir pas répondu rapidement à 
son message.
Merci pour la suggestion de Macro, mais si cette solution est recevable 
à titre personnel, et je l'exploite déjà, elle ne l'est pas pour des 
personnes dans un club qui ont un niveau très moyen en informatique. Le 
Switchboard était une solution parce qu'il n'utilise pas de codage, mais 
ça ne fonctionne pas...
Peut-être quelqu'un pourrait-il essayer de configurer un switchboard 
pour vérifier si c'est une question d'environnement.
Merci d'avance
Claude



--
Envoyez un mail à users+unsubscribe@fr.libreoffice.org pour savoir comment vous désinscrire
Les archives de la liste sont disponibles à http://listarchives.libreoffice.org/fr/users/
Tous les messages envoyés sur cette liste seront archivés publiquement et ne pourront pas être 
supprimés