Discussion :

[Mstrflux]

Bonjour,
J'ai créé un formulaire comprenant un groupe de 3 options. Lorsqu'une option est cochée (Chk_2 par exemple) elle déclenche l'apparition d'une liste déroulante alimentée par une requête.
Lorsqu'une autre option est cochée la liste déroulante n'est plus visible.
Le problème rencontré est le suivant : La liste apparaît mais reste vide. La requête semble ne pas se charger alors que j'ai mis un .requery sur le combo qui réceptionne les résultats de la requête
Je n'ai pas ce problème si je remplace le groupe d'options par des cases à cocher.



Voici la feuille de propriétés du combo :

Voici le code VBA du formulaire :

Private Sub Chk_1_GotFocus()
Me.Cmb_nouv_projet.Visible = True
End Sub

Private Sub Chk_1_LostFocus()
Me.Cmb_nouv_projet.Visible = False
End Sub

Private Sub Chk_2_GotFocus()
Me.Cmb_projet_en_cours.Visible = True
Me.Cmb_projet_en_cours.Requery

End Sub


Private Sub Chk_2_LostFocus()
Me.Cmb_projet_en_cours.Visible = False
End Sub

Private Sub Cmb_projet_en_cours_AfterUpdate()
Me.Cmb_projet_en_cours.Requery
End Sub

Private Sub Cmb_projet_en_cours_Click()
Me.Cmb_projet_en_cours.Requery
End Sub

Private Sub Form_Load()
Me.Cmb_nouv_projet.Visible = False
Me.Cmb_projet_en_cours.Visible = False
Me.Cmb_proj_termine.Visible = False

End Sub

Merci d'avance pour votre aide.