Private Sub cmdcopyit_Click()

Dim dbs As Database

Set dbs = OpenDatabase("", , , "ODBC;")



If MsgBox("Warning!!@This will destroy existing tables in " _

    & dbs.Name & " with the same name as tables in " _

    & CurrentDb.Name _

    & "@Are you sure you want to continue?" _

    , vbApplicationModal + vbCritical + vbOKCancel + vbDefaultButton2, "Warning!!") _

    = vbCancel Then Exit Sub



Me.cmdcopyit.Caption = "Please wait..."

Me.Repaint



Dim tdf As TableDef, intCounter As Integer, retval

retval = SysCmd(acSysCmdInitMeter, " ", CurrentDb.TableDefs.Count)

For Each tdf In CurrentDb.TableDefs

    intCounter = intCounter + 1

    retval = SysCmd(acSysCmdUpdateMeter, intCounter)

    With tdf

      If tdf.Attributes = 0 Then

        On Error Resume Next

        dbs.Execute "DROP TABLE " & Chr(34) & .Name & Chr(34), dbSQLPassThrough

'        dbs.Execute "DELETE FROM " & Chr(34) & tdf.Name & Chr(34), dbSQLPassThrough

        On Error GoTo 0

        dbs.Execute "SELECT * INTO " & .Name & " FROM [" & CurrentDb.Name & "]." & .Name & ";"

      End If

    End With

Next tdf



dbs.Close

retval = SysCmd(acSysCmdRemoveMeter)

MsgBox "Copy finished!", vbInformation, "Finished"

Me.cmdcopyit.Caption = "Copy data to another back-end"

    

End Sub