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 :
- Private Sub Form_Load()
- Dim rs As DAO.Recordset
- sqlavant = "SELECT Sum(Dossier.MontantSubvention) AS SommeDeMontantSubvention, Count(Dossier.NoDossier) AS CompteDeNoDossier
- FROM Dossier INNER JOIN CP ON Dossier.NoDossier = CP.NoDossier
- WHERE (((dossier.DateDossierComplet) <= '2005/12/01')) AND ((CP.AgenceEau) Is Null) AND ((CP.DateCommission) Is Null);"
- Set rs = CurrentDb.OpenRecordset(sqlavant)
- MontantAvant.Value = rs.Fields(0).Value
- NbAvant.Value = rs.Fields(1).Value
- rs.Close
|
Comment faire ?
merci pour l'aide