Précédent   Forum des professionnels en informatique > Logiciels > Microsoft Office > Access > VBA Access
VBA Access Le forum pour les questions relatives au code VBA sous Access, et à son environnement de développement VBE.
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 05/02/2011, 07h01   #1
Candidat au titre de Membre du Club
 
Inscription : novembre 2004
Messages : 45
Détails du profil
Informations forums :
Inscription : novembre 2004
Messages : 45
Points : 10
Points : 10
Par défaut Boucle sur une requête pour executer plusieurs requêtes

Bonjour


Je ne vois pas comment exécuter plusieurs requête INDIVIDUELLEMENT tout en codant une seul requête et en créant une boucle pour changer une variable de la requête.

Exemple:

Variable1: lundi
Variable2: mardi
Variable3: mercredi
Variable4: jeudi

Requête:

Code :
CurrentDb.Execute "UPDATE Agenda SET Agenda.Choix=False WHERE Agenda.Jour=VariableN"
Donc, il faudrait que la requête ci-dessus soit exécutée par une seule action et que cette requête s'exécute selon la variable1 à la variable4.

Merci d'avance pour votre aide.
JiB@ est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 05/02/2011, 07h24   #2
Rédacteur/Modérateur
 
Avatar de Philippe JOCHMANS
 
Homme Philippe JOCHMANS
Développeur informatique
Inscription : mai 2005
Messages : 17 609
Détails du profil
Informations personnelles :
Nom : Homme Philippe JOCHMANS
Âge : 44
Localisation : France, Loir et Cher (Centre)

Informations professionnelles :
Activité : Développeur informatique
Secteur : Communication - Médias

Informations forums :
Inscription : mai 2005
Messages : 17 609
Points : 30 959
Points : 30 959
Envoyer un message via MSN à Philippe JOCHMANS Envoyer un message via Skype™ à Philippe JOCHMANS
Bonjour

Je te conseille de passer par un tableau pour tes jours.

Voici un petit exemple (attention code fait à la main et non testé).

Code :
1
2
3
4
5
6
7
8
9
10
11
 Dim Variable(1 To 4) As String
    Dim i As Byte
 
    Variable(1) = "Lundi"
    Variable(2) = "Mardi"
    Variable(3) = "Mercredi"
    Variable(4) = "Jeudi"
 
    For i = 1 To 4
        CurrentDb.Execute "UPDATE Agenda SET Agenda.Choix=False WHERE Agenda.Jour='" & Variable(i) & "'"
    Next i
Philippe
__________________
Détaillez vos questions, sinon vous aurez des réponses erronées et vous irez tout droit dans le et lisez les règles sinon
Si vous pensez commencer sans un livre, oublier : livres pour débuter
Vous pouvez consulter mes articles sur Access et PowerPoint
Le blog Office.

Inutile de m'envoyer un MP pour des questions techniques ou de me relancer , je n'y répondrais pas.
Philippe JOCHMANS est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 07/02/2011, 17h34   #3
Candidat au titre de Membre du Club
 
Inscription : novembre 2004
Messages : 45
Détails du profil
Informations forums :
Inscription : novembre 2004
Messages : 45
Points : 10
Points : 10
Merci, ça fonctionne parfaitement !
JiB@ est déconnecté   Envoyer un message privé Réponse avec citation 00
Réponse Proposer ce sujet en actualité Cette discussion est résolue.
Outils de la discussion



Fuseau horaire GMT +2. Il est actuellement 08h31.


 
 
 
 
Partenaires

Hébergement Web