Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > Requêtes et SQL.
Requêtes et SQL. Tout ce qui concerne vos questions sur les requêtes et le SQL sous Access se trouve ici.
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 28/10/2011, 14h45   #1
Invité de passage
 
Issa-Pierre Gassama
Inscription : octobre 2011
Messages : 10
Détails du profil
Informations personnelles :
Nom : Issa-Pierre Gassama
Localisation : France, Hérault (Languedoc Roussillon)

Informations forums :
Inscription : octobre 2011
Messages : 10
Points : 0
Points : 0
Par défaut SQL : mettre en lignes des colonnes

Bonjour,

je rencontre le même soucis que sur cette discussion, la solution présentée me convient parfaitement mais je me retrouve avec un très grand nombre de requetes ajout à créer

aviez-vous trouver une solution pour "tu peux aussi récupérer le SQL de la première, il est très simple, et le bricoler dans une boucle VBA"

merci.
IpG34 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 03/11/2011, 00h12   #2
Membre Expert
 
Homme Jacques Petiot
Indépendant développeur et formateur
Inscription : octobre 2007
Messages : 891
Détails du profil
Informations personnelles :
Nom : Homme Jacques Petiot
Âge : 51
Localisation : France

Informations professionnelles :
Activité : Indépendant développeur et formateur
Secteur : Conseil

Informations forums :
Inscription : octobre 2007
Messages : 891
Points : 1 333
Points : 1 333
Hello
je récupère un SQL par exemple
Code :
1
2
UPDATE Détail_Facture SET Détail_Facture.Rubrique = [nouveau code]
WHERE (((Détail_Facture.Rubrique)=[ancien code]));
et en regardant la requête suivante je trouve la même chose mais avec [nouveau code 2] et [ancien code2] et ainsi de suite jusqu'à 50

Le bricolage en VBA devient
Code :
1
2
3
4
5
6
7
8
For i = 2 to 50
Text_Sql = "UPDATE Détail_Facture SET Détail_Facture.Rubrique = [nouveau code"
Text_Sql =Text_Sql & i
Text_Sql =Text_Sql & "] WHERE (((Détail_Facture.Rubrique)=[ancien code"
Text_Sql =Text_Sql & i
Text_Sql =Text_Sql & "]));"
Docmd.RunSql Text_Sql
next i
en espérant avoir aidé
__________________
-------------------Simplifi----------comme si tout était simple--------
Simplifi 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 12h59.


 
 
 
 
Partenaires

Hébergement Web