Additionner un enregistrement [Access][VBA]

Fermé
stef99 Messages postés 6 Date d'inscription mardi 27 novembre 2007 Statut Membre Dernière intervention 30 novembre 2007 - 30 nov. 2007 à 10:23
 PèreDeNuit - 30 nov. 2007 à 12:38
Bonjour,

Sous Access 2003, je souhaite enregistrer la valeur saisie par l'utilisateur (ds une zone texte d'un formulaire) dans le champ d'une requète à une ligne précise. J'ai pour cela lié cette Zone Texte à cette requète qui par l'intermédiaire de critère se positionne sur la bonne ligne.
J'arrive sans problème à dupliquer la valeur de ma zone texte (par la commande dupliquer proposée par Access) dans cette requète sur le bon champ (et dc à la bonne ligne).
Mais ce que je souhaite ce n'est pas dupliquer la valeur mais l'additionner avec la valeur déjà présente à cette emplacement.
Auriez vous une idée ou un code VBA?

Je vous remercie d'avance pour votre aide et votre temps.

Stef
A voir également:

5 réponses

stef99 Messages postés 6 Date d'inscription mardi 27 novembre 2007 Statut Membre Dernière intervention 30 novembre 2007 1
30 nov. 2007 à 11:09
Bonjour,

Merci pour votre Intéret.
Je fais une base de donnée pour une compagnie de bus. J'ai une table Véhicule (n°immatriculation, types,...,nbrdeplaces) qui est liée (relation 1 à plusieurs) à une table Affecter (n°immatriculation, n°évenemnt, nbrdepersonnes, txremplissage). J'ai crée une requète:
SelectNBR (Vehicule.nbrdeplaces, Affecter.nbrdepersonnes). J'ai fait à partir de cette requète un formulaire type Nbr de passager qui permet au client de saisir le nombre passager, dans une zone texte, pour la commande qu'il effectue. J'ai ensuite ajouté un bouton à ce formulaire qui fait: une opération sur enregistrement: Dupliquer.
Dc sur click, la valeur de la zone texte se duplique dans le champ nbrdepersonne. Cependant je souhaite que la valeur ne se duplique pas mais s'additionne avec la valeur déja présente à cet emplacement.

Ainsi il y avait par exemple 40 personnes ds le Bus 8899 GH 75, un nouveau client vient de passer une commande pour 4 passagers, le nouveau nombre de personnes dans ce bus sera dc de 44.
1
PèreDeNuit
30 nov. 2007 à 10:39
Bonjour
explique ton probelme avec un exemple
0
PèreDeNuit
30 nov. 2007 à 10:41
Bonjour
Explique ton probleme avec un exemple
0
PèreDeNuit
30 nov. 2007 à 12:34
Bonjour
tu ne dois pas mettre le champs NbreDePlace dans la table Vehicule, car c'est une information qu'on peut retrouver par le calcule.

Apres la Mise A Jour d'un nouveau client dans la table <Affecter>
essaie d'ecrire et excecuter cette requette:


SELECT Sum([nbrdepersonnes]) AS Total_De_Place FROM Affecter where nom = [Entre le num Immatriciulatio]

ou

cree une formulaire qui s'appellera <FormCalcul>
dans FormCalcule: met un <text Box> <Champs de texte> sous le nom <NumImmatricule>
et un bouton qui execute cette requtte:

SELECT Sum([nbrdepersonnes]) AS Total_De_Place
FROM Affecter
where nom = [Forms]![FormCalcule]![NumImmatricule]

Bon Courage de pèreDeNuit
0

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question
PèreDeNuit
30 nov. 2007 à 12:38
Bonjour
execuse moi, ne prend pas en consideration l'etape (Par PèreDeNuit, le vendredi 30 novembre 2007 à 12:34:00)
car j'ai corrigé qq chose.

tu ne dois pas mettre le champs NbreDePlace dans la table Vehicule, car c'est une information qu'on peut retrouver par le calcule.

Apres la Mise A Jour d'un nouveau client dans la table <Affecter>
essaie d'ecrire et excecuter cette requette:


SELECT Sum([nbrdepersonnes]) AS Total_De_Place FROM Affecter where n°immatriculation = [Entre le num Immatriciulatio]

ou

cree une formulaire qui s'appellera <FormCalcul>
dans FormCalcule: met un <text Box> <Champs de texte> sous le nom <NumImmatricule>
et un bouton qui execute cette requtte:

SELECT Sum([nbrdepersonnes]) AS Total_De_Place
FROM Affecter
where n°immatriculation = [Forms]![FormCalcule]![NumImmatricule]

Bon Courage de pèreDeNuit
0