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+

[Jiben59]

Bonjour marrot,

merci pour les explications.

J'en déduis que le code private sub se place dans la propriété de la casse chèque encaissé de mon formulaire ou de ma table.

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

Mais par contre, le code public sub, je dois le placer où ?

Code :

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

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

Encore merci pour votre aide.

Bien cordialement,
Benjamin.

[marot_r]

Par exemple en dessous du End Sub de ChgEncaisse_Cilck ou alors carrement dans un module à part.

Si tu ne t'en sers que dans le formulaire qui contient ChgEncaisse, je te reccomande de le mettre après le end sub.
Si tu t'es sers dans plus d'un endrois, alors il faut le mettre dans un module.

A+

[Jiben59]

Par exemple en dessous du End Sub de ChgEncaisse_Cilck ou alors carrement dans un module à part.

Si tu ne t'en sers que dans le formulaire qui contient ChgEncaisse, je te reccomande de le mettre après le end sub.
Si tu t'es sers dans plus d'un endrois, alors il faut le mettre dans un module.

A+

Du coup par précaution, j'ai mis le code dans un module nouveau.

Cependant, j'ai un problème d'exécution du code, qui provient sur le nom de mon formulaire.

Je mets ci-dessous le code du module :

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
 
Public 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

De plus les différents messages d'erreurs :
- le message d'erreur :


- le soulignement de l'erreur :


Serais-je moi qui aurais commis une erreur sur le champ indiqué ?

Encore merci pour votre aide.

Bien cordialement,
Benjamin.

[Michel]

Code :

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

1
2
 
Set dbs = OpenDatabase("Chèque non encaissé")

C'est une table pas une base

[Jiben59]

Code :

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

1
2
 
Set dbs = OpenDatabase("Chèque non encaissé")

C'est une table pas une base

Je ne sais pas s'il faut utiliser OpenTable ou alors OpenForms, donc j'ai opté pour la deuxième comme ci-dessous :

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
ublic Sub UpdateX()
 
    Dim dbs As DoCmd
    Dim qdf As QueryDef
 
 
    Set dbs = DoCmd.OpenForm("Cheques")
 
    ' 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

Mais que ceci soit la première proposition ou la deuxième, j'ai un problème d'exécution au sein de mon code d'après le message d'erreur.
Pourriez-vous m'aider s'il vous plaît.

Bien cordialement,
Benjamin.

[tee_grandbois]

Bonsoir,

Code :

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

Set dbs = Currentdb

[marot_r]

Bonjour.

Comme ta base est la base courante :

Code :

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

Set dbs = Currentdb

A+

[Jiben59]

Bonsoir,

je vous remercie pour l'astuce au niveau du code, je ne connaissais pas.

Bon j'ai essayé est malheureusement ma requête ne fonctionne pas, c'est-à-dire que lorsque je clique sur chèque encaissé, mes lignes enregistrement restent en attentes au lieu d'être décochées..

Donc j'ai effectué ma requête via le générateur afin de m'assurer qu'elle fonctionne. Et elle fonctionne lorsque je mets le chèque en tant que encaissé, mes mouvements en attentes disparaissent.
Cependant le code incorporé m'indique plusieurs messages d'erreur de compilation..

Le code est le suivant :

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
Public Sub UpdateX()
 
    'Déclaration des variables
    Dim Db As DAO.Database
    Dim qdf As QueryDef
 
    ' excecution du code
    Set Db = CurrentDb
 
    ' 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'
    Db.Execute ("Update Cheques _
        INNER JOIN (Mouvements) ON (Cheques.NumChq) = (Mouvements.NumChq)" &
        " SET ((Mouvements.EnAttente) =  No ")  &
        " WHERE (((Cheques.ChqEncaisse)=Yes)) ;
 
 
 
    MsgBox "Ajout effectué avec succès."
 
    dbs.Close
 
End Sub

Encore merci aux gens qui m'aide une nouvelle fois.
Ceci n'est pas facile quand on ne connait rien au VBA..

