Discussion :

[lepieux]

* Bonjour, *

J’ai un souci que je vous soumets
En fait, je veux modifier la valeur d’un champ de plusieurs enregistrements si une condition est remplie.
Dans mon formulaire, j’ai (pour l’instant) quatre (04) zones de liste (qui contient la liste des produits) et quatre zones de textes
Chaque zone de texte contient une valeur que je teste pour modifier le champ de l’enregistrement concerné (produit)

Pour l’heure voici comment je bétonne un code qui s’exécute lorsqu’on clique sur le bouton de commande

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
        If me.txt1=10 then
    Docmd.runsql   “update table1 set champ = ‘  ” ok  ” ’ where codprod=’” & me.zdl1 &”’”
        Endif
        If me.txt2=10 then
    Docmd.runsql   “update table1 set champ = ‘  ” ok  ” ’ where codprod=’” & me.zdl2 &”’”
        Endif
        If me.txt3=10 then
    Docmd.runsql   “update table1 set champ = ‘  ” ok  ” ’ where codprod=’” & me.zdl3 &”’”
        Endif
        If me.txt4=10 then
    Docmd.runsql   “update table1 set champ = ‘  ” ok  ” ’ where codprod=’” & me.zdl4 &”’”
        Endif

Ca fonctionne mais je ne trouve cela pas très intéressant, car si j’ai 10 zones de listes et 10 zones de texte je suis obligé de répéter de code autant de fois.

Mon objectif est de trouver (mettre en place) une boucle de sorte que si la zone de texte 1 (txt1) est égale à 10 alors je modifie la l’enregistrement ayant le code produit (codprod) zdl1,
Ainsi de suite pour la zone de texte 2 avec la zone de liste 2 (zdl2).

Merci de bien vouloir me guider

[marot_r]

tu peux faire un truc du genre

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
const NB_ZONE_A_TRAITER as integer = 4
const VALEUR_UTILE as integer = 10
 
dim i as integer : for i=1 to NB_ZONE_A_TRAITER
 
   if me.controls("Txt" & i)=VALEUR_UTILE then
     Docmd.runsql   “update table1 set champ = ‘  ” ok  ” ’ where codprod=’” & me.controls("zdl" & i) &”’”
   end if
 
next i

Note : Il est recommandé d'utiliser des constantes significatives au lieu de valeurs. Quelqu'un qui lit ton code doit savoir pourquoi tu testes 10. Là VALEUR_UTILE , n'est pas un nom très significatif, il serait bon de trover mieux. Par exemple elle pourrait s'appeler PERSONNE_MARIEE, CAMION_EN_PANNE, EXPEDITION_ETRANGER selon ce qui a du sens dans ton programme. De plus si cette valeur change il est beaucoup plus facile de la changer au niveau de la définition que de parcourrir le code pour faire une remplacement de tous les 10 en 20 ou toute autre valeur.

Autre chose, as-tu vraiment une table "table1" qui contient un champ "Champ" dans ta BD ?

Si oui, il comme pour les valeurs, recommandé de mettre des noms significatifs (ex : Table "Fournisseur" avec un champ "Nom") et même s'il s'agit du table temporaire.

A+