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 23/02/2011, 15h27   #1
Nouveau Membre du Club
 
Inscription : octobre 2009
Messages : 161
Détails du profil
Informations forums :
Inscription : octobre 2009
Messages : 161
Points : 28
Points : 28
Par défaut Comment retourner une variable dans un champ ?

Bonjour,

J'ai créé un code évennement sur un champ. Le problème est que je n'arrive pas à faire apparaître la valeur calculée, à l'intérieur de ce champ.

En gros derrière mon champ_resultat, je voudrais un code de ce genre :


Code :
1
2
3
4
5
6
7
8
9
10
11
Dim nb1 As Integer
Dim result As integer
 
nbr 1 = "champ_prix" 
 
result = "champ_prix" * 3
 
// donc jusqu'ici tout va bien, c'est la que je bloque , je voudrais :
 
 
retourne la valeur de résult dans le champ concerné, en l'occurence "champ_resultat"

Voilà. Je sèche là dessus. Si quelqu'un a une idée...

Un grand merci d'avance
majudis est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 23/02/2011, 15h31   #2
Rédacteur

 
Avatar de ClaudeLELOUP
 
Homme Claude LELOUP
Chercheur de loisirs (ayant trouvé !)
Inscription : novembre 2006
Messages : 5 242
Détails du profil
Informations personnelles :
Nom : Homme Claude LELOUP
Âge : 66
Localisation : Belgique

Informations professionnelles :
Activité : Chercheur de loisirs (ayant trouvé !)
Secteur : Finance

Informations forums :
Inscription : novembre 2006
Messages : 5 242
Points : 11 037
Points : 11 037
Bonjour,


Me.champ_resultat = result

Tout simplement.
ClaudeLELOUP est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 23/02/2011, 15h37   #3
Nouveau Membre du Club
 
Inscription : octobre 2009
Messages : 161
Détails du profil
Informations forums :
Inscription : octobre 2009
Messages : 161
Points : 28
Points : 28
Bonjour,

Ca ne fonctionne pas

J'ai créer mon code dans "Avant MAJ"

EDIT: en fait ça marche mais il y a un problème de rafraichissement. Il faut que je fermer et ouvre le formulaire. Moi je voudrais que la valeur change à chaque fois que je modifie le champ "prix", un peu comme dans excel quand on met une formule dans une cellule, c'est instantanée.
majudis est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 23/02/2011, 15h47   #4
Rédacteur

 
Avatar de ClaudeLELOUP
 
Homme Claude LELOUP
Chercheur de loisirs (ayant trouvé !)
Inscription : novembre 2006
Messages : 5 242
Détails du profil
Informations personnelles :
Nom : Homme Claude LELOUP
Âge : 66
Localisation : Belgique

Informations professionnelles :
Activité : Chercheur de loisirs (ayant trouvé !)
Secteur : Finance

Informations forums :
Inscription : novembre 2006
Messages : 5 242
Points : 11 037
Points : 11 037
Explique en détail, avec un exemple ce que tu veux faire.
Si tu postes un code, poste-le en entier qu'on puisse voir le contexte.
ClaudeLELOUP est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 23/02/2011, 15h49   #5
Nouveau Membre du Club
 
Inscription : octobre 2009
Messages : 161
Détails du profil
Informations forums :
Inscription : octobre 2009
Messages : 161
Points : 28
Points : 28
Citation:
Envoyé par ClaudeLELOUP Voir le message
Explique en détail, avec un exemple ce que tu veux faire.
Si tu postes un code, poste-le en entier qu'on puisse voir le contexte.
Je pense que tu n'a pas du voir mon EDIT Sa fonctionne très bien juste un problème de rafraichissement

Sinon voilà mon code entier


Code :
1
2
3
4
5
6
7
8
Private Sub calcul_AfterUpdate()
Dim nombre As Integer
 
nombre = [Me.prix] * 3
 
Me.calcul = nombre
 
End Sub
majudis est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 23/02/2011, 16h13   #6
Rédacteur

 
Avatar de ClaudeLELOUP
 
Homme Claude LELOUP
Chercheur de loisirs (ayant trouvé !)
Inscription : novembre 2006
Messages : 5 242
Détails du profil
Informations personnelles :
Nom : Homme Claude LELOUP
Âge : 66
Localisation : Belgique

Informations professionnelles :
Activité : Chercheur de loisirs (ayant trouvé !)
Secteur : Finance

Informations forums :
Inscription : novembre 2006
Messages : 5 242
Points : 11 037
Points : 11 037
Access n'est pas Excel !

Sauf par programmation, au cas par cas, il n'est pas possible d'exprimer un calcul se référant à des contrôles.

J'ignore quel ton problème "fonctionnel" c'est-à-dire ce que tu veux obtenir sans parler des problèmes techniques que tu rencontres pour y arriver.

Par exemple :

Mon formulaire affiche un prix, je cherche le moyen d'afficher dans un autre contrôle le résultat de la multiplication par un nombre que j'inscris dans un autre champ ---> pour faire des simulations...
ClaudeLELOUP est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 23/02/2011, 16h36   #7
Expert Confirmé
 
Avatar de Godzestla
 
Homme
Chercheur de bonheur
Inscription : août 2007
Messages : 2 255
Détails du profil
Informations personnelles :
Sexe : Homme
Âge : 47
Localisation : Belgique

Informations professionnelles :
Activité : Chercheur de bonheur
Secteur : Industrie

Informations forums :
Inscription : août 2007
Messages : 2 255
Points : 2 979
Points : 2 979
Bonjour,

de plus, pourquoi après Update recalculer le contrôle sur base d'un autre.

Si un évènement sensé devait lancer ce calcul, cela ne pourrait être que
Code :
Private Sub Prix_AfterUpdate()
puisqu'il est la base du calcul de calcul (c'est idiot à dire désolé).
__________________
(\ _ /) Cordialement G@dz
(='.'=)

(")-(") Vous avez des neurones. Sollicitez-les. . Si vous êtes aidé, pensez à Voter.
Godzestla est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 13h17.


 
 
 
 
Partenaires

Hébergement Web