[Résolu] [Base] Transférer valeurs d'un champ texte

Discussions et questions sur tout ce qui concerne la programmation tous langages et tous modules confondus.

Modérateur: Vilains modOOs

Règles du forum
:alerte: Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !

[Résolu] [Base] Transférer valeurs d'un champ texte

Messagepar fblc » 20 Avr 2018 08:00

Bonjour,

Je débute avec les macros. Et je suis un peu coincé sur un sujet en apparence tout simple.

Comment copier la valeur d'une zone de texte d'un formulaire pour la mettre dans un autre champ d'un autre formulaire de la même page.

Est-ce que c'est techniquement réalisable ?

En attendant je vais continuer la lecture des docs de référence sur les macros.

Merci à vous
Pièces jointes
CopierColler.odb
(11.19 Kio) Téléchargé 18 fois
Dernière édition par micmac le 17 Mai 2018 09:52, édité 1 fois.
Raison: Balisage
LibreOffice 5 et 6 - sous Windows 7
fblc
NOOuvel adepte
NOOuvel adepte
 
Message(s) : 14
Inscrit le : 16 Avr 2018 21:29

Re: [Base] Transférer valeurs d'un champ texte

Messagepar Piaf » 20 Avr 2018 12:21

Bonjour
Pas bien vu l'intérêt de la manip mais bon :roll:
Code : Tout sélectionner   AgrandirRéduire
Sub copierColler(oEv as Object)
Dim oForm as Object, oForm1 as Object
   oForm = oEv.Source.Model.Parent
   oForm1 = thisComponent.DrawPage.Forms.getByName("form2")
   oForm.getByName("zone1").Text = oForm1.getByName("zone2").Text
   oForm.getByName("zone1").Commit
End sub
A+
Pièces jointes
CopierColler.odb
(11.75 Kio) Téléchargé 18 fois
Libre Office Version: 6.1.6 et Apache OpenOffice 4.1.6 Sur Xubuntu 18.04 AMD64
Piaf
GourOOu
GourOOu
 
Message(s) : 5622
Inscrit le : 25 Nov 2011 19:07
Localisation : Guyane

Re: [Base] Transférer valeurs d'un champ texte

Messagepar fblc » 20 Avr 2018 12:48

Bonjour,

Tu me sauves, je finissais par devenir fou. J'avais une erreur avec drawpage sans que je comprenne pourquoi.


Donc le pourquoi :
J'ai une base avec des itinéraires routier références prè-établie :
Et un autre avec un fiche transport avec la date du transport, les matières transportées et également lieu de départ, trajet, lieu d'arrivée.

Au début j'avais lié les deux tables et ça marchait sans problème sauf qu'à l'usage il s'avère que les trajets sont pour un même lieu de départ et d'arrivé très légèrement et ponctuellement différent. Si je crée une base avec tous les itinéraires cette base sera inutilement grosse car l'itinéraire légèrement modifié ne sera pas forcément utile la fois d'après.

La base des itinéraires est plus une aide à la saisie qu'autre chose.

Le copier coller va me permettre de sélectionner un itinéraire, de le copier dans la base des fiches transport et légèrement le modifier ensuite.

En espérant avoir été clair ;-)

Encore merci.
Dernière édition par fblc le 20 Avr 2018 12:58, édité 2 fois.
LibreOffice 5 et 6 - sous Windows 7
fblc
NOOuvel adepte
NOOuvel adepte
 
Message(s) : 14
Inscrit le : 16 Avr 2018 21:29

Re: [Base] Transférer valeurs d'un champ texte

Messagepar fblc » 20 Avr 2018 12:53


La modération a écrit::alerte: Merci de ne pas poster plusieurs messages à la suite !
Si vous devez ajouter un complément d'information, le bouton "Editer" à la droite du message permet d'y remédier.

En attendant une prochaine réponse, vous pouvez participer également en répondant à d'autres questions sur notre forum.

Ce que je ne comprends pas c'est que ça fonctionne mais quand je la lance pour la tester depuis l'interface de programmation en appuyant sur le bouton (en rouge sur l'image) j'ai un message d'erreur.

J'en conclus qu'on ne peut pas tester sans fermer l'interface de programmation et que je n'étais pas prêt de trouver.
Pièces jointes
macro.JPG
LibreOffice 5 et 6 - sous Windows 7
fblc
NOOuvel adepte
NOOuvel adepte
 
Message(s) : 14
Inscrit le : 16 Avr 2018 21:29

Re: [Base] Transférer valeurs d'un champ texte

Messagepar Piaf » 20 Avr 2018 18:35

Re
L'erreur est normale.
L'exécution de la macro fait appel à un paramètre événement.
Sub copierColler(oEv as Object)
Si tu déclenches la macro à partir de l'EDI, l'événement n'a pas lieu donc...
fblc a écrit:J'en conclus qu'on ne peut pas tester sans fermer l'interface de programmation
Non, la fenêtre peut être ouverte, mais la macro doit être déclenchée à partir du formulaire.
A+


La modération a écrit:Dernière visite le : 20 Avr 2018 21:32
N'ayant plus de nouvelles, on peut en déduire que le problème est résolu ou ne se reproduit plus.

Merci de baliser par vous-même la prochaine fois.
Un remerciement fait aussi plaisir aux bénévoles qui vous ont consacré de leur temps..
Libre Office Version: 6.1.6 et Apache OpenOffice 4.1.6 Sur Xubuntu 18.04 AMD64
Piaf
GourOOu
GourOOu
 
Message(s) : 5622
Inscrit le : 25 Nov 2011 19:07
Localisation : Guyane


Retour vers Macros et API

Qui est en ligne ?

Utilisateur(s) parcourant ce forum : Qwant [Bot] et 5 invité(s)