Afficher le nombre des facture uniquement pour aujourd'hui

Fermé
ERIC - 26 oct. 2020 à 08:24
yg_be Messages postés 22707 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024 - 26 oct. 2020 à 12:20
bonjour a tous.
j'ai un code qui me permet d'afficher le nombre des factures. mais ce code m'affiche le nombre des factures pour plusieurs dates. Ma question: que faire pour qu'il m'affiche uniquement le nombre des facture pour aujourd'hui?
Merci d'avance.

voici mon code:(sachez aussi que dans ma table commande j'ai un champs "datefacture" avec plusieurs dates)

' ===============NOMBRE DES FACTURES===========
Public Function GetNBfacture(Optional datedebut As Variant, Optional datefin As Variant) As Long
Dim db As Database
Set db = CurrentDb

Dim req As String
If Not IsMissing(datedebut) And Not IsMissing(datefin) Then
req = "SELECT Count(*) as nb FROM commandes " & _
" WHERE CodeFacture is not null " & _
" AND DateFacture Between # " & Format(datedebut, "dd/mm/yyyy") & "#" & _
" And #" & Format(datefin, "dd/mm/yyyy") & "#"

Else
req = " SELECT count(*) as nb FROM commandes " & _
" WHERE codefacture is not null"

End If

res = Nz(db.CreateQueryDef(vbNullString, req).OpenRecordset.Fields("nb"), 0)
GetNBfacture = res
db.Close
Set db = Nothing

End Function
A voir également:

1 réponse

yg_be Messages postés 22707 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024 1 471
26 oct. 2020 à 10:36
bonjour,
suggestion:
req = "SELECT Count(*) as nb FROM commandes " & _
    " WHERE CodeFacture is not null " & _
    " AND int(DateFacture) = " + CStr(CLng(Date))
0
Merci infiniment. Ta réponse a fonctionné parfaitement.
(Mais ne vous fatiguez pas. Je viens avec une autre question. )
0
yg_be Messages postés 22707 Date d'inscription lundi 9 juin 2008 Statut Contributeur Dernière intervention 19 avril 2024 1 471 > Eric
26 oct. 2020 à 12:20
peux-tu alors marquer la discussion comme résolue?
0
Merci infiniment. Ta réponse a fonctionné parfaitement.
0