Menu

Champs nuls

Messages postés
87
Date d'inscription
lundi 18 décembre 2017
Statut
Membre
Dernière intervention
16 avril 2019
- - Dernière réponse : yg_be
Messages postés
7724
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
20 avril 2019
- 17 avril 2019 à 09:43
Bonjour,
J'ai un soucis.
Quand je veux ajouter un nouvel élève il y a ce code qui pose un problême.
cnt = DCount("Montantverse", "T_verse", where)
Il pose problême parce que le champs [Montantverse] dans le sous formulaire est nul.
En effet voici ci-dessous le code dans lequel il se trouve.
Voici également le lien de mon fichier
https://www.cjoint.com/c/IDjeAlWki8S

Private Sub Montantverse_Exit(Cancel As Integer)
If IsNull(Montantverse) Then
MsgBox "Vous allez ajouter un nouveau Versement"
End If
Dim tot As Long, cnt As Long, gtot As Long
Dim where As String
where = "Ident = " & Me.Form.Parent!Ident & " and Idpaie <> " & Idpaie
cnt = DCount("Montantverse", "T_verse", where)
If cnt > 0 Then
tot = DSum("Montantverse", "T_verse", where)
Else
tot = 0
End If
gtot = tot + Me.Montantverse
If gtot > montantapayer Then
Call MsgBox( _
"ATTENTION! L'ETUDIANT(E) " & Me.Form.Parent!Nomeleve & " dont LA SOMME DES MONTANTS VERSES QUI EST = " & gtot & " FRANCS DEPASSE " & _
"LE MONTANT A PAYER QUI EST = " & montantapayer & " FRANCS.", _
vbOKOnly, "ATTENTION!")
Cancel = True
End If

voici le lien de mon fichier
https://www.cjoint.com/c/IDjeAlWki8S
Afficher la suite 

Votre réponse

1 réponse

Messages postés
7724
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
20 avril 2019
460
0
Merci
bonjour, suggestion:
where = "Ident = " & Me.Form.Parent!Ident
If Not IsNull(Idpaie) Then
    where = where + " and Idpaie <> " + CStr(Idpaie)
End If
cnt = DCount("Montantverse", "T_verse", where)
If cnt > 0 Then
    tot = DSum("Montantverse", "T_verse", where)
    Else
    tot = 0
End If
gtot = tot
If Not IsNull(Me.Montantverse) Then
    gtot = gtot + Me.Montantverse
End If
Zonteo
Messages postés
87
Date d'inscription
lundi 18 décembre 2017
Statut
Membre
Dernière intervention
16 avril 2019
-
Bonsoir
Je vous remercie pour la promptitude de votre reponse et de vous votre aide.
Malheureusement ça ne fonctionne pas encore.
Merci
yg_be
Messages postés
7724
Date d'inscription
lundi 9 juin 2008
Statut
Contributeur
Dernière intervention
20 avril 2019
460 > Zonteo
Messages postés
87
Date d'inscription
lundi 18 décembre 2017
Statut
Membre
Dernière intervention
16 avril 2019
-
"ça ne fonctionne pas": message d'erreur, à quel endroit?
merci de partager un fichier avec le code adapté, et en expliquant que faire pour provoquer l'erreur.
Zonteo
Messages postés
87
Date d'inscription
lundi 18 décembre 2017
Statut
Membre
Dernière intervention
16 avril 2019
-
Voici encore le lien de mon fichier
https://www.cjoint.com/c/IDjeAlWki8S
Commenter la réponse de yg_be