Version imprimable
bonjour
dans ma base access, j'ai un champs date en format text
je souhaiterais réaliser un requette sql en vba, et récupérer toutes les données qui sont antérieur à 3 mois
mais ça ne fonctionne pas, ça me renvoie toutes les données
vous auriez une soluce?Code:TexteSQL = "SELECT * FROM [feuille atdec] WHERE ([cloture] is not null) and [date_création]<" & (CDate(Date) - 90) & ""
bonsoir,
sauf si c'est une table non modifiable (fichier texte, classeur Excel, ou table d'une base externe) c'est une très mauvaise idée de stocker une date dans un champ texte surtout si elle est au format JJ/MM/AAAA, car le tri se fait de gauche à droite ainsi: "25/12/2020" sera toujours inférieur "31/01/2020" puisque 2..... est inférieur à 3.....Citation:
dans ma base access, j'ai un champs date en format text
En réalité, une date dans Access est représenté par un nombre numérique, ainsi:
31/01/2020, c'est 43861 et 25/12/2020 c'est 44190. Je passe le détail de la codification des heures représentées par les décimales de ces nombres.
Je te conseille donc fortement de convertir ce champ. Et si ce n'est pas possible, il faut convertir le champ de la table pour que cela fonctionne (et inutile de le faire pour la fonction Date qui renvoie déjà une date):
Code:TexteSQL = "SELECT * FROM [feuille atdec] WHERE ([cloture] is not null) and CDate([date_création])< DateAdd('d',-90,date)"
merci pour ta solution
après une petite adaptation, elle fonctionne presque
elle me renvoie une message d'erreur "utilisation incorrect de NULL"Code:TexteSQL_feuilles_atdec = "SELECT * FROM [feuille atdec] WHERE ([cloture] is not null) and CDate([date_création])< " & DateAdd("D", -90, Date) & ""
je pense que j'ai ce message car il y a des champs vide de temps en temps
une solution?
voici ma configuration: base access, piloté par un fichier excel en vba
bonjour,
enlève les dates nulles:Citation:
une solution?
Code:TexteSQL_feuilles_atdec = "SELECT * FROM [feuille atdec] WHERE ([cloture] is not null) and [date_création] is not null and CDate([date_création])< " & DateAdd("D", -90, Date) & ""
merci, mais j'avais déjà essayé
Pièce jointe 550051
j'ai toujours l’erreur null?:oops:
et avec:
Code:TexteSQL_feuilles_atdec = "SELECT * FROM [feuille atdec] WHERE ([cloture] is not null) and CDate(Nz([date_création],Date))< " & DateAdd("D", -90, Date) & ""
:piou:
Pièce jointe 550074
est-ce que le message d'erreur ne concernerait pas:sinon essaie:Code:WHERE [cloture] is not null
Code:TexteSQL_feuilles_atdec = "SELECT * FROM [feuille atdec] WHERE ([cloture] is not null) and [date_création]&'' <> '' and CDate([date_création])< " & DateAdd("D", -90, Date) & ""
Code:TexteSQL_feuilles_atdec = "SELECT * FROM [feuille atdec] WHERE ([cloture] is not null) and CDate(iif([date_création]&''='',Date,[date_création]))< " & DateAdd("D", -90, Date) & ""
ce n'est pas mieux non plus
le message d'erreur ne concerne pas ceci , car si j'enlève cette partie j'ai le même pbCode:WHERE [cloture] is not null
toujours le même message d'erreur NULL
et pour celui ci, le message d'erreur me dit que l'argument n'est pas valide/absentCode:TexteSQL_feuilles_atdec = "SELECT * FROM [feuille atdec] WHERE ([cloture] is not null) and [date_création]&'' <> '' and CDate([date_création])< " & DateAdd("D", -90, Date) & ""
Code:TexteSQL_feuilles_atdec = "SELECT * FROM [feuille atdec] WHERE ([cloture] is not null) and CDate(iif([date_création]&''='',Date,[date_création]))< " & DateAdd("D", -90, Date) & ""
dans ma première réponse (post #2), il me semble que j'ai donné cette syntaxe (sans concaténation):
pour quelle raison a t-elle changée (avec concaténation) ?Code:TexteSQL = "SELECT * FROM [feuille atdec] WHERE ([cloture] is not null) and CDate([date_création])< DateAdd('d',-90,date)"
Code:TexteSQL_feuilles_atdec = "SELECT * FROM [feuille atdec] WHERE ([cloture] is not null) and CDate(iif([date_création]&''='',Date,[date_création]))< " & DateAdd("D", -90, Date) & ""
parce que le code me générait une erreur, il falait que je rajoute
Code:" & "
alors là, je ne comprend pas ... peux-tu poster la base au format zip ou rar et le classeur sans données confidentielles ?
bonjour
voici un lien
la base de donnée access vierge et le fichier excel qui pilote la base en VBA
Pièce jointe 550237
bonjour,
heureusement elle ne l'était pas, sinon j'aurais eu des problèmes pour tester ;)Citation:
la base de donnée access vierge
voici la correction (il manquait les délimiteurs de date (#) et les parenthèses après la fonction Date):
Code:TexteSQL_feuilles_atdec = "SELECT * FROM [feuille atdec] WHERE ([cloture] is not null) and CDate(iif([date_création]&''='',Date(),[date_création]))< #" & DateAdd("D", -90, Date()) & "#"
magnifique, merci beaucoup, ça fonctionne parfaitement
même si je ne comprend pas tout dans le code!
Citation:
même si je ne comprend pas tout dans le code!
la fonction IIF (Vraifaux en français) contient 3 paramètres:Code:"CDate(iif([date_création]&''='',Date(),[date_création]))"
1er: l'expression à tester ====> [date_création]&''=''
2è : la valeur si l'expression est vraie ====> Date()
3è : la valeur si l'expression est fausse ====> [date_création]
explication de [date_création]&'': si la date de création est nulle et qu'on la concatène avec '' (qui correspond à vide), le nul disparait.
Pourquoi ? parce qu'on ne peut pas comparer nul avec les signes (<, >, =) : UneValeur= Nul ne fonctionne pas. C'est pour cela qu'en temps normal on évalue avec IsNull(UneValeur) qui renvoie Vrai ou Faux.
On utilise '' à la place de "" car on est à l'intérieur d'une chaine de caractères habituellement délimité par les guillemets "". Donc si on ne veut pas que cela génère une erreur, on utilise les apostrophes.
On aurait pu aussi doubler les guillemets car c'est l'usage quand on est dans une chaine de caractères:
Null + '' = '': parce que quand on compare la concaténation (date+'') à '' et que cela renvoie vrai, cela veut dire que la date testée est nulle et si elle est nulle, on met la date du jour (valeur si expression vraie), sinon on met la date de la table (valeur si expression fausse). Comme la date du jour ne sera jamais inférieure à elle-même - 90 jours, les dates nulles ne seront jamais sélectionnées.Code:"CDate(iif([date_création]&""""="""",Date(),[date_création]))"
As-tu mieux compris ?
N'oublie pas le bouton :resolu:
parfait
solution et en prime les explications, que demander de plus:merci::ccool:
