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

En fait on va faire la même chose mais en VBA parceque sinon c'est un peu lourd.
De plus il faut se servir des variables globales en dernier recours quand on n'a pas d'autre solution.
Le défaut des variables globales c'est que n'importe où dans le code on peut la manipuler et changer sa valeur ce qui peut avoir des conséquences assez désagréables.

Ici le code modifié.

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
dim NumChqEncaisse as string: NumChqEncaisse=dfirst("NumCheque", "Cheque", "[ChqEncaisse]=True")) & "" 'le & "" évite d'avoir à gérer les Nuls si il n'y a pas de chêque encaissé.
 
Dim MontantChequeEncaisse as variant: MontantChequeEncaisse=DFirst("MontantChq", "Cheques", "NumChq=""" & NumChqEncaisse & """")
 
'S'assure que le montant est un réel double
if isnull(MontantChequeEncaisse ) then
   MontantChequeEncaisse =cdbl(0)
 else
   MontantChequeEncaisse =cdbl(MontantChequeEncaisse)
end if
 
Dim MontantMouvement as variant: MontantMouvement=DSum("MontantMvt", "Mouvements", "NumChq=""" & NumChqEncaisse & """")
 
'S'assure que le montant est un réel double
if isnull(MontantMouvement ) then
   MontantChequeEncaisse =cdbl(0)
 else
   MontantMouvement =cdbl(MontantMouvement)
end if
 
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

A+

1 pièce(s) jointe(s)

Bonjour marot,

merci pour ton code.

J'ai essayé de travailler le code pour l'intégrer mais il bloque sur une erreur de compilation pourtant chaque balise est correctement fermée.
Est-ce c'est parce qu'il manque un else avant le nouveau if ?

Voici une petite capture d'écran de l'erreur :
Pièce jointe 341900

Et ci-dessous 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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
Public Sub UpdateX()
 
    'Déclaration des variables
    Dim Db As dao.Database
    Dim r As dao.Recordset
 
    Dim NumChqEncaisse As String
    Dim MontantChequeEncaisse As Variant
 
    Dim MontantMouvement As Variant
 
    ' 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
 
    NumChqEncaisse = DFirst("NumCheque", "Cheque", "[ChqEncaisse]=True") & "" 'le & "" évite d'avoir à gérer les Nuls si il n'y a pas de chêque encaissé.
    MontantChequeEncaisse = DFirst("MontantChq", "Cheques", "NumChq=""" & NumChqEncaisse & """")
 
    MontantMouvement = DSum("MontantMvt", "Mouvements", "NumChq=""" & NumChqEncaisse & """")
 
 
 'S'assure que le montant est un réel double
    If IsNull(MontantChequeEncaisse) Then
     MontantChequeEncaisse = CDbl(0)
 
    Else
     MontantChequeEncaisse = CDbl(MontantChequeEncaisse)
    End If
 
 
'S'assure que le montant est un réel double
    If IsNull(MontantMouvement) Then
     MontantChequeEncaisse = CDbl(0)
 
   Else
     MontantMouvement = CDbl(MontantMouvement)
    End If
 
    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;")
 
    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
 
    Db.Close
 
     End If
 
End Sub

J'ai essayé de faire quelque chose de propre.

Encore merci pour l'aide.

Bien cordialement,
Benjamin.

12/01/2018, 15h23
marot_r

Désolé encore une faute de frappe.

c'est MsgBox et non mgsBox.

A+

2 pièce(s) jointe(s)

Citation:

Envoyé par marot_r

Désolé encore une faute de frappe.

c'est MsgBox et non mgsBox.

A+

Merci marot, car ceci n'est pas sauté à mes yeux pourtant.

Bon le code a été corrigé sur les champs de table incorrecte.

Donc voici le code désormais :
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 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 Public Sub UpdateX() 'Déclaration des variables Dim Db As dao.Database Dim NumChqEncaisse As String Dim MontantChequeEncaisse As Variant Dim MontantMouvement As Variant ' excecution du code Set Db = CurrentDb ' Attribution de la varibale NumChqEncaisse = DFirst("NumChq", "Cheques", "[ChqEncaisse]=True") & "" 'le & "" évite d'avoir à gérer les Nuls si il n'y a pas de chêque encaissé. MontantChequeEncaisse = DFirst("MontantChq", "Cheques", "NumChq=""" & NumChqEncaisse & """") MontantMouvement = Abs(DSum("MontantMvt", "Mouvements", "NumChq=""" & NumChqEncaisse & """")) 'S'assure que le montant est un réel double If IsNull(MontantChequeEncaisse) Then MontantChequeEncaisse = CDbl(0) Else MontantChequeEncaisse = CDbl(MontantChequeEncaisse) End If 'S'assure que le montant est un réel double If IsNull(MontantMouvement) Then MontantChequeEncaisse = CDbl(0) Else MontantMouvement = CDbl(MontantMouvement) End If If vbYes = MsgBox("Voullez-vous vraiment mettre les données à jour du " & NumChqEncaisse & " ?", 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;") If MontantMouvement <> MontantChequeEncaisse Then Call MsgBox("Le montant du chèque est différent du montant des mouvements.", vbExclamation) Else Call MsgBox("Le montant du chèque est égal au montant des mouvements.", vbInformation) End If Db.Close End If End Sub
J'ai un premier souci sur le numéro de chèque qui apparaît dans la zone de texte de la boîte de dialogue lors de la demande de validation :
Pièce jointe 342078

Citation:

J'ai un deuxième souci au niveau sur le montant des mouvement correspondant au numéro du chèque cliqué :
Pièce jointe 342083

Car la ligne d'enregistrement est de - 7€.

Ceci est normal car chaque chèque émis c'est à dire CHQ00.. correspondants à un total de lignes de mouvements négatifs car c'est une sortie d'argent. Alors qu'un chèque son montant ne peut qu'être positif.
A l'inverse pour les CHQEXT.. ceci correspond à un total de lignes positives car c'est une rentrée d'argent.

Je pense que le plus simple, c'est qu'une fois le montant total des mouvements calculés, il faut mettre cette valeur en absolu.

J'ai su intégrer le code ABS dans la formule afin de régler le problème.

Je crois que l'on touche presque au but, encore merci pour ton aide marot.

Bien cordialement,
Benjamin.

12/01/2018, 22h23
marot_r

Bonjour.

Citation:

J'ai un premier souci sur le numéro de chèque qui apparaît dans la zone de texte de la boîte de dialogue lors de la demande de validation :

Vérifie bien qu'il n'y a qu'un est un seul chèque encaissé coché.
Et vérifie si c'est ChqEncaisse le champ de la table cheque qu'il faut tester,

A+

Bonjour marot,

Alors j'ai un problème, le code ne fonctionne pas.
J'ai effectué plusieurs essaie en mettant un chèque avec un montant de 100 € et une ligne de mouvement avec un montant de 200 €, il m'indique que le montant du chèque est égal au montant des mouvements.

Je me demande si je n'ai pas effectué des erreurs dans le placement des codes, car le code commence à être rempli.

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
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Public Sub UpdateX()
 
    'Déclaration des variables
    Dim Db As dao.Database
    Dim NumChqEncaisse As String
    Dim MontantChequeEncaisse As Variant
    Dim MontantMouvement As Variant
 
    ' excecution du code
    Set Db = CurrentDb
 
    ' Attribution de la varibale
 
    NumChqEncaisse = DFirst("NumChq", "Cheques", "[ChqEncaisse]=True") & "" 'le & "" évite d'avoir à gérer les Nuls si il n'y a pas de chêque encaissé.
    MontantChequeEncaisse = DFirst("MontantChq", "Cheques", "NumChq=""" & NumChqEncaisse & """")
    MontantMouvement = Abs(DSum("MontantMvt", "Mouvements", "NumChq=""" & NumChqEncaisse & """"))
 
 
 'S'assure que le montant est un réel double
    If IsNull(MontantChequeEncaisse) Then
     MontantChequeEncaisse = CDbl(0)
 
    Else
     MontantChequeEncaisse = CDbl(MontantChequeEncaisse)
    End If
 
 
'S'assure que le montant est un réel double
    If IsNull(MontantMouvement) Then
     MontantChequeEncaisse = CDbl(0)
 
   Else
     MontantMouvement = CDbl(MontantMouvement)
    End If
 
    If vbYes = MsgBox("Voullez-vous vraiment mettre les données à jour du " & NumChqEncaisse & " ?", vbQuestion + vbYesNo + vbDefaultButton2) _
    Then
    If MontantMouvement <> MontantChequeEncaisse Then
      Call MsgBox("Le montant du chèque est différent du montant des mouvements." & Chr(10) & _
       "Les données n'ont pas été modifiées.", vbExclamation)
 
    Else
      Call MsgBox("Le montant du chèque est égal au montant des mouvements.", vbInformation)
      '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;")
 
    End If
 
  Db.Close
 
     End If
 
End Sub

Pourriez-vous m'expliquer à quoi correspond le code que tu as rajouté ci-dessous stp, car je ne comprends pas ce que l'on appelle par un réel double.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
 'S'assure que le montant est un réel double
    If IsNull(MontantChequeEncaisse) Then
     MontantChequeEncaisse = CDbl(0)
 
    Else
     MontantChequeEncaisse = CDbl(MontantChequeEncaisse)
    End If
 
 
'S'assure que le montant est un réel double
    If IsNull(MontantMouvement) Then
     MontantChequeEncaisse = CDbl(0)
 
   Else
     MontantMouvement = CDbl(MontantMouvement)
    End If

Encore merci pour ton aide.

Bien cordialement,
Benjamin.

15/01/2018, 01h03
marot_r

Bonjour.

Un reel double est un type de nombre décimal qui peut accepter le plus grand interval de valeurs.

Quand on utilise DFirst(), si Access ne trouve pas l'info, il retourne Null.
Null est une valeur spéciale et en principe n'importe quoi et Null te donne Null.
Donc si on veut l'utiliser dans un calcul on va avoir une erreur.
Pour gérer les nulls on est obligé d'utiliser le type Variant.
Une variable de type Variant peut accepter n'importe quelle valeur (texte, nombre, nuls, etc.) mais c'est Access qui décide.
J'ai mis du code pour m'assurer que j'aurai bien le type que JE veux quoi qu'en pense Access.

A+

Merci pour les explications, je vais garder cette documentation dans mes favoris elle va être utile par la suite.

Par contre, afin d'insérer le code dans la base initiale, j'ai effectué divers tests afin de vérifier le code ci-dessous :

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
Public Sub UpdateX()
 
    'Déclaration des variables
    Dim Db As dao.Database
    Dim NumChqEncaisse As String
    Dim MontantChequeEncaisse As Variant
    Dim MontantMouvement As Variant
 
    ' excecution du code
    Set Db = CurrentDb
 
    ' Attribution de la varibale
 
    NumChqEncaisse = DFirst("NumChq", "Cheques", "[ChqEncaisse]=True") & "" 'le & "" évite d'avoir à gérer les Nuls si il n'y a pas de chêque encaissé.
    MontantChequeEncaisse = DFirst("MontantChq", "Cheques", "NumChq=""" & NumChqEncaisse & """")
    MontantMouvement = Abs(DSum("MontantMvt", "Mouvements", "NumChq=""" & NumChqEncaisse & """"))
 
 
 'S'assure que le montant est un réel double
    If IsNull(MontantChequeEncaisse) Then
     MontantChequeEncaisse = CDbl(0)
 
    Else
     MontantChequeEncaisse = CDbl(MontantChequeEncaisse)
    End If
 
 
'S'assure que le montant est un réel double
    If IsNull(MontantMouvement) Then
     MontantChequeEncaisse = CDbl(0)
 
   Else
     MontantMouvement = CDbl(MontantMouvement)
    End If
 
    If vbYes = MsgBox("Voullez-vous vraiment mettre les données à jour du " & NumChqEncaisse & " ?", vbQuestion + vbYesNo + vbDefaultButton2) _
    Then
    If MontantMouvement <> MontantChequeEncaisse Then
      Call MsgBox("Le montant du chèque est différent du montant des mouvements." & Chr(10) & _
       "Les données n'ont pas été modifiées.", vbExclamation)
 
    Else
      Call MsgBox("Le montant du chèque est égal au montant des mouvements.", vbInformation)
      '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;")
 
    End If
 
  Db.Close
 
     End If
 
End Sub

Alors :
- le code depuis l'installation des boîtes de dialogue ne fonctionne plus, c'est-à-dire que lorsque j'encaisse le chèque, il ne décoche pas la case de mouvements en attente.
- Quels que soient les montants des mouvements que j'indique c'est-à-dire identique ou non identique au montant du chèque, il m'indique que le montant du chèque est identique au total des mouvements.

Je me demande si je n'ai pas foutu le "bordel" dans la mise en place des codes.

Encore merci une nouvelle fois pour votre aide.

Bien cordialement,
Benjamin.

Bonjour.

Il y a une erreur ici voici le code correct :
Code:

1 2 3 4 5 6 If IsNull(MontantMouvement) Then MontantMouvement = CDbl(0) Else MontantMouvement = CDbl(MontantMouvement) End If
Met un point d'arrêt sur la ligne :

Code:

If IsNull(MontantChequeEncaisse) Then

Pour faire cela, clique dans la marge à gauche en face de la ligne.
Cela va mettre un gros point marron.
Quand Access va arriver à cette place, il va arréter l'éxécution et va te permettre d'étudier le code.
Avec la souris pointe sur MontantChequeEncaisse et sur MontantMouvement, Access va t'afficher les valeurs qu'elles contiennent.
Cela te permettra de voir si elles sont bien égales.
Pour reprendre l'exécution, appuyer sur la touche [F5].
Pour avancer à l'instruction suivante, appuyer sur la touche [f8]. Cela te permet de voir comment Access traite ton code.

Aussi quand tu as des if dans des if, indente le code, cela le rend plus lisible et permet de mieux voir la logique de traitement.

Ex de code indenté.
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 if uneCondtion then if uneAutreCondition then 'Ici le cas vrai else if uneAutreAutreCondition 'Ici le cas vrai end if end if else 'Ici le cas else end if
A+

Bonjour marot,

Alors tout d'abord j'ai intenté mon code pour une meilleure visisbilité :

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
Public Sub UpdateX()
 
    'Déclaration des variables
    Dim Db As dao.Database
    Dim NumChqEncaisse As String
    Dim MontantChequeEncaisse As Variant
    Dim MontantMouvement As Variant
 
    ' excecution du code
    Set Db = CurrentDb
 
    ' Attribution de la varibale
    NumChqEncaisse = DFirst("NumChq", "Cheques", "[ChqEncaisse]=True") & "" 'le & "" évite d'avoir à gérer les Nuls si il n'y a pas de chêque encaissé.
    MontantChequeEncaisse = DFirst("MontantChq", "Cheques", "NumChq=""" & NumChqEncaisse & """")
    MontantMouvement = Abs(DSum("MontantMvt", "Mouvements", "NumChq=""" & NumChqEncaisse & """"))
 
 
    'S'assure que le montant est un réel double
    If IsNull(MontantChequeEncaisse) _
        Then
           MontantChequeEncaisse = CDbl(0)
 
        Else
           MontantChequeEncaisse = CDbl(MontantChequeEncaisse)
    End If
 
 
   'S'assure que le montant est un réel double
    If IsNull(MontantMouvement) _
        Then
           MontantMouvement = CDbl(0)
 
        Else
           MontantMouvement = CDbl(MontantMouvement)
    End If
 
 
    If vbYes = MsgBox("Voullez-vous vraiment mettre les données à jour du " & NumChqEncaisse & " ?", vbQuestion + vbYesNo + vbDefaultButton2) _
         Then
             If MontantMouvement <> MontantChequeEncaisse _
                    Then
                       Call MsgBox("Le montant du chèque est différent du montant des mouvements." & Chr(10) & _
                       "Les données n'ont pas été modifiées.", vbExclamation)
 
                    Else
                       Call MsgBox("Le montant du chèque est égal au montant des mouvements.", vbInformation)
                       'Ici appeler le code de mise à jour.
                       '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;")
             End If
                       Db.Close
     End If
 
End Sub

Par contre su ce code, je n'arrive pas à voir ce qu'affiche comme valeur sur le code en passant ma souris.
Alors que dans les autres codes ou modules de ma basse, j'y arrive.
Donc impossible de savoir si ce que l'on a mis est correcte ou non.

Ci-joint ma base de donnée d'essaie :
Impossible de mettre ma base de donnée d'essaie, désolé.

Je te remercie pour ton aide.

Bien cordialement,
Benjamin.

17/01/2018, 18h23
Jiben59

Bonjour marot,

pour essayer de comprendre le problème du code, tu trouveras ci-joint ma base de données d'essai.

Il n'y a que le dernier chèque du formulaire qui remplit les conditions de la mise à jour, les autres n'ont pas le même montant.

lien de la base de donnée :
https://we.tl/ko9lUjS7qe

En espérant que l'on arrive à trouver le souci dans le code.

Bien cordialement,
Benjamin.
17/01/2018, 20h44
marot_r
Bizare j'ai la même version d'Access mais je n'arrive pas à accéder au code.

Il me dit que la BD est corrompues.

Pour ce qui est de voir les valeurs, cela arrive parfois sans que j'ai pu comprendre la cause.
Une méthode détournée d'y arriver est de passer par la fenêtre d'exécution immédiate.
1. Quand tu es en mode débuggage (après un arrêt sur un point d'arrêt)
2. Tu tapes sur les touches [ctrl][g].
3. Ensuite dans la fenêtre tu tapes quelque chose comme :
4. ? NomTaValiable et tu tapes sur la touche [entrée].
Access va afficher le contenu de ta variable.

A+
17/01/2018, 22h08
tee_grandbois

1 pièce(s) jointe(s)

Bonsoir,
J'ai ouvert la base et j'ai compilé le code : il y a des erreurs sur des contrôles appartenant au sous-formulaire et qui sont référencés avec Me. dans le formulaire

Pièce jointe 343429

PS : un Undo n'a aucun effet sur un évènement AfterUpdate
17/01/2018, 22h37
Jiben59

Citation:

Envoyé par tee_grandbois

Bonsoir,
J'ai ouvert la base et j'ai compilé le code : il y a des erreurs sur des contrôles appartenant au sous-formulaire et qui sont référencés avec Me. dans le formulaire

PS : un Undo n'a aucun effet sur un évènement AfterUpdate

Donc je peux enlever les Undo sans risque pour le code ?

Ceci est du depuis que j'ai changer certains critères de ma table principale, comment y faire pour remédier à ce problème du coup ?

Merci Tee_grandbois.

Marot,

par contre toujours rien, même en suivant tes instructions.
C'est vraiment dommage, car on a presque arrivé à faire ce que je voulais.

Merci pour vos aides en tout cas.

Bien cordialement,
Benjamin.

1 pièce(s) jointe(s)

Citation:

Ceci est du depuis que j'ai changer certains critères de ma table principale, comment y faire pour remédier à ce problème du coup ?

voici le code modifié (que je n'ai pas testé, n'ayant pas complètement suivi le fil de la discussion, je ne sais pas comment utiliser la base) :

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
Private Sub Form_AfterUpdate()
If Not IsNull(Me.Mouvements_Sous_formulaire1.Form.DateMvt) And IsNull(Me.Mouvements_Sous_formulaire1.Form.LibelleMvt) Then
    MsgBox "Vous avez oublié de saisir un libellé !"
    Me.Mouvements_Sous_formulaire1.Form.LibelleMvt.SetFocus
End If
If Not IsNull(Me.Mouvements_Sous_formulaire1.Form.DateMvt) And IsNull(Me.Mouvements_Sous_formulaire1.Form.MontantMvt) Then
    MsgBox "Vous avez oublié de saisir un montant !"
    Me.Mouvements_Sous_formulaire1.Form.MontantMvt.SetFocus
End If
If Not IsNull(Me.Mouvements_Sous_formulaire1.Form.DateMvt) And IsNull(Me.Mouvements_Sous_formulaire1.Form.Transaction) Then
    MsgBox "Vous avez oublié de saisir un moyen de paiement !"
    Me.Mouvements_Sous_formulaire1.Form.Transaction.SetFocus
End If
If Not IsNull(Me.Mouvements_Sous_formulaire1.Form.DateMvt) And IsNull(Me.Mouvements_Sous_formulaire1.Form.CodeJrnl) Then
    MsgBox "Vous avez oublié de saisir un code de journal!"
    Me.Mouvements_Sous_formulaire1.Form.CodeJrnl.SetFocus
End If
If Not IsNull(Me.Mouvements_Sous_formulaire1.Form.DateMvt) And IsNull(Me.Mouvements_Sous_formulaire1.Form.CodeSsJrnl) Then
    MsgBox "Vous avez oublié de saisir un code de sous journal!"
    Me.Mouvements_Sous_formulaire1.Form.CodeSsJrnl.SetFocus
End If
If (Me.Mouvements_Sous_formulaire1.Form.Transaction) = "Chèque" And IsNull(Me.Mouvements_Sous_formulaire1.Form.NumChq) Then
    MsgBox "Vous avez oublié de saisir le numéro de chéque correspondant!"
    Me.Mouvements_Sous_formulaire1.Form.NumChq.SetFocus
End If
End Sub

il y a quand même un problème avec le sous-formulaire qui apparait grisé dans la fenêtre base de données et qui se nomme Mouvements_Sous_formulaire1 dans les objets de classe VBA :

Pièce jointe 343448

Citation:
Envoyé par tee_grandbois
voici le code modifié (que je n'ai pas testé, n'ayant pas complètement suivi le fil de la discussion, je ne sais pas comment utiliser la base) :
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 Private Sub Form_AfterUpdate() If Not IsNull(Me.Mouvements_Sous_formulaire1.Form.DateMvt) And IsNull(Me.Mouvements_Sous_formulaire1.Form.LibelleMvt) Then MsgBox "Vous avez oublié de saisir un libellé !" Me.Mouvements_Sous_formulaire1.Form.LibelleMvt.SetFocus End If If Not IsNull(Me.Mouvements_Sous_formulaire1.Form.DateMvt) And IsNull(Me.Mouvements_Sous_formulaire1.Form.MontantMvt) Then MsgBox "Vous avez oublié de saisir un montant !" Me.Mouvements_Sous_formulaire1.Form.MontantMvt.SetFocus End If If Not IsNull(Me.Mouvements_Sous_formulaire1.Form.DateMvt) And IsNull(Me.Mouvements_Sous_formulaire1.Form.Transaction) Then MsgBox "Vous avez oublié de saisir un moyen de paiement !" Me.Mouvements_Sous_formulaire1.Form.Transaction.SetFocus End If If Not IsNull(Me.Mouvements_Sous_formulaire1.Form.DateMvt) And IsNull(Me.Mouvements_Sous_formulaire1.Form.CodeJrnl) Then MsgBox "Vous avez oublié de saisir un code de journal!" Me.Mouvements_Sous_formulaire1.Form.CodeJrnl.SetFocus End If If Not IsNull(Me.Mouvements_Sous_formulaire1.Form.DateMvt) And IsNull(Me.Mouvements_Sous_formulaire1.Form.CodeSsJrnl) Then MsgBox "Vous avez oublié de saisir un code de sous journal!" Me.Mouvements_Sous_formulaire1.Form.CodeSsJrnl.SetFocus End If If (Me.Mouvements_Sous_formulaire1.Form.Transaction) = "Chèque" And IsNull(Me.Mouvements_Sous_formulaire1.Form.NumChq) Then MsgBox "Vous avez oublié de saisir le numéro de chéque correspondant!" Me.Mouvements_Sous_formulaire1.Form.NumChq.SetFocus End If End Sub
il y a quand même un problème avec le sous-formulaire qui apparait grisé dans la fenêtre base de données et qui se nomme Mouvements_Sous_formulaire1 dans les objets de classe VBA :

Pièce jointe 343448
Bonjour tee_grandbois,

Alors je viens de supprimer et recrée un nouveau sous formulaire, car celui du sous-formulaire en place auparavant rencontré des problèmes.

Mais je n'ai plus de sous formulaire dans la barre d'État désormais, je ne sais pas pourquoi.

Le code ne fonctionne pas malgré un essai, ci-joint la base :
https://we.tl/k30Ousfvym

Pour information, le problème que l'on rencontre avec marot n'est pas encore celui-ci, il vient du code mis en place dans la procédure évènementielle du formulaire chèque non encaissé.
Le but est lorsque que je clique sur chèque encaissé,
le code effectue une recherche dans la table mouvement afin de savoir le montant total de toutes les lignes ayant le numéro de chèque que l'on vient de cocher.
Si ce solde est différent entre le montant du chèque et le montant total des lignes alors la mise à jours ne fonctionne pas,
au contraire la mise à jour à lieu c'est-à-dire la case chèque encaissé est cochée et toutes les lignes en mouvements en attentes sont décochées, afin d'être comptabilisé dans le solde bancaire.

Le problème que l'on rencontre avec marrot, c'est que le code ne fonctionne pas, car si le chèque est égal au total des lignes en mouvements ou différents, le code nous indique à chaque fois que le solde est différents de celui des lignes en mouvements en attente.

Merci pour vos aides.

Bien cordialement,
Benjamin.

Bonjour Jiben59,

Citation:

Pour information, le problème que l'on rencontre avec marot_r n'est pas encore celui-ci

c'est bien pour cette raison qu'il fallait d'abord se soucier du problème de sous-formulaire et de code non compilé qui peut perturber le fonctionnement de la base (cela compile maintenant avec le code que j'ai corrigé).

Citation:

Alors je viens de supprimer et recrée un nouveau sous formulaire, car celui du sous-formulaire en place auparavant rencontré des problèmes.

Mais je n'ai plus de sous formulaire dans la barre d'État désormais, je ne sais pas pourquoi.

le sous-formulaire est peut-être masqué : pour le faire apparaitre essaie de faire un clic droit sur "Tous les objets Access" et ensuite cliquer sur "Options de navigation" ensuite cocher "Afficher les objets masqués". Cela dit, il est toujours grisé (comme un objet système) même dans la dernière version.

Citation:

Pour information, le problème que l'on rencontre avec marot n'est pas encore celui-ci, il vient du code mis en place dans la procédure évènementielle du formulaire chèque non encaissé.
Le but est lorsque que je clique sur chèque encaissé,
le code effectue une recherche dans la table mouvement afin de savoir le montant total de toutes les lignes ayant le numéro de chèque que l'on vient de cocher.
Si ce solde est différent entre le montant du chèque et le montant total des lignes alors la mise à jours ne fonctionne pas,
au contraire la mise à jour à lieu c'est-à-dire la case chèque encaissé est cochée et toutes les lignes en mouvements en attentes sont décochées, afin d'être comptabilisé dans le solde bancaire.

dans UpdateX , cette instruction NumChqEncaisse = DFirst("NumChq", "Cheques", "[ChqEncaisse]=True") & "" te ramènera toujours le premier chèque de la table (c'est à dire, actuellement, le CHQ0013201) puisque c'est le premier qui a le champ chqEncaisse à Vrai.
Selon moi, NumChqEncaisse devrait prendre la valeur du chèque de l'enregistrement sur lequel tu es positionné (quand tu cliques sur Chqencaisse).
En plus, si tu lances le code sur clic il faut prévoir, en cas de contrôle des mouvements, de laisser le chèque décoché (ou dans l'état qu'il était avant la modification).

Dernière chose, la partie mise à jour des mouvements ne prend pas en compte le numéro du chèque sélectionné, de plus comme la table n'est pas encore mise à jour lors du clic, cela ne pouvait pas fonctionner (sauf à forcer la mise à jour mais le code ne le faisait pas).

Solution : commencer par transformer la Sub UpdateX en Function de manière à provoquer un Undo si le contrôle des mouvements n'est pas correct , ensuite, sur le clic de chqEncaisse on fera l'appel de la fonction avec le numéro du chèque sélectionné en paramètre.
Code:

1 2 3 4 5 Private Sub ChqEncaisse_Click() If UpdateX(Me.NumChq) = False Then Me.Undo Else Me.RecordSource = Me.RecordSource ' pour enlever le chèque qui vient d'être traité End Sub
et le code du Sub transformé en fonction qui renvoie True ou False selon que les contrôles sont corrects ou pas :
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 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 Public Function UpdateX(pNumChq As String) As Boolean 'Déclaration des variables Dim db As DAO.Database Dim NumChqEncaisse As String Dim MontantChequeEncaisse As Variant Dim MontantMouvement As Variant ' excecution du code Set db = CurrentDb ' Attribution de la varibale 'NumChqEncaisse = DFirst("NumChq", "Cheques", "[ChqEncaisse]=True") & "" 'le & "" évite d'avoir à gérer les Nuls si il n'y a pas de chêque encaissé. NumChqEncaisse = pNumChq MontantChequeEncaisse = DFirst("MontantChq", "Cheques", "NumChq=""" & NumChqEncaisse & """") MontantMouvement = Abs(DSum("MontantMvt", "Mouvements", "NumChq=""" & NumChqEncaisse & """")) 'S'assure que le montant est un réel double If IsNull(MontantChequeEncaisse) _ Then MontantChequeEncaisse = CDbl(0) Else MontantChequeEncaisse = CDbl(MontantChequeEncaisse) End If 'S'assure que le montant est un réel double If IsNull(MontantMouvement) _ Then MontantMouvement = CDbl(0) Else MontantMouvement = CDbl(MontantMouvement) End If If vbYes = MsgBox("Voulez-vous vraiment mettre les données à jour ?", vbQuestion + vbYesNo + vbDefaultButton2) _ Then If MontantMouvement <> MontantChequeEncaisse _ Then Call MsgBox("Le montant du chèque est différent du montant des mouvements." & Chr(10) & _ "Les données n'ont pas été modifiées.", vbExclamation) Else Call MsgBox("Le montant du chèque est égal au montant des mouvements.", vbInformation) 'Ici appeler le code de mise à jour. '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.NumChq="" & NumChqEncaisse & "";") UpdateX = True ' pour indiquer que les contrôles sont corrects End If db.Close End If

18/01/2018, 16h03
Jiben59

Citation:

Envoyé par tee_grandbois

Bonjour Jiben59,
c'est bien pour cette raison qu'il fallait d'abord se soucier du problème de sous-formulaire et de code non compilé qui peut perturber le fonctionnement de la base (cela compile maintenant avec le code que j'ai corrigé).
le sous-formulaire est peut-être masqué : pour le faire apparaitre essaie de faire un clic droit sur "Tous les objets Access" et ensuite cliquer sur "Options de navigation" ensuite cocher "Afficher les objets masqués". Cela dit, il est toujours grisé (comme un objet système) même dans la dernière version.

Bon, j'ai retrouvé mon formulaire, et il est effectivement grisé.
Je fais essayer de reprendre le tout de zéro pour trouver le problème car le code ne fonctionne toujours pas lorsqu'on oublie un libellé.

Citation:

Envoyé par tee_grandbois

dans UpdateX , cette instruction NumChqEncaisse = DFirst("NumChq", "Cheques", "[ChqEncaisse]=True") & "" te ramènera toujours le premier chèque de la table (c'est à dire, actuellement, le CHQ0013201) puisque c'est le premier qui a le champ chqEncaisse à Vrai.
Selon moi, NumChqEncaisse devrait prendre la valeur du chèque de l'enregistrement sur lequel tu es positionné (quand tu cliques sur Chqencaisse).
En plus, si tu lances le code sur clic il faut prévoir, en cas de contrôle des mouvements, de laisser le chèque décoché (ou dans l'état qu'il était avant la modification).

C'est ce qu'il nous manquait effectivement, avoir le code permettant de sélectionner celui du click.
Grâce à tes explications, j'ai compris comment faire ça.

Citation:

Envoyé par tee_grandbois

Dernière chose, la partie mise à jour des mouvements ne prend pas en compte le numéro du chèque sélectionné, de plus comme la table n'est pas encore mise à jour lors du clic, cela ne pouvait pas fonctionner (sauf à forcer la mise à jour mais le code ne le faisait pas).

Solution : commencer par transformer la Sub UpdateX en Function de manière à provoquer un Undo si le contrôle des mouvements n'est pas correct , ensuite, sur le clic de chqEncaisse on fera l'appel de la fonction avec le numéro du chèque sélectionné en paramètre.

Alors là aussi merci pour les diverses explications car c'est plus simple de comprendre quand on explique le code.
Je te remercie d'avoir rajouté le code qui décoche la case en cas de problème car j'avais prévu de faire ceci mais une fois les problèmes résolus.

La vérifications des montants est opérationnels, et la boite de dialogue aussi.
Nous avons résolu ces deux premiers problèmes.
Par contre, le code de mise à jour ne se fait toujours pas, logiquement il est correcte car il fonctionnait avant d'avoir introduit toutes les boites de dialogue.

Peut être que le Dd.close est mal placé dans le code.

Si on arrive à résoudre ce problème, le sujet devrait être résolu à ce niveau.

Encore merci à toi et à marot, pour vos explications, et vos aides.

Bien cordialement,
Benjamin.

Citation:

Par contre, le code de mise à jour ne se fait toujours pas, logiquement il est correcte car il fonctionnait avant d'avoir introduit toutes les boites de dialogue.

j'ai constaté ce dysfonctionnement après coup, apparemment, ce qui posait problème c'était les parenthèses dans INNER JOIN ON (Cheques.NumChq) = (Mouvements.NumChq) et comme j'ai mis à jour mon post tardivement, la correction est peut-être passée "entre les gouttes", donc je reposte la totalité :

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Private Sub ChqEncaisse_Click()
 
    If UpdateX(Me.NumChq) = False Then Me.Undo Else Me.RecordSource = Me.RecordSource ' pour enlever le chèque qui vient d'être traité
 
End Sub
 
 
Public Function UpdateX(NumChq As String) As Boolean
 
    'Déclaration des variables
    Dim db As DAO.Database
    Dim NumChqEncaisse As String
    Dim MontantChequeEncaisse As Variant
    Dim MontantMouvement As Variant
 
    ' excecution du code
    Set db = CurrentDb
 
    ' Attribution de la varibale
    'NumChqEncaisse = DFirst("NumChq", "Cheques", "[ChqEncaisse]=True") & "" 'le & "" évite d'avoir à gérer les Nuls si il n'y a pas de chêque encaissé.
    NumChqEncaisse = NumChq
    MontantChequeEncaisse = DFirst("MontantChq", "Cheques", "NumChq=""" & NumChqEncaisse & """")
    MontantMouvement = Abs(DSum("MontantMvt", "Mouvements", "NumChq=""" & NumChqEncaisse & """"))
 
 
    'S'assure que le montant est un réel double
    If IsNull(MontantChequeEncaisse) _
        Then
           MontantChequeEncaisse = CDbl(0)
 
        Else
           MontantChequeEncaisse = CDbl(MontantChequeEncaisse)
    End If
 
 
   'S'assure que le montant est un réel double
    If IsNull(MontantMouvement) _
        Then
           MontantMouvement = CDbl(0)
 
        Else
           MontantMouvement = CDbl(MontantMouvement)
    End If
 
 
    If vbYes = MsgBox("Voullez-vous vraiment mettre les données à jour ?", vbQuestion + vbYesNo + vbDefaultButton2) _
         Then
             If MontantMouvement <> MontantChequeEncaisse _
                    Then
                       Call MsgBox("Le montant du chèque est différent du montant des mouvements." & Chr(10) & _
                       "Les données n'ont pas été modifiées.", vbExclamation)
 
                    Else
                       Call MsgBox("Le montant du chèque est égal au montant des mouvements.", vbInformation)
                       'Ici appeler le code de mise à jour.
                       '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 Mouvements.NumChq="" & NumChqEncaisse & "";")
                       UpdateX = True
             End If
                       db.Close
     End If
 
End Function

Citation:

Envoyé par tee_grandbois

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
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
Private Sub ChqEncaisse_Click()
 
    If UpdateX(Me.NumChq) = False Then Me.Undo Else Me.RecordSource = Me.RecordSource ' pour enlever le chèque qui vient d'être traité
 
End Sub
 
 
Public Function UpdateX(NumChq As String) As Boolean
 
    'Déclaration des variables
    Dim db As DAO.Database
    Dim NumChqEncaisse As String
    Dim MontantChequeEncaisse As Variant
    Dim MontantMouvement As Variant
 
    ' excecution du code
    Set db = CurrentDb
 
    ' Attribution de la varibale
    'NumChqEncaisse = DFirst("NumChq", "Cheques", "[ChqEncaisse]=True") & "" 'le & "" évite d'avoir à gérer les Nuls si il n'y a pas de chêque encaissé.
    NumChqEncaisse = NumChq
    MontantChequeEncaisse = DFirst("MontantChq", "Cheques", "NumChq=""" & NumChqEncaisse & """")
    MontantMouvement = Abs(DSum("MontantMvt", "Mouvements", "NumChq=""" & NumChqEncaisse & """"))
 
 
    'S'assure que le montant est un réel double
    If IsNull(MontantChequeEncaisse) _
        Then
           MontantChequeEncaisse = CDbl(0)
 
        Else
           MontantChequeEncaisse = CDbl(MontantChequeEncaisse)
    End If
 
 
   'S'assure que le montant est un réel double
    If IsNull(MontantMouvement) _
        Then
           MontantMouvement = CDbl(0)
 
        Else
           MontantMouvement = CDbl(MontantMouvement)
    End If
 
 
    If vbYes = MsgBox("Voullez-vous vraiment mettre les données à jour ?", vbQuestion + vbYesNo + vbDefaultButton2) _
         Then
             If MontantMouvement <> MontantChequeEncaisse _
                    Then
                       Call MsgBox("Le montant du chèque est différent du montant des mouvements." & Chr(10) & _
                       "Les données n'ont pas été modifiées.", vbExclamation)
 
                    Else
                       Call MsgBox("Le montant du chèque est égal au montant des mouvements.", vbInformation)
                       'Ici appeler le code de mise à jour.
                       '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 Mouvements.NumChq="" & NumChqEncaisse & "";")
                       UpdateX = True
             End If
                       db.Close
     End If
 
End Function

Je n'avais pas vu la modification, mais rien ne se passe toujours au nouveau des mouvements en attentes qui ne se décochent pas malgré le chèque validé en encaissement.

Pourtant le code me semble correcte pour faire ce que l'on souhaite faire.

Bien cordialement,
Benjamin.

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