Discussion :

[CLASSIQUE]

Bonjour,
Je me permets de vous faire une demande d’aide sur le sujet.
Comment créer un code évènementiel pour choisir l’ouverture d’un Formulaire, sur le choix d’un Article.
Si rouge ouvre un Formulaire Traca, ou si Vert ouvre l’autre formulaire Couleur
Si vous avez une solution
Cordialement
Jean jacques

Zone de liste déroulant : Utilisateur
Zone de liste déroulant : Gamme
Table : Gamme
1 Champ : Article
Et seulement 2 options : Rouge ou Vert

Code :

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

1
2
3
4
5
6
Private Sub Utilisateur_AfterUpdate()
Me.Gamme.Enabled = True
Me.Gamme.Locked = False
Me.Utilisateur.RowSource = Me.Utilisateur.RowSource
Me.Requery
End Sub

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
Private Sub Ouverture_Click()
If IsNull(Me.Utilisateur) Then
   MsgBox "Veuillez entrer un NOM SVP"
    DoCmd.GoToControl ("Utilisateur")
    Exit Sub
    End If
If IsNull(Me.Gamme) Then
    MsgBox "Veuillez entrer UNE Gamme SVP"
    DoCmd.GoToControl ("Utilisateur")
    Exit Sub
   End If
 
    DoCmd.OpenForm "TRACA"
 
End Sub

[tee_grandbois]

bonjour,

Si rouge ouvre un Formulaire Traca, ou si Vert ouvre l’autre formulaire Couleur
...
Et seulement 2 options : Rouge ou Vert

je ne vois pas où se situe la difficulté (ou alors je n'ai pas tout compris):

Code :

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

If Gamme = "Rouge" then docmd.openform "Traca" else docmd.openform "Lautre_frm"

[CLASSIQUE]

Bonjour Tee_Grandbois,

Je vous remercie de votre aide.
Cà fonctionne très bien.
Je reste novice en code événementiel.
C'est ce qui me fait Défaut, car j'ai déjà effectué quelques Bases qui sont très fonctionnelle dans le milieu de mon Travail.
Mes idées, et certaines parties faciles en Access me permettent d'avoir fait de jolies Bases.
Je dirais simplement que j'arrive à créer une belle voiture, Mais si je ne sais pas faire le Moteur.
C'est l'objet de mes demandes sur le site

Merci

Cordialement

Joyeux Nöel

Jean Jacques