msgbox conditionnées Résolu/Fermé

Question

Bonjour,

Je suis novice en Access et en VB, dans le cadre de mon emploi je dois créer des msgbox qui s'ouvriront à certaines conditions. Pour information je travaille sous Access 2000. 

Mon problème est qu'étant novice en VB je ne sais pas comment saisir les conditions d'ouverture de mes msgbox. 

Je m'explique :

Je dois avoir 7 msgbox différentes : msgbox1, msgbox2, msgbox3, msgbox4, msgbox5, msgbox6, msgbox7
C'est sept msgbox répondent à trois critères : 1, 2, 3. C'est trois critère sont des cases à cocher d'Access.

Si aucun des trois critères ne sont sélectionnés, aucune msgbox ne doit s'ouvrir.
La msgbox1 s'ouvre s'il le critère 1 est rempli
La msgbox2 s'ouvre s'il le critère 2 est rempli
La msgbox3 s'ouvre s'il le critère 3 est rempli
La msgbox4 s'ouvre s'il les critère 1 et 2 sont remplis
La msgbox5 s'ouvre s'il les critère 2 et 3 sont remplis
La msgbox6 s'ouvre s'il les critère 1 et 3 sont remplis
La msgbox7 s'ouvre s'il les critère 1,2 et 3 sont remplis


Comment puis-je récupérer l'état de mes cases à cocher?
Et quel est la façon dont je dois saisir mes critères sous VB afin que mes msgbox répondent correctements à mes critères?

Sinon existe-t-il une façon plus simpel que le VB, par des requêtes et des formulaires par exemple?

Merci d'avance.

Damien

mikebzh · Answer

Salut
un bouton renvoie sa valeur 0 ou 1 (false ou true) dans sa propriété value


'Tu travaille avec 3 bouton 1, 2, 3
'Tu leurs mets des coefs
'n° 1 enfoncé --> 1
'n° 2 enfoncé --> 10
'n° 3 enfoncé --> 100
'n° 1,2 enfoncé --> 11
'n° 2,3 enfoncé --> 110
'n° 1,3 enfoncé --> 101
'n° 1,2,3 enfoncé --> 111

Exemple    
[code]
    calcul = 1 * Check1(0).Value + 10 * Check1(1).Value + 100 * Check1(2).Value
    'Après il te reste jusque à faire un select case sur le résultat
    Select Case calcul
    Case 1
        MsgBox ("toto")
    Case 10
        MsgBox ("titi")
    Case 100
        'etc...
    Case 11
    
    Case 110
        MsgBox ("tata")
    Case 101
    
    Case 111
    
    End Select
[\code]

Et voilà tu peux affecter n'importe quels coefs mais attention à la possibilité de doublon

Bon courage

damien_phenix · Answer

Merci beaucoup, je vais essayé tout cela.

mikebzh · Answer

salut

Oui calcul est la variable pour le calcul des coefs, tu peux la déclarer en integer

Que les cases à cocher soit ailleurs n'est pas grave tant que tu sais où elles sont
pour avoir leur valeur <endroit>.check.value

Je vois pas bien l'histoire de tes cases avec les msgbox ? en même temps ? comment tu commences ta première msgbox (vu qu'on a pas encore de cases) ?

check1(0), check1(1), check1(2) sont les noms de mes trois cases à cocher réunies dans un même groupe de contrôle, en fait je suis faineant quand je fais ma première case je fais un ctrl-c dessus puis ctrl-v pour en copier deux autres et là elles se llient toutes seules si on accepte le groupe.
Sinon tu peux en créer trois différentes casetoto, casetiti, casetata et d'avoir les noms pour changer la formule de calcul

A plus

mikebzh · Answer

Oui pour ce que tu veux faire tu teste au bon endroit.
Logique juste avant l'affichage, dis-moi si ça fonctionne on améliorera le code après afin qu'il soit un peu plus propre et surtout lisible pour d'autres personnes.

