1 2 3 4 5 6 7 8 9 10 11 12
| If mdlMain.MoisTraite = 1 Then
vDeb = Format$(DateSerial(mdlMain.AnTraite - 1, 12, 31), "mm/dd/yyyy")
Else
vNb = SizeMois(mdlMain.AnTraite, mdlMain.MoisTraite - 1)
vDeb = Format$(DateSerial(mdlMain.AnTraite, mdlMain.MoisTraite - 1, vNb), "mm/dd/yyyy")
End If
If mdlMain.MoisTraite = 12 Then
vFin = Format$(DateSerial(mdlMain.AnTraite + 1, 1, 1), "mm/dd/yyyy")
Else
vFin = Format$(DateSerial(mdlMain.AnTraite, mdlMain.MoisTraite + 1, 1), "mm/dd/yyyy")
End If
MakeSQLRLV = "SELECT Releve.* FROM Releve WHERE (((Releve.Operation) = " & FlagOP & ") AND ((Releve.DateCompta) > #" & vDeb & "#) AND ((Releve.DateCompta) < #" & vFin & "#)) ORDER BY Releve.DateCompta;" |