1. #1
    Membre à l'essai
    Femme Profil pro
    Adjoint Administratif Territorial
    Inscrit en
    juin 2017
    Messages
    15
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Adjoint Administratif Territorial
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : juin 2017
    Messages : 15
    Points : 13
    Points
    13

    Par défaut 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 : 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.

  2. #2
    Membre éclairé

    Homme Profil pro
    linux, pascal, HTML
    Inscrit en
    mars 2002
    Messages
    380
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : Belgique

    Informations professionnelles :
    Activité : linux, pascal, HTML
    Secteur : Enseignement

    Informations forums :
    Inscription : mars 2002
    Messages : 380
    Points : 741
    Points
    741
    Billets dans le blog
    1

    Par défaut

    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

  3. #3
    Membre à l'essai
    Femme Profil pro
    Adjoint Administratif Territorial
    Inscrit en
    juin 2017
    Messages
    15
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Pas de Calais (Nord Pas de Calais)

    Informations professionnelles :
    Activité : Adjoint Administratif Territorial
    Secteur : Administration - Collectivité locale

    Informations forums :
    Inscription : juin 2017
    Messages : 15
    Points : 13
    Points
    13

    Par défaut

    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

+ Répondre à la discussion
Cette discussion est résolue.

Discussions similaires

  1. Réponses: 7
    Dernier message: 30/01/2008, 17h39
  2. Copier un champ vers un autre en VB
    Par Jay45 dans le forum Access
    Réponses: 1
    Dernier message: 12/01/2007, 16h20
  3. Réponses: 22
    Dernier message: 04/09/2006, 12h53
  4. cherche comment copier le champ vers une autre champ
    Par khier dans le forum Décisions SGBD
    Réponses: 2
    Dernier message: 01/07/2005, 12h20

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo