1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
| CurrentDb.QueryDefs("Rqtsolde").SQL = "SELECT Tblcompte.nomcompte, Tblcompte.typecompte, Tblcompte.nomintermediaire, Tblcompte.nommonnaie, Tblcompte.nomobjectif, 'solde' AS type, Tblsoldeinitial.soldeinitial AS solde1, [Tblsoldeinitial].[soldeinitial]*[Tblmonnaie].[parite] AS soldeeur1 " & _
"FROM Tblmonnaie " & _
"INNER JOIN (Tblcompte " & _
"INNER JOIN Tblsoldeinitial " & _
"ON Tblcompte.nomcompte = Tblsoldeinitial.nomcompte) " & _
"ON Tblmonnaie.nommonnaie = Tblcompte.nommonnaie " & _
"WHERE (Tblcompte.jourouverture < #" & Format(Me.txtsolde.Value, "yyyy/mm/dd") & "# OR Tblcompte.jourouverture = #" & Format(Me.txtsolde.Value, "yyyy/mm/dd") & "#) "
CurrentDb.QueryDefs("Rqtmouvement").SQL = "SELECT Tblcompte.nomcompte, Tblcompte.typecompte, Tblcompte.nomintermediaire, Tblcompte.nommonnaie, Tblcompte.nomobjectif, Sum(Tblfluxcash.montant) AS mouvement, Sum([Tblfluxcash].[montant]*[Tblmonnaie].[parite]) AS mouvementeur, 'mouvement' AS type " & _
"FROM Tblmonnaie " & _
"INNER JOIN (Tblcompte " & _
"INNER JOIN Tblfluxcash " & _
"ON Tblcompte.nomcompte = Tblfluxcash.nomcompte) " & _
"ON Tblmonnaie.nommonnaie = Tblcompte.nommonnaie " & _
"WHERE (Tblfluxcash.jourop < #" & Format(Me.txtsolde.Value, "yyyy/mm/dd") & "# OR Tblfluxcash.jourop = #" & Format(Me.txtsolde.Value, "yyyy/mm/dd") & "#) " & _
"GROUP BY Tblcompte.nomcompte, Tblcompte.typecompte, Tblcompte.nomintermediaire, Tblcompte.nommonnaie, Tblcompte.nomobjectif "
CurrentDb.QueryDefs("Rqtsolmouv").SQL = "SELECT Rqtsolde.type, Rqtsolde.nomcompte, Rqtsolde.solde1 AS solde, Rqtsolde.soldeeur1 AS soldeeur " & _
"FROM Rqtsolde " & _
"UNION " & _
"(SELECT Rqtmouvement.type, Rqtmouvement.nomcompte, Rqtmouvement.mouvement AS solde, Rqtmouvement.mouvementeur AS soldeeur " & _
"FROM Rqtmouvement) "
Me.lbltotal.Caption = DSum("[soldeeur]", "Rqtsolmouv")
If Me.cbosolde.Value = "Compte" Then
Me.lsttotal.ColumnCount = 4
Me.lsttotal.ColumnWidths = "4cm;;;1cm"
If Me.lbltotal.Caption = 0 Then
Me.lsttotal.RowSource = "SELECT Rqtsolmouv.nomcompte AS Compte, Sum(Rqtsolmouv.solde) as solde, Sum(Rqtsolmouv.soldeeur) as solde, 'NA' AS '%'" & _
"FROM Rqtsolmouv " & _
"GROUP BY Rqtsolmouv.nomcompte " & _
"ORDER BY Rqtsolmouv.nomcompte"
Me.lsttotal.Requery
Else
Me.lsttotal.RowSource = "SELECT Rqtsolmouv.nomcompte AS Compte, Sum(Rqtsolmouv.solde) as solde, Sum(Rqtsolmouv.soldeeur) as solde, 100 / " & Me.lbltotal.Caption & " * Sum(Rqtsolmouv.soldeeur) AS '%'" & _
"FROM Rqtsolmouv " & _
"GROUP BY Rqtsolmouv.nomcompte " & _
"ORDER BY Rqtsolmouv.nomcompte"
Me.lsttotal.Requery
End If
End If |
Partager