Message d'erreurs
Résolu
Zonteo
Messages postés
104
Date d'inscription
Statut
Membre
Dernière intervention
-
Zonteo Messages postés 104 Date d'inscription Statut Membre Dernière intervention -
Zonteo Messages postés 104 Date d'inscription Statut Membre Dernière intervention -
Bonjour,
Je me demande si mon titre correspond à ma préoccupation.
Avec toutes mes excuses je voudrais vous suggérer une preoccupation.
J'ai établi une relation entre 2 tables T_Buro_vote et T_Candidat.
J'ai ensuite un formulaire de saisi basé sur ces 2 tables avec 2 parties.
Une partie du formulaire recueil les informations du bureau de vote et les stocke dans la table T_Buro_vote.
La seconde recueil les noms et les voix des candidats et les stocke dans la table T_Candidat.
Donc il y a 2 Tables différentes pour le seul formulaire.
Alors je voudrais qu'en enregistrant le nombre de voix obtenues par candidat selon le BV (Bureau de vote), qu'un message d'erreur s'affiche lorsque la somme des voix obtenues des candidats dépassent le nombre de suffrage exprimé du BV et ainsi de suite pour chaque BV.
Merci c'est l'ultime étape qui me reste.
Tout en comptant toujours sur votre aide, je vous prie d'agréer ma très haute considération.
Je me demande si mon titre correspond à ma préoccupation.
Avec toutes mes excuses je voudrais vous suggérer une preoccupation.
J'ai établi une relation entre 2 tables T_Buro_vote et T_Candidat.
J'ai ensuite un formulaire de saisi basé sur ces 2 tables avec 2 parties.
Une partie du formulaire recueil les informations du bureau de vote et les stocke dans la table T_Buro_vote.
La seconde recueil les noms et les voix des candidats et les stocke dans la table T_Candidat.
Donc il y a 2 Tables différentes pour le seul formulaire.
Alors je voudrais qu'en enregistrant le nombre de voix obtenues par candidat selon le BV (Bureau de vote), qu'un message d'erreur s'affiche lorsque la somme des voix obtenues des candidats dépassent le nombre de suffrage exprimé du BV et ainsi de suite pour chaque BV.
Merci c'est l'ultime étape qui me reste.
Tout en comptant toujours sur votre aide, je vous prie d'agréer ma très haute considération.
A voir également:
- Message d'erreurs
- Recuperer message whatsapp supprimé - Guide
- Message supprimé whatsapp - Guide
- Message absence thunderbird - Guide
- Epingler un message whatsapp - Accueil - Messagerie instantanée
- Message du pere noel gratuit whatsapp - Accueil - Messagerie instantanée
2 réponses
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
bonjour,voici une suggestion pour empêcher la somme des voix obtenues des candidats de dépasser le nombre de suffrage exprimé du BV : un code à mettre au niveau du sous-formulaire.
Option Explicit
Private Sub OBTENUS_BeforeUpdate(Cancel As Integer)
Dim tot As Long, cnt As Long, gtot As Long
Dim where As String
where = "ID_Buro_Vote = " & Me.Form.Parent!ID_Buro_Vote & " and ID_Candidat <> " & ID_Candidat
cnt = DCount("OBTENUS", "T_Candidat", where)
If cnt > 0 Then
tot = DSum("OBTENUS", "T_Candidat", where)
Else
tot = 0
End If
gtot = tot + Me.OBTENUS
If gtot > Me.Form.Parent!SUFFRAGE_EXPRIME Then
Call MsgBox( _
"La somme des voix obtenues des candidats (" & gtot & ") dépasse " & _
"le nombre de suffrages exprimés du BV (" & Me.Form.Parent!SUFFRAGE_EXPRIME & ").", _
vbOKOnly, "Merci de corriger.")
Cancel = True ' ceci va empecher de sauver la valeur incorrecte
End If
End Sub
yg_be
Messages postés
23541
Date d'inscription
Statut
Contributeur
Dernière intervention
Ambassadeur
1 584
pour le titre, moi j'aurais mis "détection automatique d'erreur d'encodage"
Bonjour,
Le code que j'ai reçu fonctionne à merveille. Je vous en remercie infiniment
Seulement je constate que j'ai mal posé ma préoccupation.
Au fait je voulais aussi qu'un message s'affiche lorsque la somme des OBTENUS est inférieure au SUFFRAGE_EXPRIME.
Pour pallier à cela j'ai modifié une partie du code que vous m'aviez envoyé et je l'ai ajouté à la suite.
J'ai ajouté ceci:
If gtot < Me.Form.Parent!SUFFRAGE_EXPRIME Then
Call MsgBox( _
"somme des voix obtenues des candidats (" & gtot & ") intérieur " & _
"au nombre de suffrages exprimés du BV (" & Me.Form.Parent!SUFFRAGE_EXPRIME & ").", _
vbOKOnly, "Merci de corriger.")
Cancel = True ' ceci va empêcher de sauver la valeur incorrecte
End If
Malheureusement il ne fonctionne que pour un seul candidat et empêche de saisir les voix des autres.
Vous remerciant d'avance je vous prie d'agréer ma très haute considération.
Le code que j'ai reçu fonctionne à merveille. Je vous en remercie infiniment
Seulement je constate que j'ai mal posé ma préoccupation.
Au fait je voulais aussi qu'un message s'affiche lorsque la somme des OBTENUS est inférieure au SUFFRAGE_EXPRIME.
Pour pallier à cela j'ai modifié une partie du code que vous m'aviez envoyé et je l'ai ajouté à la suite.
J'ai ajouté ceci:
If gtot < Me.Form.Parent!SUFFRAGE_EXPRIME Then
Call MsgBox( _
"somme des voix obtenues des candidats (" & gtot & ") intérieur " & _
"au nombre de suffrages exprimés du BV (" & Me.Form.Parent!SUFFRAGE_EXPRIME & ").", _
vbOKOnly, "Merci de corriger.")
Cancel = True ' ceci va empêcher de sauver la valeur incorrecte
End If
Malheureusement il ne fonctionne que pour un seul candidat et empêche de saisir les voix des autres.
Vous remerciant d'avance je vous prie d'agréer ma très haute considération.
Bonjour.
C'est au meme moment.
En principe par BV le SUFFRAGE_EXPRIMÉ doit être egal a la somme des voix OBTENUS des candidats par BV.
Alors
si le total des OBTENUS < SUFFRAGE_EXPRIME il faut afficher le message.d'erreurs
si le total des OBTENUS > SUFFRAGE_EXPRIME il faut afficher le message d'erreur.
Donc le code que vous m'aviez envoyé prend en compte la deuxieme condition ou OBTENUS est supérieur.
On a donc omis le cas contraire quand c'est inferieur.
C'est au meme moment.
En principe par BV le SUFFRAGE_EXPRIMÉ doit être egal a la somme des voix OBTENUS des candidats par BV.
Alors
si le total des OBTENUS < SUFFRAGE_EXPRIME il faut afficher le message.d'erreurs
si le total des OBTENUS > SUFFRAGE_EXPRIME il faut afficher le message d'erreur.
Donc le code que vous m'aviez envoyé prend en compte la deuxieme condition ou OBTENUS est supérieur.
On a donc omis le cas contraire quand c'est inferieur.
Le code que vous m'aviez envoyé fonctionne quand le TOTAL des OBTENUS est supérieur au SUFFRAGE_EXPRIME.
Mais quand le TOTAL des OBTENUS est inferieur au SUFFRAGE_EXPRIME le message n'apparait pas alors que c'est aussi une erreur a corriger
Ce qui est juste c'est quand quand le total de OBTENUS=SUFFRAGE_EXPRIME.
Mais quand le TOTAL des OBTENUS est inferieur au SUFFRAGE_EXPRIME le message n'apparait pas alors que c'est aussi une erreur a corriger
Ce qui est juste c'est quand quand le total de OBTENUS=SUFFRAGE_EXPRIME.
Je vous présente toutes mes excuses.
Je vous suis gré.
Maintenant j'attends votre aide avec tout le respect que je vous dois.
tu peux vérifier la première condition chaque fois que tu enregistres le vote d'un candidat. c'est ce que tu fais en mettant la vérification dans OBTENUS_BeforeUpdate.
par contre, tu ne peux pas vérifier la deuxième condition avant d'avoir enregistré un BV complet. donc il faut peut-être associer cette seconde vérification à une autre action, j'essaie de te faire dire laquelle.
autrement dit, comment le programme peut-il savoir que tu as fini de saisir les voix obtenues des candidats?