Discussion :

[abdelhamidb]

Bonjour Tout le Monde
Je suis un débutant en Access.
J'ai besoin d'aide pour compléter ma base de donnée qui est en attachement.
Elle est conçue pour suivez les comptes bancaire.

Veuillez m'aidez pour calculer:
- Le solde après chaque opération dans le sous formulaire de chaque compte,
- La somme des débit et des crédit,
- Le solde actuel et le solde pointé pour chaque compte bancaire.

Salutation

[Invité]

Bonjour
Je rappelle que le forum, n'a pas vocation à faire les devoirs des étudiants.
Il faut exposer clairement les points qui ne sont pas compris en fonction de ce qui est déjà fait.
Mettre en pièce jointe la base sans explication n'est pas correct et peut d'ailleurs faire l'objet d'une suppression.

[abdelhamidb]

Bonjour
Je suis désolé pour la manier de présente mon problème, j'ai pas fait attention au conditions du forum.
Les étapes de mon travail sont comme suite:
* Créer la table des compte bancaire:
- NCompte (Clé Auto),
- Titre de Compte,
- Solde Initial,
- Total Débit (Non Activé),
- Total Crédit (Non Activé),
- Solde Actuelle (Non Activé),
- Solde Pointé (Non Activé).
Photo 1:

* Créer la table des opérations:
- NOper (Clé Auto),
- NCompte (Relier avec le NCompte de la table Compte bancaire),
- Date Oper,
- Débit,
- Crédit,
- Solde (Non Activé),
- Pointé (Oui/Non).
Photo 2:

* Créer la relation entre les deux tables (NCompte 1 = ∞ NCompte),
Photo 5:

* Créer le formulaire et le sous formulaire.
Photo 3:

Photo 4:

* Mon problème c'est comment je peut calculer les paramètres suivent:
- Total Débit,
- Total Crédit,
- Solde Actuelle,
- Solde Pointé,
- Solde ( dans le sous formulaire).
Salutation.

[patrice084]

* Mon problème c'est comment je peut calculer les paramètres suivent:
- Total Débit,
- Total Crédit,
- Solde Actuelle,
- Solde Pointé,
- Solde ( dans le sous formulaire).

Tout simplement avec des requêtes mises à jour. Vous pouvez en créer une pour chaque calcul à faire, puis faire une macro qui enchainera les requêtes mises à jour et enfin, vous faites exécuter la macro à l'ouverture du formulaire.

[abdelhamidb]

Bonjour
Mon problème c'est comment je peut calculer les paramètres suivent:
- Total Débit,
- Total Crédit,
- Solde Actuelle,
- Solde Pointé,
- Solde ( dans le sous formulaire).
Veuillez me donnez les formules de calcule ou bien la méthode de calcule.
Salutation.

[Robert1957]

Bonjour abdelhamidb,

Je suppose que c'est un travail et que tu ne peux modifier la structure des tables. Parce que mettre des champs calculés est souvent inutile ce qui est le cas dans ton exemple.

Pour ce qui est de:

- Total Débit,
- Total Crédit,
- Solde Actuelle,
- Solde Pointé,

La meilleur manière de fonctionner selon moi serait de faire le calcul dans des "DataMacro". Regarde mon exemple, miniature 1 à 3. Tu crées une macro que tu appliques aux événements après insertion et après mise à jour (miniature 1). La macro pour Total Débit (miniature 2). La macro pour Solde Actuel (miniature 3). Cela suppose cependant que tu interdis la suppression d'enregistrements ce qui je crois devrais être le cas pour des opérations bancaires.

Pour ce qui est de:

- Solde ( dans le sous formulaire).

Tu pourrais mettre le code suivant dans ton sous-formulaire sur l'événement après mise à jour:

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
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
Private Sub Form_AfterUpdate()
    Dim db As DAO.Database
    Dim rst As DAO.Recordset, rstS As DAO.Recordset
    Dim strSQL As String
    Dim cuSolde As Currency
    'Ici on va chercher le solde du début
    strSQL = "SELECT [Comptes Bancaire].[Solde Initial] FROM [Comptes Bancaire] " _
    & "WHERE ((([Comptes Bancaire].NCompte)=" & Me.NCompte & "));"
    Set db = CurrentDb
    Set rst = db.OpenRecordset(strSQL)
    cuSolde = rst("Solde Initial")
    rst.Close
    Set rst = Nothing
    'Ici on parcours les enregistrements pour avoir les dates
    strSQL = "SELECT Operations.NCompte, Operations.[Date Oper], Operations.Solde FROM Operations " _
    & "WHERE (((Operations.NCompte)=" & Me.NCompte & ")) ORDER BY Operations.[Date Oper];"
    Set rst = db.OpenRecordset(strSQL)
    rst.MoveFirst
    While rst.EOF = False
        'Ici on met à jour le solde dans les enregistrements
        strSQL = "SELECT Sum(Operations.Débit) AS DébitT, Sum(Operations.Crédit) AS CréditT FROM Operations " _
        & "WHERE (((Operations.NCompte)=" & Me.NCompte & ") AND ((Operations.[Date Oper])<=#" & rst("Date Oper") & "#));"
        Set rstS = db.OpenRecordset(strSQL)
        If rstS.EOF = False Then
            rst.Edit
            rst("Solde") = cuSolde + rstS("DébitT") - rstS("CréditT")
            rst.Update
        End If
        rst.MoveNext
    Wend
    'On libère les variables
    rst.Close
    Set rst = Nothing
    rstS.Close
    Set rstS = Nothing
    Set db = Nothing
 
End Sub

Ce qui t'assures que si on insère une transaction entre deux autres tu remets à jour tous les champs "Solde" de la table opération.

Bonne journée

[abdelhamidb]

Bonjour
besoin d'explication SVP
Salutation

[Robert1957]

Bonjour abdelhamidb,

Sur quelle partie as-tu besoin d'explications?

Bonne journée