Msgbox conditionnées

J'ai essayé la démarche décrites dans le message ci-dessus, mais j'ai tout de même quelques questions car je n'arrive pas à faire fonctionner ce code.

Alors si j'ai bien compris, le calcul des coef s'effectue sur la ligne de code "calcul = 1*...."?

Est ce que le fait que les cases à cocher ne soit pas dans la même table à une importance, sachant qu'elles apparaissent dans le même sous-formulaire?

Les msgbox doivent s'ouvrir lorsqu'un sous formulaire apparait (les cases à cocher apparaissent dans le sous-formulaire qui doit s'ouvrir avec les msgbox), ceci a-t-il une importance pour le code?
Je suppose que oui mais comment cela se rédige?

"Calcul" est-elle une variable? Si oui comment et où dois-je la déclarer?

D'autre part est-il possible de m'expliquer la syntaxe de la ligne ci-dessous, pour que je sache à quoi correspond les Check1(0), check1(1) et check1(2). (je demande ceci pour essayer de comprendre pourquoi le débeugueur d'Access me renvois une erreur) :

calcul = 1 * Check1(0).Value + 10 * Check1(1).Value + 100 * Check1(2).Value
(Check1(0), Check1(1) et Check1(2) correspondent aux trois noms des différentes cases à cocher, ou aux trois sources contrôlées qui leurs correspodent?)

Salut,

En fait les cases à cocher sont déjà renseigner sur un autre formulaire. Elles sont mémorisées dans 3 tables différentes.

En théorie j'aimerais que lorsque mon sous-formulaire s'ouvre, l'état des cases à cocher soit consulter, et du résultat de cette consultation dépend le contenu de ma msgbox.

Exemple : case_à_cocher1 cochée, case_à_cocher2 non cochée et case_à_cocher3 non coché => message1
case_à_cocher1 cochée, case_à_cocher2 cochée et case_à_cocher3 non coché => message2
etc...
Par contre j'ai un doute quand à l'emplacement de ce code. A l'heure actuelle je le place dans le sous-formulaire qui doit s'ouvrir en même temps que mes msgbox, ceci est correcte ou un autre emplacement serait plus judicieux?


Voici le morceau de code que j'ai fait d'après les explications que tu m'as donné et mes très maigres connaissances en VB :
(A savoir : Formulaire, Maintenance et Societe sont trois tables dans lesquelles se trouvent les cases à cocher nommées : Aucune_formation, Pas_acces_hotline et Impaye.


'début du code

'Form_Load() pour que ce code s'effectue à l'ouverture du sous-formulaire
Private Sub Form_Load()

'déclaration de la variable calcul
Dim calcul As Integer

'ligne de calcul avec les coefs.
calcul = (1 * [Formation].Aucune_formation.Value) + (10 * [Maintenance].Pas_acces_hotline.Value) + (100 * [Societe].Impaye.Value)

'début du morceau de code que tu m'as donné
Select Case calcul
Case 1
MsgBox "Client non formé" + vbCritical, "Attention"
Case 10
MsgBox "Pas d'accès hotline", vbOKOnly + vbCritical, "Attention"
Case 100
MsgBox "Impayé", vbOKOnly + vbCritical, "Attention"
Case 11
MsgBox "Client non formé" & vbNewLine & "Pas d'acces hotline", vbOKOnly + vbCritical, "Attention"
Case 101
MsgBox "Client non formé" & vbNewLine & "Impayé", vbOKOnly + vbCritical, "Attention"
Case 110
MsgBox "Pas d'accès hotline" & vbNewLine & "Impayé", vbOKOnly + vbCritical, "Attention"
Case 111
MsgBox "Client non formé" & vbNewLine & "Pas d'accès hotline" & vbNewLine & "Impayé", vbOKOnly + vbCritical, "Attention"

End Select

End Sub
'fin du code


Merci d'avance

Bonjour,

Malheureusement ce code ne fonctionne pas, lorsque j'éssaie d'ouvrir le sous-formulaire concerné une erreur apparaît. Voici le message d'erreur :
Erreur d'exécution '2465' :
Impossible de trouver le champ '|' auquel il est fait référence dans votre expression.

Sur la fenêtre d'erreur il apparait 2 boutons :
Fin : rien ne se passe lorsque je clique dessus
Débogage : lorsque je clique sur ce bouton la ligne de code suivante est surlignée en jaune :
calcul = (1 * [Formation].Aucune_formation.Value) + (10 * [Maintenance].Pas_acces_hotline.Value) + (100 * [Societe].Impaye.Value)

Après recherche sur internet concernant ce message d'erreur, j'ai modifié le "Private Sub" en "Public Sub" mais le message d'erreur persiste.

Après nouvelle recherche sur internet, j'ai trouvé comme solution que ce message d'erreur apparaît car je fais référence à des tables (Formation, Mainenance et Socièté) alors que mon sous formulaire est construit sur une requête.
J'ai alors modifié mon code pour faire référence à ma requête en remplaçant le nom de mes tables entre "[ ]" par celui de ma requête :
-En "Public Sub" le message d'erreur persiste
-En "Private Sub" plus de message d'erreur, mais aucune msgbox n'apparaît.
Peux-tu m'éclairer sur ce problème?

Je ne sais pas si ça peux être utile à la résolution de mon problème mais mon sous-formulaire se nomme Sousform_fiche_client.
Ne devrais-je pas mettre en début de code :
"Private Sub Sousform_fiche_client_Beforeupdate ()" plutôt que "Private Sub Form_Load ()"?

Est-ce que le fait que le code des msgbox se trouve au début ou en fin de ma page de code a une importance?

Merci encore de passer du temps à m'aider.

P.S.: Pour que le code soit compréhensible par un autre utilisateur je comptais mettre des commentaires, mais si tu as des astuces pour le simplifier je suis preneur.

Encore merci.

Bonjour, et Joyeux Noël à toi aussi.

Merci beaucoup pour le code, il fonctionne très bien et j'espère que ton Noël n'a pas souffert de ta réponse.


Au risque de paraitre exigeant je souhaiterais apporter une modification au code :
Actuellement mon sous formulaire s'ouvre automatiquement lorsque l'utilisateur a choisi trois critère (société, contact, numéro machine) représentés sous trois choix multiples.
Lorsque mon sous-formulaire apparait pour la première fois (après un premier choix des trois citères) le code des msgbox fonctionne très bien, mais si l'utilisateur s'est trompé dans l'un des critères, le sous formulaire s'ouvre, l'utilisateur se rend alors compte de son erreur de critères et lorsqu'il modifie les critères le sous-formulaire s'actualise (sans se fermer et se ré-ouvrir) donc le code des msgbox ne fonctionne plus car le sous formulaire n'est pas chargé à nouveau.

Existe-t-il une fonction qui permettrait de lire le code des msgbox à chaque actualisation du sous-formulaire ou serait-ce plus simple de fermer et de ré-ouvrir le sous-formulaire si l'un des critères à été modifié?

A bientôt et encore Merci beaucoup

Merci pour ce code, mais j'ai dù mal m'exprimer car mes trois cases à cocher se trouvent dans 3 tables différentes et non dans des formulaires. De plus je les visualise dans le sous-formulaire dont je cherche à gérer l'actualisation.

Excuses moi pour cette incompréhension.

Salut,

1. En fait mes cases à cocher sont "stockées" dans trois tables différentes. Elles sont toutes renseignées directement dans les tables sans passer par aucun autre formulaire. Les trois cases à cocher apparaissent seulement dans mon sous-formulaire par des contrôles "cases à cocher".

2. Dans mon sous-formulaire Sousform_fiche_client je ne trouche pas à l'état de mes cases à cocher, elles sont visibles mais non modifiables. Oui elles sont bien présentent sur mon sous-formulaire.

3. Oui, lorsque mon sous-formulaire est ouvert les cases à cocher se mettent à jour comme tous les autres champs visibles dans le sous-formulaire.

Merci et si tu as d'autre question ou si je n'ai pas été clair n'hésites pas à me le dire

Merci de m'avoir répondu lors des fêtes, et excuses moi de ne pas t'avoir répondu, les impératifs de mes supérieurs m'ont obligé à mettre ce projet en attente.

Je viens tout de même d'essayer ce que tu m'as dit mais je ne sais pas vraiment où le placer dans mon code.

Est ce que je dois placer : Cocher0_AfterUpdate() au début de mon code des msgbox ou dans un autre portion de code de mon sous formulaire?

Merci d'avance, en espérant que tu as passé de bonnes fêtes.