date Sql/VBA

Question

Bonjour tout le monde, j'ai un petit problèmedans la formation d'une base de données, je m'explique:

dans une base de données de 50 tables environs, un champ DTMAJ (date de mise a jour) est present dans chaqu'une de ces tables, je voudrais executer cette requete:

Set lRecordset = CurrentDb.OpenRecordset("SELECT * FROM " & lRecordsetTable("nomTable") & " where DTMAJ < #" & Month(mdDateMiseAJour) & "/" & Day(mdDateMiseAJour) & "/" & Year(mdDateMiseAJour) & "#", dbOpenDynaset)

lRecordsetTable("nomTable") est la liste des nom de toutes les tables de ma base de données

mdDateMiseAJour est une variable de type date (en VBA) qui a la valeur "30/12/2003"

mon probleme c'est que dans cetraine table je trouve des valeurs (dans le chap DTMAJ) comme "01/01/2000" et donc la requete marche pour ce cas, et pour d'autre table je trouve des valeur comme "01/01/2000 10:30:00" et dans ce cas ma requete sera vide....

comment je pourrai faire la même requete mais généralisé pour toutes les tables??
j'espère que j'ai été clair dans mes explications.
merci d'avance

cs_MPi · Answer

Essaie comme ceci pour voir
Set lRecordset =
CurrentDb.OpenRecordset("SELECT * FROM " & lRecordsetTable("nomTable") & " where CLng(DTMAJ) < CLng(mdDateMiseAJour)", dbOpenDynaset)

MPi²

moudz84 · Answer

ya un truc qui va pas dans cette requete, DTMAJ est un champ dans une table on ne peut lui appliqué CLng non?

moudz84 · Answer

personne n'a une reponse pour ma question???

cs_MPi · Answer

As-tu essayé ?
Une date n'est qu'un Long formaté

MPi²

moudz84 · Answer

oui oui j'ai essayer et ça na pas marché, dans ta requete tu utilise le CLng comme si c'etait une fonction de SQL et non pas de vba

cs_MPi · Answer

Sous quel logiciel travailles-tu ? sous Access exclusivement ?
Et où mets-tu ta requête ? dans une procédure ou dans l'utiltaire de requête d'Access ?

Je viens de faire un test dans l'utilitaire de requête d'Access avec cette requête, et ça me retourne les résultats escomptés...(?)
SELECT * FROM tbID where CLng(DateNaissance) > CLng(#1959-11-23#)

DateNaissance étant un champ Date, formaté comme la date inscrite entre les ##

En passant par une procédure VBA, ça devrait fonctionner aussi bien. Autrement, je ne vois pas.

MPi²

Date Sql/VBA

6 réponses

Votre réponse

Discussions similaires