Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > VBA Access
VBA Access Le forum pour les questions relatives au code VBA sous Access, et à son environnement de développement VBE.
Partagez cette discussion sur d'autres réseaux sociaux : Viadeo Twitter Google Facebook Digg Delicious MySpace Yahoo
Réponse Proposer ce sujet en actualité
 
Outils de la discussion
Publicité
'
Vieux 04/03/2011, 15h47   #1
Membre éprouvé
 
Avatar de Runsh63
 
Homme Duc
Nihiliste
Inscription : mars 2011
Messages : 395
Détails du profil
Informations personnelles :
Nom : Homme Duc
Âge : 31
Localisation : France, Puy de Dôme (Auvergne)

Informations professionnelles :
Activité : Nihiliste
Secteur : Industrie

Informations forums :
Inscription : mars 2011
Messages : 395
Points : 419
Points : 419
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
Runsh63 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 04/03/2011, 18h03   #2
Membre du Club
 
Homme Pierre SERANT
Consultant ERP
Inscription : février 2009
Messages : 40
Détails du profil
Informations personnelles :
Nom : Homme Pierre SERANT
Localisation : Belgique

Informations professionnelles :
Activité : Consultant ERP
Secteur : Industrie

Informations forums :
Inscription : février 2009
Messages : 40
Points : 44
Points : 44
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.
pierre.serant est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 05/03/2011, 10h31   #3
Membre éclairé
 
Avatar de dok flint
 
Inscription : septembre 2003
Messages : 292
Détails du profil
Informations personnelles :
Âge : 43

Informations forums :
Inscription : septembre 2003
Messages : 292
Points : 378
Points : 378
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 :
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 :
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+
__________________
Pourquoi faire compliqué quand on peut faire simple
Je suis encore en ACCESS 2003
dok flint est déconnecté   Envoyer un message privé Réponse avec citation 20
Vieux 23/05/2011, 16h21   #4
Membre éprouvé
 
Avatar de Runsh63
 
Homme Duc
Nihiliste
Inscription : mars 2011
Messages : 395
Détails du profil
Informations personnelles :
Nom : Homme Duc
Âge : 31
Localisation : France, Puy de Dôme (Auvergne)

Informations professionnelles :
Activité : Nihiliste
Secteur : Industrie

Informations forums :
Inscription : mars 2011
Messages : 395
Points : 419
Points : 419
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
Runsh63 est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 15h56.


 
 
 
 
Partenaires

Hébergement Web