[Access] affich planning ss forme de tableau

Private Sub Liste_Catégorie_AfterUpdate() 

  Dim Chaine As String ' Variable de la chaine de caractères 
  Dim Critere As String ' Variable contenant la string "SQL" 
  Dim Indice As String ' Variable du critère de recherche 
  Dim Boucle As Long

  Indice = Forms![Formulaire Tableau].[MaListeDeroulante] 
  ' Création d'une chaine de caractères 
  Chaine = "Select * from [MaTable] where [MonChamp] = " 
  ' Création de la string "SQL" 
  Critere = Chaine & """" & Indice & """" 

  For Boucle = 1 to 16

    ' Appel fonction et changement de la requête 
    If (ChangeRequeteDef("RequeteSpecifique" & Boucle, Critere)) Then 
      ' Si réussite, ouvrir formulaire tableau 
      ' ici, je crois qu'un simple refresh du formulaire fera l'affaire,
      ' à  la fin du balayage de chaque requête si tu n'as pu l'adapter.
      ' Si Resultat <> Vide Alors
      '   CetteTextBox.Value = Enregistrementdelarequête.Champ
      ' Sinon
      '   CetteTextBox.Value = ""
      ' Fin Si 
    End If 
  Next Boucle
  Me.Refresh

End Sub 
'Pas tester !

Private Sub ListeDeNoms_AfterUpdate()

    Dim Chaine As String
    Dim Critere As String
    Dim varAcronyme As String
        
    If (Forms![frm_Liste].[ListeDeNoms] <> "") Then
        
        ' Ici, il faut reconstruire le requête avec la valeur
        ' du contrôle
        'SELECT tab_Liste.*, tab_Liste.Nom
        'FROM tab_Liste
        'WHERE (((tab_Liste.Nom)="Lupin"));
        
        varAcronyme = Forms![frm_Liste].[ListeDeNoms]
        Chaine = "Select tab_Liste.*,tab_Liste.Nom from [tab_Liste] where (((tab_Liste.Nom)="
        Critere = Chaine & """" & varAcronyme & """"
    
        ' Et ici on utilise une petite fonction pour modifier la requête
        If (ChangeRequeteDef("req_Liste", Critere)) Then
            DoCmd.OpenForm "frm_Liste", acNormal, "", "[ListeDeNoms]", , acNormal
        End If
    End If
    
End Sub

Public Function ChangeRequeteDef(ChaineRequete As String, ChaineSQL As String) As Boolean
    
    Dim Definition As Variant
    
    If ((ChaineRequete = "") Or (ChaineSQL = "")) Then
        ChangeRequeteDef = False
    Else
        Set Definition = CurrentDb.QueryDefs(ChaineRequete)
        Definition.SQL = ChaineSQL
        Definition.Close
        RefreshDatabaseWindow
        ChangeRequeteDef = True
    End If
    
End Function