Pensée du soir : toujours penser au suivant, pauvre malheureux qui prendra notre place un jour !

Salut

mikebzh · Answer

Je vois pa bien le soucis car je ne travaille jamais sous access en direct, je travaille toujours sous vb même pour accéder à des tables access, ce qui fait que je travaille toujours avec les formes de mon projet (pout te dire je n'ai jamais essayé de faire un formulaire sous access !)
Par contre ce qui est sur c'est que si tu travaille avec Sousform_fiche_client ce n'est pas Private Sub Form_Load() que tu dois coder mais plutôt private sub Sousform_fiche_client_load()

De plus dans tes formulaires essaie de trouver les propriétés de tes boutons, il sont forcement attachés aux différents formulaires. En vb sa valeur ressemblerait à un truc du style Form1.check1.value où que l'on soit dans le projet pour un bouton dans Form1, sous access ça doit être pareil.

Bon ce soir c'est le reveillon, demain je ne suis pas là, mais je vais essayez de créer un formulaire sous access et on en reparle demain soir ou vendredi.

Joyeux noël.

mikebzh · Answer

Oubli mon message de tout à l'heure j'ai réusssi, je me depeche ma femme hurle pour que l'on parte manger mais bon on est pas à cinq minutes (mariez-vous qu'il disait !!!)

Je resume, on adaptera après

1. j'ai créer trois formulaires : formu1, formu2, form3
2. j'ai mis une case à cocher dans chacun d'eux
form1 --> case1
form2 --> case2
form3 --> case3
3.j'ai créer un autre formulaire (dans notre cas cela sera le sous-formulaire)
pour récupérer les infos des boutons dans x,y,z par exemple pour notre calcul
sur le sous-formulaire en load

[code]
private sub Form_load() 'en fait form_load() fonctionne
if Form_form1.case1.value = 0 then
'case1 non cochée
x=0
else
'case1 cochée
x=1
end if
...........
idem pour les deux autres
Form_form2.case2.value
Form_form3.case3.value
...........
calcul = 1*x+10*y+100*z

case calcul
etc...
[\code]

Allez joyeux noël, à bientôt 
ma femme va me tuer :)

mikebzh · Answer

Bon là tout de suite je vais aller bosser mais j'ai fait un test vite fait en mettant ce code dans formulaire1

[code]
Private Sub Cocher0_Click()
      Form_Formulaire4.Cocher0.Value = Cocher0.Value
end sub
[\code]

J'ai créer un bouton cocher0 dans le formulaire4 et si on clique dans le formulaire1 ,il se met à jour sans fermer et ouvrir le formulaire4 donc on doit pouvoir réussir à gérer les modifs des trois et actualiser le message dans le quatrième

Je me sauve à plus

mikebzh · Answer

J'ai trouvé
Dans les trois formulaires avec les cases à cocher tu mets

[code]
Private Sub Cocher0_Click()         'Cocher0 ou nom de la case à cocher forcement
Form_Formulaire1.Refresh            '1,2,3 suivant formulaire
Form_Formulaire4.SetFocus
end sub 
[\code]

Et dans le formulaire4 au lieu de faire un Form_load tu fais un Form_Activate et le tour est joué.

Salut

mikebzh · Answer

??????
des questions en vrac pour comprendre :
(--> veut dire ce que je comprends)

1.Tes cases sont dans des tables ?
--> tu as un champ qui  te renseigne sur une case cochée ou non dans ton s-formulaire ou alors tu rajoutes une case sur la table quelque part ?

2.Tu ne touches pas à tes cases dans le s-formulaire, existent-elles ?

3.S-formulaire ouvert, les cases se mettent à jour ainsi que tes requètes mais tu n'as pas la msgbox ?

Merci de me dire si j'ai compris ton soucis.

mikebzh · Answer

Si les checkbox se mettent à jour j'essaierais
[code]
Cocher0_AfterUpdate()

[\code]
Et tu relances la sauce des msgbox.

Msgbox conditionnées

10 réponses

Discussions similaires