Demande d'aide pour la création d'un code VBA entre 2 tables

Version imprimable

Voir 40 message(s) de cette discussion en une page

Bonjour.

Tu peux envoyer un message à l'utilisateur demandant une confirmation avant de faire l'oppération de mise à jour.

Ici un exemple :
Code:

1 2 3 4 5 if vbyes=msgbox("Voullez-vous vraiment mettre les données à jour ?", vbQuestion+vbYesNo+vbdefaultbutton2) then 'Ici appeler le code de mise à jour. else call msgbox ("Les données n'ont pas été modifiées.", vbInformation) end if
vbQuestion : affiche un pint d'intérogation à côté du message.
vbYesNo : affiche les boutons [Oui] et [Non].
vbdefaultbutton2 : s'assure que la réponse par défaut est "Non".
Il est prudent de toujours définir la réponse par défaut qui fait "le moins de dégâts" si l'utilisateur ne lit pas le message et appuis sur [Entrée] sans réfléchir.
vbInformation : affiche (i) à côté du message.

A+

Merci marot, pour l'aide au niveau du code pour le message box.

J'ai voulu insérer dans cette boîte de dialogue, des champs afin de voir, et de connaitre le numéro du chèque encaissé dans la question, pour effectuer une vérification supplémentaire.
De plus, j'aimerai également qui me donne l'ensemble des enregistrements correspondant à ce chèque qui ne vont plus être en attente.
Ceci dans le but de vérifier que le montant des enregistrements correspondent au montant du chèque, car une erreur de saisie peut toujours être présente.

Par contre, mon code est déjà mauvais à partir de la déclaration des champs de la variable.
J'ai essayé de faire Set Variable = (Table.Champs), et Set Variable = Db.OpenRecordset(Table.Champs). Mais aucun des deux fonctionne.

Ci-joint mon code paramétré :
Code:

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 Public Sub UpdateX2() 'Déclaration des variables Dim Db As DAO.Database Dim qdf As QueryDef Dim Chq As String Dim Dte As String Dim Lbl As String Dim Vlr As String ' excecution du code Set Db = CurrentDb Set IntA = Db.OpenRecordset(Cheques.NumChq) 'Déclare le numéro du chèque Set IntB = Db.OpenRecordset(Mouvements.DateMvt) 'Déclare la date du mouvement Set IntC = Db.OpenRecordset(Mouvements.LibelleMvt) 'Déclare le libellé du mouvement Set IntD = Db.OpenRecordset(Mouvements.MontantMvt) 'Déclare le montant du mouvement 'MsgBox Oui ou Non par défaut If vbYes = MsgBox("- le & IntB & correspondant & IntC & dun montant de & IntD & .", _ vbQuestion + vbYesNo + vbDefaultButton2, _ "Voulez-vous vraiment mettre les données à jour du chèque & IntA & ?") _ Then 'Appeler le code de mise à jour si la réponse est oui. '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;") Else 'Si la réponse est non Call MsgBox("Les données n'ont pas été modifiées.", vbInformation) End If Db.Close End Sub
Je vous remercie une nouvelle fois pour votre aide, et votre patience.
Je commence à comprendre petit à petit le VBA grâce à vos conseils et les tutoriels du site.

Bonne soirée à vous.

Bien cordialement,
Benjamin.

09/01/2018, 23h18
marot_r

Bonjour.

La syntaxe pour un recordset est la suivante :

Code:

dim r as dao.recordset:set r=db.Openrecorset("UneSource") 'Une source peut être une le nom d'une table, d'une requête ou du code SQL.

Un recorset contient tous les champs de sa source.

Pour accéder au champ d'un recordset on peut faire par exemple :

Code:

UneVariable=r![NomUnChamp]

ou

Code:

UneVariable=r.fields("NomUnChamp")

ou

Code:

UneVariable=r.fields(UneAutreVariable)

Le set est réservé aux objets (ex les recordset, les database).
Pour les variables de type ordinaire (ex : double, integer, long, single, date, boolean, string) il ne faut pas l'utiliser.

Pour composer des messages à partir de variables ou de morceaux de chaîne, il faut faire :

Code:

"Une texte " & UneVariable & " un autre texte " & UneAutreVariable

