Différence entre Date et Date()

**Gabout** · 22/04/2007, 14h59

Bonjour,

Je soumets à votre réflexion mon incompréhension :
Je souhaite compter le nombre d'enregistrements d'une requête SQL par une autre requête SQL de façon à ne fonctionner qu'avec du code.

la requête de comptage est la suivante (appelée Combien) :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Public Function Combien(strSql As String) As Long
    Dim oDb As DAO.Database
    Dim oRst As DAO.Recordset
    Set oDb = CurrentDb
    Set oRst = oDb.OpenRecordset(strSql, dbOpenDynaset)
    If oRst.BOF Then
        Combien = 0
    Else
        oRst.MoveLast
        Combien = oRst.RecordCount
    End If
    oRst.Close
    oDb.Close
    Set oRst = Nothing
    Set oDb = Nothing
End Function

Le lancement du décompte se fait sur click d'un bouton :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Private Sub CmdCombien_Click()
    Dim sSQL As String, NbEnreg As Long
    'Requête qui plante
    'sSQL = "SELECT tbl_UNITES.CUnite_ID, tbl_UNITES.Unite, tbl_AFFECTATIONS.Affectation, tbl_AGENTS.MAJ, tbl_AGENTS.Sortie, [Nom] & ' ' & PremMajMotsComp([Prenom]) AS Agent, tbl_GRADES.Grade, tbl_DEMANDES.CDemande_ID, tbl_CATEGORIES.Cat, tbl_CATEGORIES.Duree, tbl_DEMANDES.Formation, tbl_DEMANDES.Relance, DateSerial(Year([Formation]),Month([Formation])+[Duree],Day([Formation])) AS Validite " & _
           "FROM tbl_UNITES INNER JOIN (tbl_GRADES INNER JOIN (tbl_CATEGORIES INNER JOIN ((tbl_AFFECTATIONS INNER JOIN tbl_AGENTS ON tbl_AFFECTATIONS.CAffectation_ID = tbl_AGENTS.CAffectation) INNER JOIN tbl_DEMANDES ON tbl_AGENTS.Matricule_ID = tbl_DEMANDES.Matricule) ON tbl_CATEGORIES.CCategorie_ID = tbl_DEMANDES.CCategorie) ON tbl_GRADES.CGrade_ID = tbl_AGENTS.CGrade) ON tbl_UNITES.CUnite_ID = tbl_AFFECTATIONS.CUnite " & _
           "WHERE (((tbl_AGENTS.MaJ) = DMax('[MAJ]', 'tbl_AGENTS')) And ((tbl_AGENTS.Sortie) > Date) And ((tbl_CATEGORIES.Duree) > 0) And ((tbl_DEMANDES.Formation) Is Not Null) And ((tbl_DEMANDES.Relance) Is Null) And ((DateSerial(Year([Formation]), Month([Formation]) + [Duree], Day([Formation]))) < Date)) " & _
           "ORDER BY tbl_UNITES.Unite;"
 
    'Requête qui fonctionne
    sSQL = "SELECT tbl_UNITES.CUnite_ID, tbl_UNITES.Unite, tbl_AFFECTATIONS.Affectation, tbl_AGENTS.MAJ, tbl_AGENTS.Sortie, [Nom] & ' ' & PremMajMotsComp([Prenom]) AS Agent, tbl_GRADES.Grade, tbl_DEMANDES.CDemande_ID, tbl_CATEGORIES.Cat, tbl_CATEGORIES.Duree, tbl_DEMANDES.Formation, tbl_DEMANDES.Relance, DateSerial(Year([Formation]),Month([Formation])+[Duree],Day([Formation])) AS Validite " & _
           "FROM tbl_UNITES INNER JOIN (tbl_GRADES INNER JOIN (tbl_CATEGORIES INNER JOIN ((tbl_AFFECTATIONS INNER JOIN tbl_AGENTS ON tbl_AFFECTATIONS.CAffectation_ID = tbl_AGENTS.CAffectation) INNER JOIN tbl_DEMANDES ON tbl_AGENTS.Matricule_ID = tbl_DEMANDES.Matricule) ON tbl_CATEGORIES.CCategorie_ID = tbl_DEMANDES.CCategorie) ON tbl_GRADES.CGrade_ID = tbl_AGENTS.CGrade) ON tbl_UNITES.CUnite_ID = tbl_AFFECTATIONS.CUnite " & _
           "WHERE (((tbl_AGENTS.MAJ)=DMax('[MAJ]','tbl_AGENTS')) AND ((tbl_AGENTS.Sortie)>Date()) AND ((tbl_CATEGORIES.Duree)>0) AND ((tbl_DEMANDES.Formation) Is Not Null) AND ((tbl_DEMANDES.Relance) Is Null) AND ((DateSerial(Year([Formation]),Month([Formation])+[Duree],Day([Formation]))) < Date())) " & _
           "ORDER BY tbl_UNITES.Unite;"
 
    NbEnreg = Combien(sSQL)
    MsgBox (NbEnreg)
End Sub

J'ai affiché la requête qui plantait et la correction qui fonctionne. La seule différence est que j'ai du rajouter les deux parenthèses après Date... et c'est cela que je ne comprends pas !

Peut-être ne direz vous que du moment que j'ai mon code qui fonctionne, je devrais être content mais je voudrais comprendre !!

Une explication ?