[Meteora]

Ο κώδικας που ακολουθεί βρίσκεται στη ενεργοποιημένη βάση (την τρέχουσα) εργασίας και με ένα κουμπάκι εκτελείται!

Private Sub btn_insert_dataClick()

    Dim fso
    Dim file As String
    file = "C:\mikapa\tbldeltio71.accdb"
    Set fso = CreateObject("Scripting.FileSystemObject")
    If Not fso.FileExists(file) Then
        MsgBox "Δεν εντοπίζεται το " & file, vbInformation, "Έλεγχος"
        Exit Sub
    Else
        MsgBox " Εντοπίστηκε το " & file, vbInformation, "Έλεγχος"
    End If

    Dim db As DAO.Database
    Dim ws As DAO.Workspace

    Dim strPath As String
    strPath = CurrentProject.FullName

    Set ws = DBEngine.Workspaces(0)
    Set db = ws.OpenDatabase("c:\mikapa\tblDeltio71.accdb", False, False, "MS Access;PWD=8401")

    db.Execute "INSERT INTO tblSxolio IN '" & strPath & "' SELECT tblSxolio.* FROM tblSxolio;"
    db.Execute "INSERT INTO tblKatigites1 IN '" & strPath & "' SELECT tblKatigites1.* FROM tblKatigites1;"
    db.Execute "INSERT INTO tblKatigites2 IN '" & strPath & "' SELECT tblKatigites2.* FROM tblKatigites2;"
  
    '...  ακολουθούν και άλλες εντολές μεταφοράς πινάκων όμοιες με τις προαναφερόμενες

    db.Close

    Me.Requery
    
    MsgBox "Τα δεδομένα μεταφέρθηκαν !", vbInformation, "Έλεγχος"
End Sub

Παρατηρήσεις:

• Η βάση - πηγή είναι η C:\mikapa\tbldeltio71.accdb
• Οι πίνακες -όπως βλέπεις έχουν ίδιο όνομα και αυτό δεν είναι αναγκαίο!
• Η έκφραση "MS Access;PWD=8401", αφορά την περίπτωση που η βάση-πηγή είναι κλειδωμένη με password to 8401
• Μη ξεχάσεις τα Reference (Δες επισυναπτόμενο)

Δεν έχω κάτι πιο απλό...


Με εκτίμηση
Νίκος