et pas

Code:

"Une texte & UneVariable & un autre texte & UneAutreVariable"

comme tu l'as fait. Les " sont les délimiteurs de texte et tout ce qui est entre eux est considéré comme une constante qui ne sera pas interprété par Access.

A+

1 pièce(s) jointe(s)

Bonjour Marot,

Désormais je comprends comment on doit utiliser les ", et ceci apporte beaucoup de choses dans le codage.
Mais pourquoi on utilise les " lorsque on exécute un SQL comme pour UPDATE (utilisé dans mon code) car indirectement c'est un code ?

J'ai essayé de mettre en place vos explications pour le recordset.

Code:

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
Public Sub UpdateX2()
 
    'Déclaration des variables
    Dim Db As DAO.Database
    Dim qdf As QueryDef
    Dim r As DAO.Recordset
 
    ' excecution du code
    Set Db = CurrentDb
    Set r = Db.Openrecorset("Mouvements") 'recorset contient tous les champs de sa source.
 
    IntA = r![NumChq] 'Renvoi le numéro du chèque
    IntB = r![DateMvt] 'Renvoi la date du mouvement
    IntC = r![LibelleMvt] 'Renvoi le libellé du mouvement
    IntD = r![MontantMvt] 'Renvoi le montant du mouvement
 
    'MsgBox Oui ou Non par défaut
    If vbYes = MsgBox("- le " & IntB & "correspondant " & IntC & "d'un montant de " & IntD & ". ", _
    vbQuestion + vbYesNo + vbDefaultButton2, _
    "Voulez-vous vraiment mettre les données à jour du chèque" & IntA & "?") _
    Then
    'Appeler le code de mise à jour si la réponse est oui.
    '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;")
     Else
 
    'Si la réponse est non
    Call MsgBox("Les données n'ont pas été modifiées.", vbInformation)
 
    End If
 
 
    Db.Close
 
 
End Sub

Mais j'ai une erreur de compilation sur mon open d'après Access :
Pièce jointe 341157

Je ne vois pas où j'ai fais d'erreur, car le nom de la table est correcte, et mise entre parenthèse.
Peut-être faudrait il mettre un "r.close" .

Encore pour votre aide.

Bonne journée à vous.

Bien cordialement,
Benjamin.

10/01/2018, 13h35
marot_r

Bonjour.

Il y a une faute de frappe dans mon code. C'est OpenRecordset et non OpenRecorset, désolé.

A+

Ok merci marot.

Par contre, dans le codage effectué afin d'afficher les informations relatives au chèque sélectionné, la boîte de dialogue affiche la première ligne de ma table chèque et la première ligne de ma table mouvements.
Comment peut-on faire afin d'avoir le numéro du chèque qui correspond à la ligne que l'on coche dans le titre, et en texte, toutes les lignes correspondant au chèque que l'on vient de cocher s'il vous plaît.

Mon code est le suivant :

Code:

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
Public Sub UpdateX2()
 
    'Déclaration des variables
    Dim Db As DAO.Database
    Dim r As DAO.Recordset
 
    ' excecution du code
    Set Db = CurrentDb
    Set r = Db.OpenRecordset("Mouvements") 'recorset contient tous les champs de sa source.
 
    IntA = r![NumChq] 'Renvoi le numéro du chèque
    IntB = r![DateMvt] 'Renvoi la date du mouvement
    IntC = r![LibelleMvt] 'Renvoi le libellé du mouvement
    IntD = r![MontantMvt] 'Renvoi le montant du mouvement
 
    'MsgBox Oui ou Non par défaut
    If vbYes = MsgBox("- le " & IntB & " correspondant " & IntC & " d'un montant de " & IntD & "€ . ", _
    vbQuestion + vbYesNo + vbDefaultButton2, _
    "Voulez-vous mettre les données à jour du chèque " & IntA & " ?") _
    Then
    'Appeler le code de mise à jour si la réponse est oui.
    '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;")
     Else
 
    'Si la réponse est non
    Call MsgBox("Les données n'ont pas été modifiées.", vbInformation)
 
    End If
    Db.Close
End Sub

Une nouvelle fois merci pour votre aide.

Bien cordialement,
Benjamin.

10/01/2018, 14h02
marot_r

