Access Résolu - ACCESS 2016 Parcourir l'ensemble des tables de données

Public Sub Recherche()
    ' Déclaration des variables
   
    Dim strCommeTable As String
    Dim strDonnee As String
    Dim objTDF As TableDef
    Dim objFld As Field
    Dim strSql As String
    Dim rst As DAO.Recordset
   
    ' Initialisation des variables
    strCommeTable = "2"                ' saisir par quoi doit commencer la table
    strDonnee = "C011019"             ' valeur que l'on recherche
   
    ' parcours des tables de la base qui correspondent à un critère
   
    For Each objTDF In CurrentDb.TableDefs
        If objTDF.Name Like strCommeTable & "*" Then
        ' maitenant on parcours les champs de la table
            For Each objFld In objTDF.Fields
                Debug.Print objFld.Name
                strSql = "SELECT [" & objFld.Name & "] FROM [" & objTDF.Name & "] WHERE [" & objFld.Name & "] = '" & strDonnee & "'"
                Set rst = CurrentDb.OpenRecordset(strSql)
                While Not rst.EOF
                    MsgBox objTDF.Name & "  -  " & objFld.Name
                rst.MoveNext
                Wend
   
           Next objFld
        End If
    Next objTDF
   
End Sub