Hi
Is there a way I can relink the SQL tables in Ms. Access using vba at one go rather than listing all the 120 tables one by one.

Details

Private Sub ChangeSourceBtn_Click()
    Dim db As DAO.Database
    Dim tdf As DAO.TableDef
    
    Set db = CurrentDb
    
    For Each tdf In db.TableDefs
        ' Only make a change if the table is a linked table
        If Len(tdf.Connect) Then
            tdf.Connect = Me.SourcePulldown
            tdf.RefreshLink
        End If
    Next
End Sub

I want also to copy all the 120 tables from my cloud database to another instead of recreating all the 120 table one by one.