Moving Split Section of Access 97 DB

[JohnL55]

I split an Access 97 database. Then I needed to move the data section. How can I get the two halves in sync again?
Get an error can not find data.

[RogerH]

Hi,

call this proc with the name of the new database (works only with linked Access tables, no .dbf's etc.):

Sub Actual(DBName As String)
    Dim dbCurr As Database
    Dim tdfTab As TableDef
    
    Set dbCurr = CurrentDb
    
    For Each tdfTab In dbCurr.TableDefs    
        If tdfTab.Connect <> "" Then
            DoCmd.Rename tdfTab.Name & "_sik", acTable, tdfTab.Name
            DoCmd.TransferDatabase acLink, "Microsoft Access", DBName, acTable, tdfTab.Name, tdfTab.Name
            DoCmd.DeleteObject acTable, tdfTab.Name & "_sik"
        End If
    Next tdfTab

End Sub

Roger