Discussion :

[Jiben59]

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 :

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

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