Bonjour,
j'ai modifié la structure de l'un de mes formulaires, et mon code concernant le sous formulaire ne fonctionne plus.
Voici mon code ci-joint :
En sachant que j'ai modifié le champs paiement qui est définit par une liste de valeurs maintenant alors qu'avant c'était une table regroupant tous les types de paiements.
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 Private Sub Form_AfterUpdate() If Not IsNull(Me.DateMvt) And IsNull(Me.LibelleMvt) Then MsgBox "Vous avez oublié de saisir un libellé !" Me.Undo Me.LibelleMvt.SetFocus End If If Not IsNull(Me.DateMvt) And IsNull(Me.MontantMvt) Then MsgBox "Vous avez oublié de saisir un montant !" Me.Undo Me.MontantMvt.SetFocus End If If Not IsNull(Me.DateMvt) And IsNull(Me.Expr1004) Then MsgBox "Vous avez oublié de saisir un moyen de paiement !" Me.Undo Me.Expr1004.SetFocus End If If Not IsNull(Me.DateMvt) And IsNull(Me.CodeJrnl) Then MsgBox "Vous avez oublié de saisir un code de journal!" Me.Undo Me.CodeJrnl.SetFocus End If If Not IsNull(Me.DateMvt) And IsNull(Me.CodeSsJrnl) Then MsgBox "Vous avez oublié de saisir un code de sous journal!" Me.Undo Me.CodeSsJrnl.SetFocus End If If (Me.Expr1004) = "Chèque" And IsNull(Me.NumChq) Then MsgBox "Vous avez oublié de saisir le numéro de chéque correspondant!" Me.Undo Me.NumChq.SetFocus End If End Sub
Cependant, le sous formulaire reprends la table mouvements mais dans le sous formulaire le champs paiement n'est pas identique au niveau de dénomination ("Expr1004", je trouve ceci bizarre).
Je vous laisse ci-joint plusieurs capture d'écran :
Capture d'écran du sous formulaire, suivit de la table mouvement :
Voici la liste des valeurs pour le champs paiement : "Carte bancaire";"Chèque";"Espèces";"Espèces et chèque";"Prélèvement";"Virement"
Je remercie les internautes qui m'aideront à résoudre ce problème car je n'arrive pas a le résoudre depuis un bon moment que je suis dessus.
Bonne fin de journée à vous.
Cordialement.
Partager