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

[fblc]

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

[Piaf]

Bonjour
Pas bien vu l'intérêt de la manip mais bon

Code : Tout sélectionner

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+

[fblc]

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.

[fblc]

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.

[Piaf]

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...

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+

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..