Bien cordialement,
Benjamin.

[tee_grandbois]

Bonsoir,

Code :

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

Db.Execute ("Update Cheques INNER JOIN (Mouvements) ON (Cheques.NumChq)=(Mouvements.NumChq) SET Mouvements.EnAttente=No WHERE Cheques.ChqEncaisse=Yes;")

[Jiben59]

Bonsoir,

Code :

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

Db.Execute ("Update Cheques INNER JOIN (Mouvements) ON (Cheques.NumChq)=(Mouvements.NumChq) SET Mouvements.EnAttente=No WHERE Cheques.ChqEncaisse=Yes;")

Merci à vous, comment fonctionne les parenthèses et guillemets dans un code VBA s'il vous plaît ?

Par contre, désormais j'ai un message d'erreur dans la case de propriété :
- Message d'erreur :


- Soulignement en jaune dans le code :


Et si j’enlève le X à Update pour qu'il soit identique à celui dans le module, j'ai un autre message d'erreur me disant :
" Erreur de compilation. Sub ou Function non définie."

Pourriez-vous me dire pourquoi cette erreur désormais et pour quelle raison s'il vous plaît.

Encore merci pour votre temps, et votre patience.

Bien cordialement,
Benjamin.

[marot_r]

Bonjour.

Je ne sais pas si c'est une erreur lors du post mais tu as oublié le p de public dans ublic Sub UpdateX().

A+

[Jiben59]

Bonjour.

Je ne sais pas si c'est une erreur lors du post mais tu as oublié le p de public dans ublic Sub UpdateX().

A+

Bonjour marot,

surement une erreur de frappe, car les codes semble être bon.

Code de la propriété (Erreur de compilation. Nom ambigu détecté : UpdateX) :

Code :

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

1
2
3
4
5
Public Sub ChqEncaisse_Click()
 
    Call UpdateX
 
End Sub

Code intégré dans le module :

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
Public Sub UpdateX()
 
    'Déclaration des variables
    Dim Db As DAO.Database
    Dim qdf As QueryDef
 
    ' excecution du code
    Set Db = CurrentDb
 
    ' 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'
    Db.Execute ("Update Cheques INNER JOIN (Mouvements) ON (Cheques.NumChq)=(Mouvements.NumChq)" _
                & " SET Mouvements.EnAttente=No " _
                & " WHERE Cheques.ChqEncaisse=Yes;")
 
 
    MsgBox "Ajout effectué avec succès."
 
    dbs.Close
 
End Sub

Encore merci de votre aide une nouvelle fois.

Bonne journée à vous.

Bien cordialement,
Benjamin.

[marot_r]

Bonjour.

Nom ambigu détecté : UpdateX

La réponse au problème est là.
Tu as définis 2 (ou plus) procédures qui s'appellent UpdateX et Access ne sait pas laquelle choisir.
Soit c'est une erreur et il faut en supprimer une.
Soit si l'une est utilisée dans le même module tu peux la définir private et non public.
Soit tu peux prefixer son nom par le nom du module (ex : mdlMonModule.UpdateX).

A+

[Jiben59]

Bonjour.



La réponse au problème est là.
Tu as définis 2 (ou plus) procédures qui s'appellent UpdateX et Access ne sait pas laquelle choisir.
Soit c'est une erreur et il faut en supprimer une.
Soit si l'une est utilisée dans le même module tu peux la définir private et non public.
Soit tu peux prefixer son nom par le nom du module (ex : mdlMonModule.UpdateX).

A+

Bonjour marot,

Effectivement j'avais déjà un Update utilisé pour autre chose donc j'ai suivi ton conseil, je l'ai renommée.
Le code fonctionne correctement après un essai.

Existe-t-il une solution pour qu'il me demande de valider ou d'annuler l'opération d'encaissement du chèque, pour sécuriser la manipulation en cas d'erreur svp ?

Merci pour vos aides sur mes différentes questions.

Bonne journée à vous.

Bien cordialement,
Benjamin.