Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > Modélisation
Modélisation Le forum qui vous aide à résoudre vos questions relatives à la modélisation (tables et relations) de votre base de données sous Access. Pour les états et les formulaires, postez dans le forum IHM.
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 17/03/2008, 19h08   #1
Invité de passage
 
Inscription : mars 2008
Messages : 12
Détails du profil
Informations forums :
Inscription : mars 2008
Messages : 12
Points : 2
Points : 2
Par défaut Appeler des variables à partir d'un formulaire et VBA

Bonjour,

J'ai 2 tables, une qui contient des "mandats" et leurs options et une autre qui contient le prix de chaque option dépendant du mandat.

J'ai créer un formulaire et je voudrais que le prix du mandat se calcule automatiquement chaque fois que je sélectionne le type de mandat et les options.

Voici un bout de code que j'ai fait;

Private Sub o_ism_Click()

If o_ism.Value = True Then
Nb_q_fer = Nb_q_fer + ISMQ
Else
Nb_q_fer = Nb_q_fer - ISMQ
End If

End Sub

Mais voilà que lorsque je coche ISM cela ne modifie pas total. Si je remplace ISMQ par un chiffre pas de problème, mais aussitôt que je remet le nom de la variable on dirait qu'il ne va pas chercher la valeur dans la table.

Des idées????
LeBihan est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 17/03/2008, 19h17   #2
Expert Confirmé
 
Avatar de FreeAccess
 
Homme
Inscription : mars 2006
Messages : 2 317
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations forums :
Inscription : mars 2006
Messages : 2 317
Points : 2 864
Points : 2 864
Bonjour.....
Citation:
...Si je remplace ISMQ par un chiffre pas de problème
Attention ici (..sauf incompréhension de ma part....) ISMQ doit correspondre au nom de ton contrôle contenant la valeur......et non pas le nom de ton champ issue de ta table......
__________________
FreeAccess
"Petit à petit l'araignée tisse sa toile"
FreeAccess est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 19/03/2008, 20h25   #3
Membre Expert
 
Avatar de Gabout
 
Inscription : mai 2006
Messages : 1 298
Détails du profil
Informations personnelles :
Âge : 57
Localisation : France, Ille et Vilaine (Bretagne)

Informations forums :
Inscription : mai 2006
Messages : 1 298
Points : 1 289
Points : 1 289
Bonjour,

J'avoue avoir la même difficulté de (... compréhension...) de ton code.
Citation:
orsque je coche ISM cela ne modifie pas total. Si je remplace ISMQ par u
Tu parles de temps en temps de ISM d'autre fois ISQM
Tu dis
Citation:
je coche ISM
donc j'en déduis que c'est une case à cocher. Donc ton code devrait plutôt être
Code :
1
2
3
4
5
6
7
Private Sub o_ism_AfterUpdate()
  If o_ism.Value = True Then
    Nb_q_fer = Nb_q_fer + ISMQ
  Else
    Nb_q_fer = Nb_q_fer - ISMQ
  End If
End Sub
__________________
Gabout
N'oubliez pas le premier réflexe avant de poser une question : consultez les liens en bas de page
Gabout 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 09h11.


 
 
 
 
Partenaires

Hébergement Web