Bonjour Dolphy!!
Voici le code situé dans Propriétés, Données, Contenu de ma liste 2
SELECT [T_Etage_profil].[ID], [T_Etage_Profil].[Désignation_Etage] FROM T_Etage_Profil WHERE [T_Etage_Profil].[IDMoteur]=[Forms]![F_Caractérisation_JEU].[Choix_Moteur];
Et voici le code associé au choix en fonction des selections faites. Ce deuxieme code fonctionne correctement pour les 2 premiers moteurs, donc devrait bien fonctionner pour le reste...
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32
| Case 7 'Option GE90-1
Select Case Choix_Prof
Case 1
stDocName = "F_GE90-1_NGV1_BP"
Case 4
stDocName = "F_GE90-1_NGV1_HP"
Case 5
stDocName = "F_GE90-1_NGV2_HP"
Case 7
stDocName = "F_GE90-1_HPT1"
Case 8
stDocName = "F_GE90-1_HPT2"
End Select
End Select
DoCmd.OpenForm stDocName, , , stLinkCriteria
DoCmd.OpenForm stDocName, , , stLinkCriteria
Application.DoCmd.Close acForm, Me.Name
Exit_Ouvre_le_formulaire_associé_aux_choix_des_listes_Click:
Exit Sub
Err_Ouvre_le_formulaire_associé_aux_choix_des_listes_Click:
MsgBox Err.Description
Resume Exit_Ouvre_le_formulaire_associé_aux_choix_des_listes_Click
End Sub |
Il me semble que le probleme se situe plus au niveau du code de ma liste2 ou peut etre meme au niveau des relations tables ?
Merci
Partager