[VBA]Requete & fonction

Public Function ChangeRequeteDef(ChaineRequete As String, _
                           ChaineSQL As String) As Boolean
    
    Dim Definition As QueryDef
    
    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

Private Sub Liste_Cassette_AfterUpdate()
    
    ' Ici l'exemple porte sur ma BD de ma vidéothèque.
    ' Une liste déroulante me permet de sélectionner
    ' un paramètres quelconque de ma requete, ici
    ' c'est le numéro de cassette

    Dim Chaine As String
    Dim Critere As String
    Dim CassetteVidéo As String
    Dim Ensemble As Recordset
    
On Error GoTo Liste_Cassette_Err

    ' Capture du paramètre
    CassetteVidéo = Forms![Formulaire Table Vidéo].[Liste Cassette]

    ' Création de la chaine SQL, ici la création se fait en 2 lignes
    ' par concaténation dans le but de simplifié la compréhension
    Chaine = "Select * from [Table Vidéo] where [Cassette] = "
    Critere = Chaine & """" & CassetteVidéo & """"
    
    ' La variable critere contient ici la chaine SQL
    If (ChangeRequeteDef("Requête Liste Spécifique Cassette", Critere)) Then
        
        ' Ouverture de la requete modifié
        Set Ensemble = CurrentDb.OpenRecordset("Requête Liste Spécifique Cassette")
        Ensemble.MoveLast
        Ensemble.MoveFirst

        ' Le but ici étant de déterminer le nombre d'enregistrement
        'de la requete.
        NbrRecherche.Value = Ensemble.RecordCount
        Ensemble.Close
        ' Ouverture du formulaire accroché sur cette requete.
        DoCmd.OpenForm "Formulaire Liste Spécifique Cassette", acNormal, "", "[Cassette]", , acNormal
    End If

Liste_Cassette_Exit:
    Exit Sub

Liste_Cassette_Err:
    MsgBox Error$
    Resume Liste_Cassette_Exit

End Sub