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 25/11/2011, 10h22   #1
Membre régulier
 
Avatar de jubourbon
 
Homme
Inscription : octobre 2008
Messages : 349
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations forums :
Inscription : octobre 2008
Messages : 349
Points : 96
Points : 96
Par défaut Faire un rst.findfirst avec des dates

Bonjour,

J'ai un recordset (rst) et je souhaite sélectionner des éléments par rapport à des dates prises dans un autre recordset (rstEPP)

Voici mon code:
Code :
1
2
3
4
 
Dim strCritere As String
        strCritere = "DateJour >= " & "#" & CDate(rstEPP.Fields("DateDebut")) & "#" & " And DateJour<=" & "#" & DateTime.DateAdd("d", 5, CDate(rstEPP.Fields("DateDebut"))) & "#"
        rst.FindFirst strCritere
Mais il me renvoi l'erreur suivante: Opération non valide. J'ai cherché sur le net, ma syntaxe semble correct. Si quelqu'un peut m'aider.
Merci d'avance.
jubourbon est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 25/11/2011, 11h01   #2
Rédacteur/Modérateur
 
Avatar de Domi2
 
Homme
Inscription : juin 2006
Messages : 6 225
Détails du profil
Informations personnelles :
Sexe : Homme
Âge : 52
Localisation : Suisse

Informations professionnelles :
Secteur : Administration - Collectivité locale

Informations forums :
Inscription : juin 2006
Messages : 6 225
Points : 9 928
Points : 9 928
Envoyer un message via Skype™ à Domi2
Bonjour,

Et comme ceci ?

Code :
"DateJour >= #" & CDate(rstEPP.Fields("DateDebut")) & "# AND DateJour<= #" & DateTime.DateAdd("d", 5, CDate(rstEPP.Fields("DateDebut"))) & "#"
Domi2
__________________
Vous avez des montres, nous avons le temps ! (citation attribuée à L.-S. Senghor)

Ici, on ne perd pas de temps ! On en passe...


Access : créer des codes-barres 128 en VBA
Access : les commandes intégrées des menus

Ce message (ou un autre) vous a aidé ? Votez pour lui avec
Domi2 est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 25/11/2011, 11h47   #3
Membre confirmé
 
Inscription : juillet 2006
Messages : 347
Détails du profil
Informations forums :
Inscription : juillet 2006
Messages : 347
Points : 289
Points : 289
Bonjour,

Ou sinon comme cela :

Code :
1
2
 
strCritere = "DateJour between #" & CDate(rstEPP.Fields("DateDebut")) & "# And #" & DateAdd("d", 5, CDate(rstEPP.Fields("DateDebut"))) & "#"
Access Newbie est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 25/11/2011, 13h02   #4
Membre Expert
 
Homme Pierre ANTOINE
Inscription : février 2008
Messages : 650
Détails du profil
Informations personnelles :
Nom : Homme Pierre ANTOINE
Âge : 43
Localisation : France, Côte d'Or (Bourgogne)

Informations professionnelles :
Secteur : Enseignement

Informations forums :
Inscription : février 2008
Messages : 650
Points : 1 302
Points : 1 302
Bonjour

Juste une question : pourquoi ne pas formater les champs "dates" avec un réel. Les calcules me semblent plus aisés, et les recherches aussi (pas besoin de guillemets)?

Pierre
pier.antoine est déconnecté   Envoyer un message privé Réponse avec citation 00
Vieux 25/11/2011, 16h50   #5
Membre régulier
 
Avatar de jubourbon
 
Homme
Inscription : octobre 2008
Messages : 349
Détails du profil
Informations personnelles :
Sexe : Homme
Localisation : France

Informations forums :
Inscription : octobre 2008
Messages : 349
Points : 96
Points : 96
Domi2: Pas mieux
Pour les autres merci de vos réponses, mais j'ai réussi à contourner le problème.

Merci.
jubourbon 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 07h18.


 
 
 
 
Partenaires

Hébergement Web