Champs nuls
Zonteo
Messages postés
104
Date d'inscription
Statut
Membre
Dernière intervention
-
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
yg_be Messages postés 23541 Date d'inscription Statut Contributeur Dernière intervention -
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
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
A voir également:
- Champs nuls
- Tableau croisé dynamique pour les nuls - Guide
- Google drive pour les nuls - Guide
- Onedrive pour les nuls - Guide
- Sap pour les nuls pdf gratuit - Forum Programmation
- Champs calculé tcd formule si - Forum Excel
1 réponse
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
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
Je vous remercie pour la promptitude de votre reponse et de vous votre aide.
Malheureusement ça ne fonctionne pas encore.
Merci
merci de partager un fichier avec le code adapté, et en expliquant que faire pour provoquer l'erreur.
https://www.cjoint.com/c/IDjeAlWki8S