IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Access Discussion :

Remplir automatiquement un champ à partir de la valeur d'un autre


Sujet :

Access

Vue hybride

Message précédent Message précédent   Message suivant Message suivant
  1. #1
    Membre averti
    Femme Profil pro
    Étudiant
    Inscrit en
    Avril 2018
    Messages
    60
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Avril 2018
    Messages : 60
    Par défaut Remplir automatiquement un champ à partir de la valeur d'un autre
    Bonjour,

    j'aimerais que quand on rempli un champ A dans le formulaire A ; que le champ A soit le même dans le formulaire B, C, D ect...
    Pour ce faire :
    • j'ai crée des champs indépendants dans B, C, D ect...
    • j'ai mit un code dans le formulaire A


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    Private Sub CHAMP_A_AfterUpdate()
    If Forms("[FORMULAIRE A]").Controls("[CHAMP A]").Value = True Then
    Forms("[FORMULAIRE B]").Controls("[CHAMP A]").Value = Forms("[FORMULAIRE A]").Controls("[CHAMP A]").Value
    Forms("[FORMULAIRE C]").Controls("[CHAMP A]").Value = Forms("[FORMULAIRE A]").Controls("[CHAMP A]").Value
    Forms("[FORMULAIRE D]").Controls("[CHAMP A]").Value = Forms("[FORMULAIRE A]").Controls("[CHAMP A]").Value
    End If
    End Sub
    • les champs A des autres formulaires sauf le formulaire A : B,C,D ect doivent être non visible; je dois mettre le code suivant dans un form current ?


    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    Forms("[FORMULAIRE B]").Controls("[CHAMP A]").Visible = False 
    Forms("[FORMULAIRE C]").Controls("[CHAMP A]").Visible = False 
    Forms("[FORMULAIRE D]").Controls("[CHAMP A]").Visible = False

  2. #2
    Membre chevronné
    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    Février 2013
    Messages
    328
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : France, Haut Rhin (Alsace)

    Informations professionnelles :
    Activité : Administrateur de base de données
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2013
    Messages : 328
    Par défaut
    Si tu as un petit fichier exemple de ce que tu veux faire, je jette un coup d'oeil...
    Ca sera plus rapide que de long discours... ;-)

  3. #3
    Membre chevronné
    Avatar de dok flint
    Profil pro
    Inscrit en
    Septembre 2003
    Messages
    366
    Détails du profil
    Informations personnelles :
    Âge : 56
    Localisation : France

    Informations forums :
    Inscription : Septembre 2003
    Messages : 366
    Par défaut
    Bonjour,
    Tous les formulaires sont ouverts en même temps ? car si le formulaire A est fermé ça ne marche pas.
    Pour les champs invisibles , pourquoi ne pas mettre visible >>Non dans les propriétes de chaque champs.
    A+

  4. #4
    Membre averti
    Femme Profil pro
    Étudiant
    Inscrit en
    Avril 2018
    Messages
    60
    Détails du profil
    Informations personnelles :
    Sexe : Femme
    Localisation : France, Seine Saint Denis (Île de France)

    Informations professionnelles :
    Activité : Étudiant

    Informations forums :
    Inscription : Avril 2018
    Messages : 60
    Par défaut
    Oui ils sont ouverts en même temps mais rien ne se passe. J'ai oublié de préciser que le champ A est un champ au format texte court...

  5. #5
    Expert éminent
    Avatar de tee_grandbois
    Homme Profil pro
    retraité
    Inscrit en
    Novembre 2004
    Messages
    8 959
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 68
    Localisation : France, Yvelines (Île de France)

    Informations professionnelles :
    Activité : retraité

    Informations forums :
    Inscription : Novembre 2004
    Messages : 8 959
    Par défaut
    bonsoir
    J'ai oublié de préciser que le champ A est un champ au format texte court..
    dans ce cas ce code n'a pas de sens :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    If Forms("[FORMULAIRE A]").Controls("[CHAMP A]").Value = True Then
    ceci est plus plausible:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    If Forms("[FORMULAIRE A]").Controls("[CHAMP A]").Value = "uneValeur" Then

  6. #6
    Membre chevronné
    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    Février 2013
    Messages
    328
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : France, Haut Rhin (Alsace)

    Informations professionnelles :
    Activité : Administrateur de base de données
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2013
    Messages : 328
    Par défaut
    Il faut faire un Refresh de tes form BCD etc apres la mise a jour du champs A dans ton Form A.
    Le champ A = true .... est ce une case a cocher (true/false) ?
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
     
    Private Sub CHAMP_A_AfterUpdate()
    If Forms("[FORMULAIRE A]").Controls("[CHAMP A]").Value = True Then ' pourquoi TRUE
    Forms("[FORMULAIRE B]").Controls("[CHAMP A]").Value = Forms("[FORMULAIRE A]").Controls("[CHAMP A]").Value
    Forms("[FORMULAIRE C]").Controls("[CHAMP A]").Value = Forms("[FORMULAIRE A]").Controls("[CHAMP A]").Value
    Forms("[FORMULAIRE D]").Controls("[CHAMP A]").Value = Forms("[FORMULAIRE A]").Controls("[CHAMP A]").Value
     
    End If

  7. #7
    Membre chevronné
    Homme Profil pro
    Administrateur de base de données
    Inscrit en
    Février 2013
    Messages
    328
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 54
    Localisation : France, Haut Rhin (Alsace)

    Informations professionnelles :
    Activité : Administrateur de base de données
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2013
    Messages : 328
    Par défaut
    oui je me disais aussi ... lol

Discussions similaires

  1. Réponses: 1
    Dernier message: 02/11/2017, 19h47
  2. [AC-2013] Remplir automatiquement un champ a partir de la valeur d'un autre
    Par Rico_33 dans le forum Access
    Réponses: 3
    Dernier message: 19/09/2015, 09h38
  3. Réponses: 8
    Dernier message: 10/10/2006, 10h58
  4. Remplir automatiquement un champ sous condition.
    Par popoliline dans le forum Access
    Réponses: 15
    Dernier message: 15/09/2006, 23h04
  5. Remplir automatiquement un champ dans une table
    Par en_stage dans le forum MS SQL Server
    Réponses: 13
    Dernier message: 03/08/2006, 20h57

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