Discussion :

[momowell]

Bonsoir,j'ai une petite question j'ai bien evidement chercher un peu partout mais je n'arrive pas à trouver de solution, donc je vous sollicite.

Premierement j'ai un formulaire contenant 2 cases à cocher et un bouton

J'aimerai que lorsque je clique sur valide un formulaire s'ouvre en fonction des proprieté des cases à cocher. c'est à dire:
case MARQUE cocher, on ouvre un formulaire A
case CATEGORIE cocher, on ouvre un formulaire B
case MARQUE ET CATEGORIE cocher on ouvre un formulaire C

je vous remercie

[pgz]

Bonjour.

Tu peux essayer une procédure, sur évènement 'click' du bouton 'Valider' du genre

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Select case Me.Marque * (-2) - Me.Catégorie
    case 3
        Application.DoCmd.OpenForm "FormC"
    Case 2
        Aplication.DoCmd.OpenForm "FormA"
    Case 1
        Application;DoCmd.OpenForm "FormB"
End select

Si les cases à cocher ont pour nom Marque et Catégorie dans ton formulaire.

Bon courage,

PGZ

[lolothom]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Select case Me.Marque * (-2) - Me.Catégorie

pouvez vous me commenter cette ligne

[Mahefasoa]

Bonjour,

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Select case Me.Marque * (-2) - Me.Catégorie

pouvez vous me commenter cette ligne

Il faut savoir que si une case est cochée alors elle prend la valeur -1 sinon c'est zéro (0).
Donc si pgz a écrit

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Me.Marque * (-2) - Me.Catégorie

Il a supposé les cas suivants:
1. Marque est cochée et Catégorie est décochée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Me.Marque=-1
Me.Catégorie=0
(-1)*(-2)-(0)=2

2. Marque est décochée et Catégorie est cochée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Me.Marque=0
Me.Catégorie=-1
(0)*(-2)-(-1)=1

2. Marque est cochée et Catégorie est cochée

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Me.Marque=-1
Me.Catégorie=-1
(-1)*(-2)-(-1)=3

CQFD!
Mais il peut y avoir plus simple en utilisant un groupe d'options car ainsi, la première option est 1, la suivante est 2 ... Le seul problème c'est comment obtenir deux choix car là seul un choix est possible ...
Bon courage et @+

[momowell]

Je vous remercie, le code est bien pensée, ça marche après correction de 2 fautes de frappes. Parfait
Sinon pour réaliser cette application je pensai pouvoir le faire en macro, mais malheureusement je n'ai pas trouvé le paramétre donnant 0 ou 1 en fonction de cocher ou décocher. De plus je me rend compte que cela n'est pas 0 ou 1.

Avez vous un cours quelque part qui vous dit comment savoir que c'est le param
"Me" qui renvoit une valeur?

En tout cas encore merci

[seb92400]

Hi,

[resolu] Case à cocher et validation pour ouverture de formulaire

Tu peux utiliser le bouton résolu en bas du formulaire pour indiquer que tu as eu la solution, tu n'es pas obligé de modifier le titre...

Pour des macros (de mémoire) une case à cocher est 'Oui' (pour coché) ou 'Non' (pour décoché)

En vba, 0 = False et -1 = True (mais dans un sens général, tout ce qui n'est pas 0 est la plupart du temps égale à True)

Avez vous un cours quelque part qui vous dit comment savoir que c'est le param "Me" qui renvoit une valeur?

Je ne saisis pas trop le sens de ta question... 'Me' indique le formulaire auquel appartient le module. Exemple tu te trouves dans le module du formulaire nommé frmEssai (donc le module porte le nom de Form_frmEssai), si tu tapes Me.AllowsEdits = True dans une procédure, tu indiques que autorises les modifications pour le formulaire frmEssai.

[momowell]

ok, je pensai que "Me" était un parametre permettant de selectionner le paramétre rechercher.

Encore merci

[Mahefasoa]

Bonsoir,

ok, je pensai que "Me" était un parametre permettant de selectionner le paramétre rechercher.

Encore merci

Me désigne le formulaire ou l'état en cours. Ce n'est pas un paramètre.
Si le formulaire en cours est Frm1, pour le désigner tu peux faire

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
 
Forms("Frm1")
ou
Forms!Frm1
ou
Frm_Frm1 'si AvecModule=Oui
ou
Me 'si c'est le formulaire en cours

Bon courage et @+

[momowell]

Merci des renseignement, par contre à l'utilisation de ma base je me suis rendu compte d'un souci,
Cela doit etre un probleme d'initialisation
1er cas
Quand je coche marque et catégorie puis valider j'ai bien une ouverture de formulaire. (le formulaire 3)
Maintenant je referme le formulaire 3 puis decoche l'une des deux cases, je valide (le formulaire 1 ou 2 s'ouvre) vous me direz pas de souci !
2nd cas
Mais maintenant si lors de la premiere ouverture de mon formulaire je coche une case puis je valide, il ne se passe rien. Pour que le code soit valide, je dois obligatoirement passer par le premier cas

merci

[Mahefasoa]

Re,
Est-ce que tu peux utiliser un Debug.Print sur la valeur des cases à cocher? Comme cela tu sais si les cases sont vraiment renseingées.
C'est juste une idée ...
Autre chose, essaie d'initialiser la valeur des cases à cocher par défaut en utilisant la valeur par défaut de ces contrôles. Mets les à 0. Sinon, lors de l'ouverture, affecte 0 aux case à cocher. Comme cela tu es sûr qu'au début les cases ont comme valeur zéro. Ensuite à toi de vérifier dans ton code en faisant une exécution pas-à-pas (F8) afin de le tracer.
Bon courage et @+

[pgz]

Bonjour.

Je pense que tu dois être embêté par des valeurs Null. Tu peux adapter le code ainsi

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Select case Nz(Me.Marque,0) * (-2) - Nz(Me.Catégorie,0)
    case 3
        Application.DoCmd.OpenForm "FormC"
    Case 2
        Application.DoCmd.OpenForm "FormA"
    Case 1
        Application.DoCmd.OpenForm "FormB"
End select

Bon courage,

PGZ

[momowell]

Les modifications effectué sont parfaite, mes cases sont bien initialisées et cela fonctionne, merci de votre aide!