Discussion :

[yomaneoz]

salut,
j'ai un formulaire "individu" où il y'a un champ (catégorie) ce dernier est sous forme d'une liste de choix
je voudrais lorsque je fais un choix j'obtiens le formulaire associé à ce meme choix .
la liste de choix contient (cip, stage, prestation service, location materiel) et chaque choix a un formulaire du meme nom .
je connais pas beaucoup programmer avec access jusqu'à maintenant j'ai découvrit qu'il y'a ce qu'on appelle le vba est ce que je dois l'utiliser pour accomplir cette tâche
si oui pourriez vous m'écrire le code si non c'est quoi l'autre reponse.

[Jannus]

Bonjour,

Oui, ce que tu veux faire est posible en VBA.
Non, on ne va pas t'écrire le code

Nous sommes ici pour la plupart pour aider et partager nos connaissances.
Tu as à ta disposition des cours, des tutoriels, des FAQ.
Essaye au moins de te débrouiller et si tu bloques, on se fera un plaisir de t'aider, mais personne ne fera ton travail à ta place

[Mr T 94]

Salut,
il nous faudrait aussi un peu plus d'informations :
As-tu déjà créé tes formulaires à ouvrir ?
Quelle sont leur source ?
Y a t-il dedans des contrôles correspondants aux choix de ta liste ?

@ +

[yomaneoz]

oui j'ai déjà créer mes formulaires à ouvrir.
voilà l'action que je voudrai faire:
quand je choisis une catégorie de ma liste déroulante puis je qulique sur mon bouton de validation j'obtiens le formulaire correspondant à ce choix ;par exemple quand je qulique sur prestation service dans la liste déroulante j'obtiendrai le formulaire prestation service voilà quoi .
j'espére avoir repondu correctement à votre question.
merci

[Jacques-Henri]

Bonsoir yomaneoz,

Comme le dit Guardian, on va pas tout t'écrire sans qu'il y ait un effort de ta part. Alors pour répondre simplement à ta question, il existe avec access ce que l'on appelle l'assistant qui te permet (sans connaître quoique ce soit en VBA)de répondre à pas mal de problèmes.
Ta liste déroulante est bien sur un formulaire que tu affiches en mode création. Tu appelles la boîte à outils et tu sélectionnes "bouton de commande" et l'assistant va s'afficher.Tu suis ensuite les instructions selon l'action que tu veux exécuter, ici pour toi c'est "ouverture d'un formulaire". Ensuite, tu vas choisir le formulaire que tu désires ouvrir et tu sélectionnes " ouvrir le formulaire avec des informations spécifiques à afficher". Une fenêtre apparaît et tu mets en correspondance le champ de ta liste et le champ de ton formulaire que tu veux ouvrir. Et voilà le tour est joué.
Tu ouvres le formulaire à partir de ta sélection. Essayes et tiens nous informé.

[yomaneoz]

salut
Voilà meme si je connai rien en vba j'ai essayé d'écrire ce code é je voudrai savoir si c'est correcte?
________________________________________

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub nom_demande_Click()
Dim nombre As Integer
nombre = nom_demande.ListCount
MsgBox nombre
Select Case Me.Modifiable
Case Me.Modifiable.ItemData(1)
DoCmd.OpenForm "CIP-STAG"
Case Me.Modifiable.ItemData(2)
DoCmd.OpenForm "CIP-STAG"
Case Me.Modifiable.ItemData(3)
DoCmd.OpenForm "Location_Matériel"
Case Me.Modifiable.ItemData(4)
DoCmd.OpenForm "prestation_service"
Case Me.Modifiable.ItemData(4)
DoCmd.OpenForm "Festival"
End Select

_______________________________________
bon ça veut dire que si je qulique sur le premier item dans la liste déroulante ça va m'ouvrir le formulaire CIP_STAG et ainsi de suite ........
svp j'ai besoin de votre reponse dés que possible

[Pierre Fauconnier]

Bonsoir

Il y plus simple comme code, mais il me semble que le début est bon.

As-tu essayé ton code pour voir ce que cela donnait?

Si oui, quel est le résultat?

Si non, qu'attends-tu pour l'essayer?

[yomaneoz]

oui je l'ai essayé mais on m'affiche que le nombre de ligne de la liste déroulante puis après j'ai supprimer ces premiers lignes:

Code :

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

1
2
3
Dim nombre As Integer
nombre = nom_demande.ListCount
MsgBox nombre

pour tester l'essenciel :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Select Case Me.nom_demande
Case Me.nom_demande.ItemData(1)
DoCmd.OpenForm "CIP-STAG"
Case Me.nom_demande.ItemData(2)
DoCmd.OpenForm "CIP-STAG"
Case Me.nom_demande.ItemData(3)
DoCmd.OpenForm "Location_Matériel"
Case Me.nom_demande.ItemData(4)
DoCmd.OpenForm "prestation_service"
Case Me.nom_demande.ItemData(4)
DoCmd.OpenForm "Festival"
End Select

mais rien ne fonctionne pourriez vous me signaler où est le problème dans mon code .
merci

[Jacques-Henri]

Sorry pour ma réponse qui était hors contexte par rapport à ta question que je viens de relire plus lentement.Pour le reste , je regarde si je peux t'aider.

[Pierre Fauconnier]

Où as-tu mis ce code?

[yomaneoz]

je l'ai mis dans l'évenement sur clic de la liste déroulante comme procedure evenmentielle

[alex77140]

je n y connait pas grand chose non plus en vba mais a mon avis il faudrai mettre le code dans l'evenement sur clic de ton bouton de validation.

[User]

Il te faut utiliser la propriété ListIndex de ta liste

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Select Case Me.Modifiable.ListIndex
Case 0
DoCmd.OpenForm "CIP-STAG"
Case 1
DoCmd.OpenForm "CIP-STAG"
Case 2
DoCmd.OpenForm "Location_Matériel"
Case 3
DoCmd.OpenForm "prestation_service"
Case 4
DoCmd.OpenForm "Festival"
End Select
 
A+

[yomaneoz]

bon merci bien j'ai connu où est l'erreur dans ce que j'ai écri vraiment je vous remerci de tout mon coeur

[User]

En fait je crois que ta liste s'appelle nom_demande
si c'est le cas alors tu fais

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Select Case Me.nom_demande.ListIndex
Case 0
DoCmd.OpenForm "CIP-STAG"
Case 1
DoCmd.OpenForm "CIP-STAG"
Case 2
DoCmd.OpenForm "Location_Matériel"
Case 3
DoCmd.OpenForm "prestation_service"
Case 4
DoCmd.OpenForm "Festival"
End Select

A+