Bonjour.

Peux-tu mettre un exemple manuel de ce que tu veux faire ?

De ce que je comprends tu as une tables des chèques et une table des factures payées par ces chèques.
Tu entres le montant du chèque et tu indiques les factures qu'il paye.
Tu veux ensuite vérifier si le total des factures payées correspond au montant du chèque.
Est-ce bien cela ?

Si tu pouvais poster ton modèle de données (tes tables et leurs structures, du moins les tables qui concernent ton problème courant), cela aiderai aussi.

A+

8 pièce(s) jointe(s)

Citation:

Envoyé par marot_r

Bonjour.

Peux-tu mettre un exemple manuel de ce que tu veux faire ?

De ce que je comprends tu as une tables des chèques et une table des factures payées par ces chèques.
Tu entres le montant du chèque et tu indiques les factures qu'il paye.
Tu veux ensuite vérifier si le total des factures payées correspond au montant du chèque.
Est-ce bien cela ?

Si tu pouvais poster ton modèle de données (tes tables et leurs structures, du moins les tables qui concernent ton problème courant), cela aiderai aussi.

A+

Je vais poser à plan mon idée afin de mieux partager mon problème.

Tout d'abord voici mes relations :
Pièce jointe 341252

La structure des deux tables concernées :
- Table"Cheques" (ici on enregistre les chèques émis (CHQXXX) et les chèques reçus (CHQEXTXXX) :
Pièce jointe 341257

- Table "Mouvements" (Ici on enregistre une opération) :
Pièce jointe 341262

Le code mis en place permet depuis le formulaire de mettre à jour les enregistrements correspondants aux chèques (Ci-joint une capture d'écran pour mieux comprendre) :
- Dans la table chèque nous retrouvons tous les chèques émis ou reçus :
Pièce jointe 341277

- Dans la table mouvements, si le paiement est effectué par chèque nous retrouvons chaque ligne d'enregistrement correspondant à ce chèque, et par défaut si le chèque n'est pas encore encaissé le mouvement est coché en attente afin qu'il n'impacte pas le solde bancaire :
Pièce jointe 341282

- On retrouve dans le formulaire chèque que les chèques non encaissé, car le but du formulaire est de pointer les chèques :
Pièce jointe 341287

- On retrouve dans le formulaire mouvement en attente essentiellement les chèques non encaissés ou les espèces non remis en banques :
Pièce jointe 341292

Donc le code suivant nous a permis de mettre à jour automatique les mouvements en attente depuis le formulaire chèques.
Par exemple lorsque je vais cocher la casse chèque encaissé pour le chèque CHQ0013202 les mouvements 4, 5, 6 et 7 ne seront plus en mouvement en attente car ils seront décochés de la case en attente.
Je pense que vous comprenez pourquoi une automatisation facilite cette opération auparavant manuelle.

Voici le code :
Code:

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 Public Sub UpdateX2() 'Déclaration des variables Dim Db As DAO.Database Dim r As DAO.Recordset ' excecution du code Set Db = CurrentDb Set r = Db.OpenRecordset("Mouvements") 'recorset contient tous les champs de sa source. IntA = r![NumChq] 'Renvoi le numéro du chèque IntB = r![DateMvt] 'Renvoi la date du mouvement IntC = r![LibelleMvt] 'Renvoi le libellé du mouvement IntD = r![MontantMvt] 'Renvoi le montant du mouvement 'MsgBox Oui ou Non par défaut If vbYes = MsgBox("- le " & IntB & " correspondant " & IntC & " d'un montant de " & IntD & "€ . ", _ vbQuestion + vbYesNo + vbDefaultButton2, _ "Voulez-vous mettre les données à jour du chèque " & IntA & " ?") _ Then 'Appeler le code de mise à jour si la réponse est oui. '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;") Else 'Si la réponse est non Call MsgBox("Les données n'ont pas été modifiées.", vbInformation) End If Db.Close End Sub
Après cette automatisation, je souhaiterais que via la boite de dialogue je puisse contrôler les mouvements qui vont être décochés des mouvements en attente, afin de vérifier que je me suis pas trompé lors de la saisie des enregistrements, par exemple ici l'inversement des opérations en mettant le numéro chèque CHQ0013203 au lieu de CHQ0013202, le montant du chèque ne correspondent à la somme des lignes d'enregistrement dans ce cas-là.

Donc je souhaite que la boite dialogue m'affiche le nom du chèque encaissé dans le titre, et en zone de message le détail des opérations dans la table Mouvements.

Actuellement j'ai ceci quand je coche la case chèque encaissé du CHQ0013202 :
Pièce jointe 341327

Et on s'aperçoit qui remet la première ligne de chaque table.

Voici ce que souhaiterait obtenir à chaque fois lorsque j'encaisse le chèque :

" Titre :
Voulez-vous mettre les données à jour du chèque CHQ0013202 ?

Zone de message :
- le 01/01/2018 correspondant Paiement 4 d'un montant de 50€.
- le 01/01/2018 correspondant Paiement 5 d'un montant de 50€.
- le 01/01/2018 correspondant Paiement 6 d'un montant de 50€.
- le 01/01/2018 correspondant Paiement 7 d'un montant de 50€.

Le montant du chèque cadre au total des mouvements. (ceci est optionnel car il faut que je travaille sur le code pour l'implanter dans le code, afin qu'il vérifie que le champ montant de la table chèque correspondant à l'ensemble des champs ci-dessous)

Bouton de dialogue :
Oui Non "

J'espère avoir été assez explicatif et assez clair dans la demande que je souhaite et la présentation de la base.
Je reste à ta disposition pour toutes question.

Encore merci pour ton aide.

Bien cordialement,
Benjamin.

10/01/2018, 18h05
marot_r
Bonjour.

Utiliser un msgbox dans ce cas n'est pas la bonne solution.
Le nombre de lignes affichables est limité et s'il sature Access n'affiche que le début du message sans même signaler qu'il y a un problème.
La solution qui me semble la plus simple est de faire :
1. une requête qui présentera liste des chèques
2. un sous-formulaire pour l'afficher.
3. un formulaire qui a 2 boutons Oui et Non et qui contient le sous-formulaire.
En résumé (et en français) cela donne :
1. L'utilisateur signale qu'il a fini sa saisie.
2. Le système affiche, via un formulaire, la liste des chèques.
3. L'utilisateur révise la liste des chèques affichés par le sous-formulaire.
4. L'utilisateur confirme ou infirme la saisie.
5. Si L'utilisateur confirme, le système mets à jour les données.
Est-ce que cela te conviens ?

A+
10/01/2018, 18h23
Jiben59
Citation:
Envoyé par marot_r

Bonjour.

Utiliser un msgbox dans ce cas n'est pas la bonne solution.
Le nombre de lignes affichables est limité et s'il sature Access n'affiche que le début du message sans même signaler qu'il y a un problème.
La solution qui me semble la plus simple est de faire :

une requête qui présentera liste des chèques
un sous-formulaire pour l'afficher.
un formulaire qui a 2 boutons Oui et Non et qui contient le sous-formulaire.

En résumé (et en français) cela donne :

L'utilisateur signale qu'il a fini sa saisie.
Le système affiche, via un formulaire, la liste des chèques.
L'utilisateur révise la liste des chèques affichés par le sous-formulaire.
L'utilisateur confirme ou infirme la saisie.
Si L'utilisateur confirme, le système mets à jour les données.

Est-ce que cela te conviens ?

A+
Ceci me semble identique à la proposition mais sous feuille de données.
Le temps que l'automatisation me permet d'effectuer une vérification avant d'accepter ceci me semble pas mal.
Donc je veux bien essayer cette proposition plus qu'intéressantes.

Encore Merci de ton aide marot.

Bien cordialement,
Benjamin.
10/01/2018, 21h05
marot_r
Ok,
1. Il faut créer ta requête qui va afficher les chèques.
  Je pense que cela doit être :
  Code:
  
  1 2 3 select Cheques.* form cheques INNER JOIN (Mouvements) ON (Cheques.NumChq)=(Mouvements.NumChq) WHERE Cheques.ChqEncaisse=True;
  Valide le avec les résultats et ajuste au besoin.
2. Il faut créer un formulaire basé sur cette requête (sfrmVerifCheque).
3. Il faut créer un formulaire vierge.
  Y ajouter les boutons [Oui] et [Non] ainsi qu'un texte explicatif (une étiquette) qui dit quelque chose du genre "Montant correct ?".
  Y ajouter le sous-formulaire sfrmVerifCheque.
4. Dans la procédure événementielle associée à l'événement sur clic du bouton oui, mettre le code de MAJ.
  et ajouter la ligne :
  
  Code:
  
  docmd.close acForm, me.name 'Ferme le formulaire courant
5. Dans la procédure événementielle associée à l'événement sur clic du bouton Non, mettre le code suivant.
  
  Code:
  
  docmd.close acForm, me.name 'Ferme le formulaire courant
A+
10/01/2018, 22h11
Jiben59
Citation:
Envoyé par marot_r

Ok,

Il faut créer ta requête qui va afficher les chèques.
Je pense que cela doit être :

Code:

1 2 3 select Cheques.* form cheques INNER JOIN (Mouvements) ON (Cheques.NumChq)=(Mouvements.NumChq) WHERE Cheques.ChqEncaisse=True;

Valide le avec les résultats et ajuste au besoin.
Il faut créer un formulaire basé sur cette requête (sfrmVerifCheque).
Il faut créer un formulaire vierge.
Y ajouter les boutons [Oui] et [Non] ainsi qu'un texte explicatif (une étiquette) qui dit quelque chose du genre "Montant correct ?".
Y ajouter le sous-formulaire sfrmVerifCheque.
Dans la procédure événementielle associée à l'événement sur clic du bouton oui, mettre le code de MAJ.
et ajouter la ligne :

Code:

docmd.close acForm, me.name 'Ferme le formulaire courant

Dans la procédure événementielle associée à l'événement sur clic du bouton Non, mettre le code suivant.

Code:

docmd.close acForm, me.name 'Ferme le formulaire courant

A+
Merci marot, mais je n'aime pas trop le rendu que ceci peut donner.

Du coup, j'ai pensais à intégrer seulement le texte suivant dans ma boite de dialogue :
"" Titre :
Voulez-vous mettre les données à jour du chèque XXX ?

Zone de message :
Le montant du chèque est identique au total des mouvements.

Bouton de dialogue :
Oui Non "

Il faudrait que l'on arrive à trouver un code permettant de vérifier que le montant du CHQXX1 qui correspond au clic, soit égal au mouvement de la table mouvements corresponds à ce chèque.

Existe-il un code qui reprend le montant d'un champs sur la ligne que l'on a effectué un click ?

Encore merci pour l'aide.

Bien cordialement,
Benjamin.
11/01/2018, 13h31
marot_r
Bonjour.

Il existe divers moyens de faire un total et de vérifier si il est égale à un autre chiffre.
Je ne vois pas l'intérêt de demander à l'utilisateur de vérifier si le total est exact, la machine peut le faire pour lui et signaler si il n'est pas exact.
Quelle est la valeur ajoutée d'une confirmation manuelle si tu n'affiches pas le détail de sa composition ?

À vrai, personnellement j'afficherai le total des chèques dans l'écran de saisie au moment de la sélection.
L'utilisateur verrai immédiatement si cela correspond ou pas.
Et en utilisant la mise en forme conditionnelle, le total pourrait passer au vert en cas d'égalité et être affiché en rouge sinon.

Pour info, pour les totaux on peut utiliser :
1. Une requête de regroupement pour les totaux et une requête de sélection pour la validation de l'égalité.
2. ou un champ calculé utilisant DCount (somDom en français) qui va faire le total.
3. ou du code VBA mais ça c'est vraiment en dernier recours car le VBA est généralement moins performant que les requêtes ou les fonctions intégrées.
A+
11/01/2018, 14h36
Jiben59
Bonjour marot,

Citation:

Envoyé par marot_r

Bonjour.

Il existe divers moyens de faire un total et de vérifier si il est égale à un autre chiffre.
Je ne vois pas l'intérêt de demander à l'utilisateur de vérifier si le total est exact, la machine peut le faire pour lui et signaler si il n'est pas exact.
Quelle est la valeur ajoutée d'une confirmation manuelle si tu n'affiches pas le détail de sa composition ?

Je suis d'accord avec toi marot, je ne souhaite plus effectuer cette opération manuellement.
Mais je souhaite que la base de données, l'effectue tout seul, c'est pour çà que je souhaite qu'il vérifie les deux montants.
Citation:
Envoyé par marot_r

À vrai, personnellement j'afficherai le total des chèques dans l'écran de saisie au moment de la sélection.
L'utilisateur verrai immédiatement si cela correspond ou pas.
Et en utilisant la mise en forme conditionnelle, le total pourrait passer au vert en cas d'égalité et être affiché en rouge sinon.

Pour info, pour les totaux on peut utiliser :

Une requête de regroupement pour les totaux et une requête de sélection pour la validation de l'égalité.
ou un champ calculé utilisant DCount (somDom en français) qui va faire le total.
ou du code VBA mais ça c'est vraiment en dernier recours car le VBA est généralement moins performant que les requêtes ou les fonctions intégrées.

A+
Par contre est-il possible de faire un champ calculé entre deux tables ?

Moi je voulais passer par un code VBA pour mettre une condition, qui est la suivante :
" Si le chéque commence par CHQEXT* alors Montant du chèque click = Total des mouvements correspondant au chèque click
Si = 0 alors Msgbox = Le montant du chèque est identique au total des mouvements.
Si >O< alors Msgbox = Le montant du chèque ne correspond pas au total des mouvements
Si le chéque commence par CHQ* alors Montant du chèque click = -(Total des mouvements correspondant au chèque click)
Si = 0 alors Msgbox = Le montant du chèque est identique au total des mouvements.
Si >O< alors Msgbox = Le montant du chèque ne correspond pas au total des mouvements"

Mais si en passant par ton explication il est possible d'obtenir ceci plus ou moins c'est-à-dire savoir si le montant du chèque correspond ou non au total des mouvements.

Encore merci pour les explications.

Bien cordialement,
Benjamin.
11/01/2018, 15h13
marot_r
Bonjour.
1. Vas- faire la validation d'un chèque puis paser à la saisie d'un autre chèque ?
2. Ou vas-tu saisir tous les chèques qui t'intéressent puis faire leur validations "en groupe" ?
A+
11/01/2018, 15h39
Jiben59
Citation:
Envoyé par marot_r

Bonjour.

Vas- faire la validation d'un chèque puis paser à la saisie d'un autre chèque ?
Ou vas-tu saisir tous les chèques qui t'intéressent puis faire leur validations "en groupe" ?

A+
Disons les deux cas car je fais par remise de chèques.
Donc quand ce sont des chèques extérieurs c'est-à-dire reçus, j'encaisse tous les chèques en groupe afin de correspondre à la remise de chèque effectué sur le compte bancaire.
Mais lorsque c'est un chèque émis, j'encaisse qu'un chèque à la fois car sur le compte bancaire on voit l'encaissement des chèques émis ligne par ligne.

Je reste à ta disposition si tu veux plus d'explications ou d'éclaircissement sur le sujet.
Merci pour ta coopération sur ce problème.

Bien cordialement,
Benjamin.
11/01/2018, 19h46
marot_r

Bonjour.

Citation:

Mais lorsque c'est un chèque émis, j'encaisse qu'un chèque à la fois car sur le compte bancaire on voit l'encaissement des chèques émis ligne par ligne.

Est-ce qu'on peut considéré que pour les chèques émis ce sont des lots de 1 chèque ?
Cela éviterai d'avoir 2 mécanismes séparés.
Si on est capable de gérer X chèques d'un coup on pourrait le faire de même si x=1.
On gérerai tous les chèques "sélectionnés" et l'utilisateur s'astreindrai à n'en sélectionner qu'un seul.

A+
11/01/2018, 20h26
Jiben59

Citation:

Envoyé par marot_r

Bonjour.

Est-ce qu'on peut considéré que pour les chèques émis ce sont des lots de 1 chèque ?
Cela éviterai d'avoir 2 mécanismes séparés.
Si on est capable de gérer X chèques d'un coup on pourrait le faire de même si x=1.
On gérerai tous les chèques "sélectionnés" et l'utilisateur s'astreindrai à n'en sélectionner qu'un seul.

A+

Marot, à chaque fois un chèque de la table peut correspondre à une ou plusieurs lignes d'enregistrements de la table mouvements.

J'ai l'impression que l'on se comprends pas sur le code que je souhaiterait mettre en oeuvre.
Je cherche à afficher dans la boîte de dialogue la somme du montant des lignes d'enregistrements de la table mouvements en fonction du chèque encaissé via le clique sur la case chèque encaissé.

Bien cordialement,
Benjamin.

Bonjour.

Citation:

J'ai l'impression que l'on se comprends pas sur le code que je souhaiterait mettre en oeuvre.
Je cherche à afficher dans la boîte de dialogue la somme du montant des lignes d'enregistrements de la table mouvements en fonction du chèque encaissé via le clique sur la case chèque encaissé.

Non en effet je semble manquer quelque chose.

Je vais répondre stricto-sensus à ta demande en espérant que ce sera bon.
Ton code devrait ressembler à cela (à adapter à ta réalité).
Code:

1 2 3 4 5 6 7 8 Dim MontantChequeEncaisse as double: MontantChequeEncaisse=DFirst("MontantChq", "Cheques", "NumChq=""" & TonNumChqEncaisse & """") Dim MontantMouvement as double: MontantMouvement=DSum("MontantMvt", "Mouvements", "NumChq=""" & TonNumChqEncaisse & """") if montantMouvement<>MontantChequeEncaisse then call mgsbox("Le montant du chèque est différent du montant des mouvements.", vbExclamation) else call mgsbox("Le montant du chèque est égal au montant des mouvements.", vbInformation) end if
Ce n'est sans doute pas la solution optinmale mais c'est une bonne solution.

Note que tu pourrais avoir des petits problèmes avec les arrondis. C'est intrinsect à la façon dont les nombres sont représentés dans les ordinateurs.
Si c'est le cas tu pourrais remplacer montantMouvement<>MontantChequeEncaisse par abs(montantMouvement-MontantChequeEncaisse)<0.001.

A+

1 pièce(s) jointe(s)

Marot merci pour la formule, mais je ne peux pas avancer que comment définir la variable

Code:

& TonNumChqEncaisse &

En sachant que le numéro de chèque correspond au numéro du chèque que l'on clique.

Repassons seulement par la boîte de dialogue depuis le début.

Le code initial avec la boîte de dialogue qui s'affiche pour confirmer la validation de l'encaissement du paiement :
Code:

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 Private Sub ChqEncaisse_Click() Call UpdateX 'Correspond à la mise à jour des mouvements en attente une fois le chèque encaissé End Sub Public Sub UpdateX() 'Déclaration des variables Dim Db As dao.Database Dim r As dao.Recordset ' excecution du code Set Db = CurrentDb Set r = Db.OpenRecordset("Cheques") 'Une source peut être une le nom d'une table, d'une requête ou du code SQL. ' Attribution de la varibale Num = r![NumChq] 'Renvoi le numéro du chèque If vbYes = MsgBox("Voullez-vous vraiment mettre les données à jour du" & Num & "?", vbQuestion + vbYesNo + vbDefaultButton2) _ Then 'Ici appeler le code de mise à jour. ' 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;") Db.Close Else Call MsgBox("Les données n'ont pas été modifiées.", vbInformation) End If End Sub
La boîte de dialogue doit me demander si je veux bien mettre à jour le numéro de chèque que l'on va cocher encaissé à l'instant.

Voici ce que donne la boîte de dialogue :
Pièce jointe 341820

On s'aperçoit que le code VBA ne renvoi pas le bon numéro de chèque dans la boite de dialogue.
Il me renvoie le numéro de chèque correspondant à la première ligne de ma table chèque.

Ce que je cherche actuellement, c'est d'arriver de renvoyer le numéro de chèque correspondant à la ligne cochée "ChqEncaisse".

Pourriez-vous me dire comment effectuer ceci s'il vous plaît.
Pour ma part, j'avais pensé à écrire une requête SQL dans le "Private Sub ChqEncaisse_Click()" qui affiche seulement le numéro de chèque.
Et ensuite définir ce SQL comme une variable dans le "Public Sub UpdateX()".

Bien cordialement,
Benjamin.

Voir 40 message(s) de cette discussion en une page