Discussion :

[Jiben59]

Bonjour la communauté,

Je me tourne vers vous, car je souhaiterai optimiser ma base de données de mon compte bancaire.

Vous trouverez ci-joint les relations de ma base de données :


Ci-joint ma table "Cheques" :


Ci-joint ma table "Mouvements" :



Je souhaiterais optimiser ma base de données au niveau de la table « Cheques » et « Mouvements ».

Alors dans la table « cheques » on retrouve les chèques émis et les chèques reçus où j’enregistre le numéro du chèque, la banque, l’intitulé, la date, et son montant.
Cette table me permet de pointer les chèques encaissés et les chèques en attente d’encaissement.

Lorsqu’un chèque est encaissé, je coche la case de la colonne « ChqEncaisse » en indiquant la date d’encaissement de ce dernier.
Il est bon de savoir qu’un chèque peut correspondre à un ou plusieurs enregistrements au sein de la table « Mouvements » où l’on retrouve le numéro de chèque via la colonne « NumChq ».

Donc à chaque fois, que j’indique un chèque encaissé, c’est-à-dire que je coche la colonne « ChqEncaisse » dans la table « Cheques », je dois effectuer des opérations manuelles afin de décocher la case « EnAttente » dans la table « Mouvements » pour chaque ligne correspondant au chèque encaissé.

La colonne « EnAttente » coché signifie que le montant de la ligne d’enregistrement au sein de la table « Mouvements » n’est pas pris en compte pour le calcul du solde bancaire.
En outre, comme vous pouvez l’imaginer cette opération manuelle peut être fastidieuse lorsqu'une remise de chèque correspondant à dix lignes d’enregistrements, et accroitre des erreurs sur le solde bancaire.

C’est pour cela, que j’aimerais créer un code VBA, dans le but que lorsque je coche la case « ChqEncaisse » dans la table « Cheques », toutes les lignes d’enregistrement ayant un numéro de chèque identique dans la table « Mouvements » via la colonne « NumChq » qui est la clé primaire de la table « Cheques », alors tous les enregistrements s’actualisent automatiquement afin d’être pris en compte pour le solde bancaire, c’est-à-dire que le code décoche la case « EnAttente » dans la table en « Mouvements » dès lors que je coche la case « ChqEncaisse » dans la table « Cheques ».

Ayant un niveau débutant dans le codage VBA, est ce que la communauté pourrait me donner une base de code et/ou des explications pour y arriver s'il vous plaît.

J'espère être compréhensif dans mon explication, et je reste à votre disposition pour répondre à toutes questions.

Une nouvelle fois, je tiens à remercier les internautes qui vont m’aider afin de réussir à développer mon projet.

Dans le plaisir de vous lire, bonne soirée à vous et bon week-end.

Bien cordialement Benjamin.

[Michel]

Bonjour

Donc à chaque fois, que j’indique un chèque encaissé, c’est-à-dire que je coche la colonne « ChqEncaisse » dans la table « Cheques », je dois effectuer des opérations manuelles afin de décocher la case « EnAttente » dans la table « Mouvements » pour chaque ligne correspondant au chèque encaissé.

Une suggestion:

Code :

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

UPDATE table     SET newvalue     WHERE criteria;

Un update de EnAttente avec un where sur le numero du cheque encaissé
voir:UPDATE Statement (Microsoft Access SQL)
https://msdn.microsoft.com/en-us/lib...ffice.12).aspx
avec un exemple en vb

[Jiben59]

Bonjour

Une suggestion:

Code :

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

UPDATE table     SET newvalue     WHERE criteria;

Un update de EnAttente avec un where sur le numero du cheque encaissé
voir:UPDATE Statement (Microsoft Access SQL)
https://msdn.microsoft.com/en-us/lib...ffice.12).aspx
avec un exemple en vb

Bonjour Michel,

je te remercie pour ton aide.

Alors voici le code que j'ai préparé avec votre suggestion :

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
Option Compare Database
 
Sub UpdateX()
 
    Dim dbs As Database
    Dim qdf As QueryDef
 
 
    Set dbs = OpenDatabase("Chèque non encaissé")
 
    ' Le changement se fait au niveau de la colonne en attente dans la table Mouvement
    'On relie le numéro de chèque de la table chèque avec la table mouvement
     'Le changement s'effectue à condition que la case cheque encaisse soit coche'
    dbs.Execute "UPDATE Mouvements " _
        & "SET EnAttente = No " _
        & "WHERE Cheques.NumChq = Mouvements.NumChq;" _
        & "Cheques.ChqEncaisse = Yes; " _
 
    dbs.Close
 
End Sub

Pourriez-vous me dire si le codage est bon s'il vous plaît ?

Encore merci pour votre aide.

Bien cordialement,
Benjamin.

[Michel]

A priori, cela me semble correct; pour tester faire une copie des tables et essayer

[Jiben59]

A priori, cela me semble correct; pour tester faire une copie des tables et essayer

Bonjour Michel,

j'espère que vous allez bien.

Malheureusement j'ai essayé le code, et j'ai un message d'erreur lorsque je coche la case chèque encaissé, la première ligne du code est surligné en jaune.

Ci dessous le message d'erreur :


J'ai inséré le code dans la propriété de la case "ChqEncaisse" lors d'un click, ci-dessous la capture d'écran de la propriété :


Merci pour votre aide.

Bien cordialement,
Benjamin.

[marot_r]

Bonjour.

Tu as inclu le code dans une autre procédure.
Ton code devrait ressembler à cela :

Code :

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

1
2
3
private sub ChgEncaisse_Cilck()
    call updateX 'Le call est optionnel mais j'aime bien
end sub

Code :

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

1
2
3
public sub UpdateX()
  'ici le code de updateX
end sub

updateX pourrait être dans un autre module éventuellement.

A+