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

VBA Access Discussion :

Inclure valeur d'un champ dans boîte message [AC-2007]


Sujet :

VBA Access

  1. #1
    Membre confirmé Avatar de Runsh63
    Homme Profil pro
    Contrôleur de gestion
    Inscrit en
    Mars 2011
    Messages
    476
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Contrôleur de gestion
    Secteur : Transports

    Informations forums :
    Inscription : Mars 2011
    Messages : 476
    Points : 478
    Points
    478
    Par défaut Inclure valeur d'un champ dans boîte message
    Bonjour,

    Dans ma base Access, je récupère des données, les retraite dans le but de les exporter dans un fichier Excel. J'ai une requête sélection finale qui n'affiche qu'un seul champ dans lequel apparaît un écart (qui sera retraité ensuite). J'aimerai avant l'export de ma table finale faire apparître une boîte message dans laquelle serait affiché: "L'écart à retraiter est de" & la_valeur_de l_unique_champ de ma_table_finale.
    J'imagine qu'il faut passer par du code VBA. Problème: je suis une chèvre !
    Auriez-vous une solution "clé à main" à me proposer SVP ?

    D'avance merci !

    Runsh

  2. #2
    Membre du Club
    Homme Profil pro
    Consultant ERP
    Inscrit en
    Février 2009
    Messages
    45
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Localisation : Belgique

    Informations professionnelles :
    Activité : Consultant ERP
    Secteur : Industrie

    Informations forums :
    Inscription : Février 2009
    Messages : 45
    Points : 57
    Points
    57
    Par défaut
    c'est pas claire du tout !

    En VBA sur un evenement automation (Onload) ou sur un evenement clic tu ajout une "MsgBox" de TonUniqueChamp.

    ou tu créer un formulaire de TaTableFinale pour afficher TonUniqueChamp.

    ou tu utlise la fonction DLookup("TonUniqueChamp","TaTableFinale") pour récupérer la valeur que tu affiche par une MsgBox.

    mais il faut nous donner un peu plus d'info ce qui doit déclancher l'affichage de cette unique valeur.

  3. #3
    Membre confirmé
    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
    Points : 548
    Points
    548
    Par défaut
    Bonjour ,
    Si je comprends bien ce que tu veux faire , c'est que tu a récupéré une valeur qui représente un écart qui est affiché dans un formulaire , mais tu veux que cet écart soit présenté à l'utilisateur sous forme d'une boite message automatiquement .
    Donc je te propose de mettre un petit code sur l'événement "Sur activé" du formulaire qui affiche l'écart:
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    If MsgBox(" La valeur de l'ecart est " & champecart.Value & " unité de mesure", vbOKOnly, "Ecart") = vbOK Then
     
    End If
    *champecart : doit être remplacé par le nom du champ unique de ton formulaire

    Puis sur l'événement "Sur clic" d'un bouton ou sur n'importe quel événement suite au quel tu veux voir l'écart le code :
    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
     
    DoCmd.OpenForm "formulaireecart", acNormal, , , acFormReadOnly, achiden
     
     DoCmd.Close acForm, "formulaireecart", acSaveNo
    *formulaireecart : doit être remplacé par le nom de ton formulaire qui affiche l'écart dans le champ unique

    Par ce code on va ouvrir le formulaire affichant l'écart en mode invisible pour afficher la boite message et le re-fermer pour être utilisable une autre fois
    Donc l'utilisateur ne verra que l'ecart afficher dans une boite à message.
    Bien sur si tu veux afficher le formulaire tu change achiden par acWindowNormal
    A+

  4. #4
    Membre confirmé Avatar de Runsh63
    Homme Profil pro
    Contrôleur de gestion
    Inscrit en
    Mars 2011
    Messages
    476
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 44
    Localisation : France, Puy de Dôme (Auvergne)

    Informations professionnelles :
    Activité : Contrôleur de gestion
    Secteur : Transports

    Informations forums :
    Inscription : Mars 2011
    Messages : 476
    Points : 478
    Points
    478
    Par défaut
    Bonjour,

    Un moment que j'avais mis mon projet de côté. Je le reprends maintenant et suis ravi de voir que la solution proposée fonctionne à merveille.
    Merci beaucoup !

    Runsh

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

Discussions similaires

  1. Réponses: 1
    Dernier message: 03/12/2005, 16h44
  2. valeur d'un champ dans une listbox
    Par ph4prod dans le forum Bases de données
    Réponses: 1
    Dernier message: 25/10/2005, 14h00
  3. Arrondir la valeur d'un champ dans un état?
    Par drthodt dans le forum Access
    Réponses: 2
    Dernier message: 14/09/2005, 17h46
  4. Changement valeur d'un champ dans une requête
    Par Mimile28 dans le forum Langage SQL
    Réponses: 3
    Dernier message: 07/04/2005, 15h28
  5. récupérer la valeur du 2ème champ dans un DBLookUpListBox
    Par jakouz dans le forum Bases de données
    Réponses: 3
    Dernier message: 20/07/2004, 17h45

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