Discussion :

[cslbcg]

Bonsoir à tous !
Je suis coincée par un truc ... tout bête à résoudre dans Excel mais dont je ne sais pas comment me sortir dans Access

Dans un formulaire, je renseigne les champs d'une table qui n'est autre qu'un livre de caisse.

Dans ce même formulaire, ou au moins dans un état, j'ai besoin des totaux journaliers d'opérations (total des entrées - total des sorties du jour) et, aussi, du solde global de la caisse, càd le total précédent cumulé à celui de la veille. Et ainsi de suite... au fur et à mesure des saisies des opérations de caisse.

Pour être plus claire :

Ma table "Journal de caisse" comporte les champs suivants :
Date, désignation, dépenses, recettes.

J'ai besoin de sortir le résultat des opérations :
- sur chaque journée : recettes- dépenses + report du solde de la veille
- en cumul : solde des opérations depuis le 1er janvier

Et je n'arrive pas à le faire, et je ne sais plus où chercher

Le total de la journée, c'est facile avec un champ calculé mais comment récupéré le total de l'enregistrement précédent ?

Alors, si vous avez des idées, elles seront les bienvenues !
Merci d'avance

Catherine

[JMPS.VBA]

Quelque chose du genre ça :
(je ne suis pas tout à fait certain que ça marche bien comme il faut)

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
18
19
20
21
Dim SQL As String
Dim RST As Recordset
Dim SoldeAntérieur As Currency
 
    SQL = "SELECT Opération.* FROM Opération ORDER BY Opération.Date, Opération.Montant;"
    Set RST = CurrentDb.OpenRecordset(SQL, dbOpenDynaset)
    If RST.EOF = False Then RST.MoveFirst
 
    Do While RST.EOF = False
 
        With RST
        .Edit
        ![Solde] = SoldeAntérieur + Montant
        .Update
        SoldeAntérieur = ![Solde]
        .MoveNext
        End With
 
    Loop
 
    RST.Close

[Invité]

Bonjour

Une piste ici peut être:

http://support.microsoft.com/kb/101081/fr

[JIPIONE]

Bonjour,

Tu as un champs Date c'est un nom réservé appelle le autrement, pour l'occasion je l'ai appelé madate

Tu peux remplacer Date() et #01/01/2010# par autrechose

Code :

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

1
2
3
4
5
6
7
8
9
 
Dim MaJournee,MonSolde,Montotal,MonCumul as Double
 
MonSolde=DSum("[recette]","Journal de caisse","[madate]=date()-1")-DSum("[depense]","Journal de caisse","[madate]=date()-1")
MaJournee=DSum("[recette]","Journal de caisse","[madate]=date()")-DSum("[depense]","Journal de caisse","[madate]=date()")
 
MonTotal=MonSolde+MaJournee
 
MonCumul=Sum("[recette]","Journal de caisse","[madate]>=#01/01/2010#")-DSum("[depense]","Journal de caisse","[madate]>=#01/01/2010#")

A+

JIPIONE