Bonjour à tous,
J'ai un problème avec une liste déroulante qui ne veut pas se mettre à jour sous VBA/ACCESS 2007
J'ai un Formulaire Principale (FPrinc) avec un groupe d'option (GOption), un Sous-Formulaire (SForm) avec un contrôle en liste déroulante (ListD).
En fonction du choix de GOption je charge dans le RowSource de ListD une requête différente pour changer la liste de choix :
le code :
Private Sub T5M_perteFocus()
Dim stSQL As String
Dim lgNT5M As Long
lgNT5M = Me.C_TAC_NT5M ' récupération de la case cochée dans le Groupe d'option
Select Case lgNT5M ' sélection du code SQL correspondant
Case 1
stSQL = "SELECT T_MIL.C_MIL_NMIL, T_MIL.C_MIL_MIL " _
& "FROM T_MIL;"
Case 2
stSQL = "SELECT T_MTH.C_MTH_NMTH, T_MTH.C_MTH_MTH " _
& "FROM T_MTH;"
Case 3
stSQL = "SELECT T_MAC.C_MAC_NMAC, T_MAC.C_MAC_MAC " _
& "FROM T_MAC;"
Case 4
stSQL = "SELECT T_MAT.C_MAT_NMAT, T_MAT.C_MAT_MAT " _
& "FROM T_MAT;"
Case 5
stSQL = "SELECT T_MDO.C_MDO_NMDO, T_MDO.C_MDO_MDO " _
& "FROM T_MDO;"
End Select
Me.F2_RMI1.Form.C_RMI_NMIL.RowSource = stSQL ' Affection de la requête SQL au controle du sous-formulaire
End Sub
Cà marche bien, j'ai bien la bonne liste de choix.
Par contre, la valeur affichée ne correspond pas à la table sous-jacente sélectionnée dans la requete.
J 'ai essayé de forcer la mise à jour avec :
Me.F2_RMI1.Form.C_RMI_NMIL.Requery
et
Me.F2_RMI1.Requery
mais rien n'y fait :-(
Quelqu'un pourrait-il me donner une piste pour régler ce problème certainement assez classique !
Merci par avance de votre aide à tous