Discussion :

[dinahlsg]

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 :

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

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


Merci par avance.

[Michel]

Bonjour
D'abord, il ne faut pas confondre l'étiquette et le nom du champ "txtAdresse".
Ensuite pour obtenir du texte, il suffit d'utiliser Text :monChamp1.Text

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
Sub Copievaleur
 
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("txtAdresse")
monChamp2 = MonForm.GetByName("txtAdresse2")
 
monchamp2.Text= monChamp1.Text
monchamp2.commit
End Sub

j'en ai profité pour enlever la variable intermédiaire

[dinahlsg]

Merci beaucoup Michel pour votre réponse. Cela fonctionne parfaitement et je tire leçon de mes erreurs. Merci à vous !
Je marque la discussion comme résolue !

Dinah