Discussion :

[yieiyiei]

Salut à vous,

j'ai besoin en appuyant sur un bouton pour cloturer une vente de copier un champ dans un autre champ de l'enregistrement.

j'ai donc une table "sortie" avec des articles vendues que je place dans une table "détail sortie" qui est jointe à la première.

Pour le moment dans mon formulaire quand je clique sur le bouton il exécute bien la requete mais uniquement sur la dernière ligne, hors j'aimerais qu'il le fasse pour toutes les lignes de mon sous-formulaire de ma table "détail sortie"

vous avez une idée ?

merci

[loufab]

Bonjour,

Une requête traite un ou plusieurs tuples, encore faut-il pouvoir les identifier.

Par exemple ici on met à jour le champ Nom avec le contenu de Nom et Prenom mais uniquement pour les enregistrements ayant l'Id égal à 10 :

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
UPDATE Contacts SET Contacts.Nom = [Nom] & " " & [Prénom]
WHERE (((Contacts.ID)=10));

Il est donc primordial d'utiliser des Id dans les tables, ça facilite ainsi le filtrage.

Cordialement,

[yieiyiei]

j'ai une clé primaire pour mes sorties mais pas pour mes détails sortie.

voici comment ça se présente :

table "sortie" avec :

N°Sortie : clé primaire
Date

table "détail sortie" avec :

#Sortie : lien avec clé primaire de table "sortie"
Article
Quantité
Prix

Prix de vente : c'est dans ce champ que la valeur de "prix" doit être copiée lors qu'un clic.

Et sur mon formulaire : un box "temp" qui reçoit le numéro de sortie "N°Sortie".

Peux-tu m'aider a adapter ton code, c'est un peu confus.

merci

[loufab]

Tu peux créer du code VBA contenant cette requête et ainsi compléter les variables (valeur, idcourant) avec les valeurs requises

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
dim valeur as currency
dim idcourant as long
 
valeur = me.prix
idcourant = me.idsortie
 
currentdb.execute "UPDATE TableAmettreAjour SET TableAmettreAjour.champAmettreAJour = " & Valeur & " WHERE (((TableAmettreAjour.IDsortie)=" & idcourant &"));"

me indique que les valeurs viennent du formulaire contenant les controles prix et idsortie. Si tu exécutes d'un endroit différent (sous-formulaire) il faut modifier le me en conséquence.

Cordialement,

[yieiyiei]

j'ai droit à une erreur 3144 : Erreur de syntaxe dans l'instruction UPDATE.

J'ai pourtant l'impression d'avoir bien compléter le code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Dim valeur As Currency
Dim idcourant As Long
 
valeur = Form![SF_Détail_Vente]![PTVAC]
idcourant = Me.Test_N°Sortie
 
CurrentDb.Execute "UPDATE T_Détail_Sortie SET T_Détail_Sortie.[Prix de sortie TVAC] = " & valeur & " WHERE (((T_Détail_Sortie.#Sortie)=" & idcourant & "));"

[loufab]

Il faut déboguer la requête au moment de son exécution.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
dim vlsql as string
vlsql="UPDATE T_Détail_Sortie SET T_Détail_Sortie.[Prix de sortie TVAC] = " & valeur & " WHERE (((T_Détail_Sortie.#Sortie)=" & idcourant & "));"
debug.print vlsql
currentdb.execute vlsql

à voir dans la fenêtre d'exécution le résultat du debug.print.
Il y a un tuto sur le débogage des requêtes dans VBA.
Personnellement j'évite de mettre des caractères cabalistiques (# et espace) dans les noms de champs. ça évite les grosses surprises.

Cordialement,

[yieiyiei]

voici le résultat

Code SQL :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
UPDATE T_Détail_Sortie SET T_Détail_Sortie.[Prix de sortie TVAC] = 2,42 WHERE (((T_Détail_Sortie.#Sortie)=437));
UPDATE T_Détail_Sortie SET T_Détail_Sortie.[Prix de sortie TVAC] = 4,84 WHERE (((T_Détail_Sortie.#Sortie)=437));
UPDATE T_Détail_Sortie SET T_Détail_Sortie.[Prix de sortie TVAC] = 4,84 WHERE (((T_Détail_Sortie.#Sortie)=437));
UPDATE T_Détail_Sortie SET T_Détail_Sortie.[Prix de sortie TVAC] = 4,84 WHERE (((T_Détail_Sortie.#Sortie)=437));
UPDATE T_Détail_Sortie SET T_Détail_Sortie.[Prix de sortie TVAC] = 4,84 WHERE (((T_Détail_Sortie.#Sortie)=437));

[Didier L]

Bonsoir,

Le problème de la clause SQL est du en partie au séparateur décimal.
En SQL c'est le .
La virgule sert à séparé la liste des champs soit a afficher soit à mettre à jour.
Dans ton cas, il faut que tu utilise la fonction replace() qui va te permettre de remplacer la virgule par le "."

Essaye :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
dim vlsql as string
vlsql="UPDATE T_Détail_Sortie SET T_Détail_Sortie.[Prix de sortie TVAC] = " & replace(valeur,",",".") & " WHERE (((T_Détail_Sortie.#Sortie)=" & idcourant & "));"
debug.print vlsql

[yieiyiei]

c'est tout bon :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

CurrentDb.Execute "UPDATE R_Détail_Vente SET R_Détail_Vente.[Prix de sortie TVAC] = R_Détail_Vente.[PTVAC] WHERE R_Détail_Vente.[#Sortie] = " & (Me.Test_N°Sortie)

merci de m'avoir éclairé