Problème de date en vba-access 2000

Problème de date en vba-access 2000 - VB/VBA/VBS - Programmation

Marsh Posté le 30-08-2006 à 11:57:47    

Bonjour,  
J'ai un gros problème. J'ai créé un formulaire et celui-ci fait appel au vba pour remplir des cases.
quand j'exécute une requête qui se réfère à une date (format texte) je n'obtiens pas le bon résultat.
 

Code :
  1. Private Sub Form_Load()
  2. Dim rs As DAO.Recordset
  4. sqlavant = "SELECT Sum(Dossier.MontantSubvention) AS SommeDeMontantSubvention, Count(Dossier.NoDossier) AS CompteDeNoDossier
  5. FROM Dossier INNER JOIN CP ON Dossier.NoDossier = CP.NoDossier
  6. WHERE (((dossier.DateDossierComplet) <= '2005/12/01'))  AND ((CP.AgenceEau) Is Null) AND ((CP.DateCommission) Is Null);"
  7. Set rs = CurrentDb.OpenRecordset(sqlavant)
  8. MontantAvant.Value = rs.Fields(0).Value
  9. NbAvant.Value = rs.Fields(1).Value
  10. rs.Close


Comment faire ?
merci pour l'aide

Reply

Marsh Posté le 30-08-2006 à 11:57:47   

Reply

Marsh Posté le 06-09-2006 à 11:55:47    

en SQL je te conseille ce format (format américain) : MM/JJ/AAAA (12/01/2005 pour ton code) de plus tu dois utiliser les "#" pour délimiter une date
 
pour info si tu veux que ton code se réfère à un champs d'un formulaire :

Code :
  1. sqlavant = "SELECT ..... WHERE (((dossier.DateDossierComplet) <= #" & format("MM/DD/YYYY";NomDuChampDate) & "# .... ;"


Message édité par 4get9 le 06-09-2006 à 11:56:52
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed