1 pièce(s) jointe(s)
copier la valeur alphanumérique d'un champ de type "text(VARCHAR)" vers un autre du même type
Bonjour,
Je cherche à effectuer une opération qui me paraissait simple, mais qui malheureusement s'avère plus compliquée que je ne le pensais.
J'ai créé une table dans LibreOffice Base (version 5.0.4.2), qui s'intitule "Base Familles". Cette table contient des champs "Adresseparent1" et "Adresseparent2" qui correspondent à l'adresse des parents d'un enfant inscrit. Puis j'ai créé le formulaire associé.
Je souhaite ne pas avoir à inscrire (dans le formulaire) 2 fois l'adresse des parents lorsqu'elle est identique. J'ai créé un bouton associé à une macro que j'ai trouvé sur le forum, mais qui ne fonctionne pas dans mon cas. En effet, cette macro fonctionne sur des champs de type "numérique" et pas sur des champs de type "alphanumérique". La voici :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
|
REM ***** BASIC *****
Sub Copievaleur
dim var as integer
dim monDocument as Object
dim monForm as Object
dim monChamp1 as Object
dim monChamp2 as Object
monDocument=ThisComponent
monForm = monDocument.DrawPage.Forms.getByName ("MainForm")
monChamp1 = MonForm.GetByName("Adresseparent1")
monChamp2 = MonForm.GetByName("Adresseparent2")
var = monChamp1.currentValue
monchamp2.Value= var
monchamp2.commit
End Sub |
Pouvez-vous m'orienter SVP. Je joins le document ... Pièce jointe 284339
Merci par avance.