Un-split database

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Hi

I have a database that I split. Is it possible to "un-split" a database. I
want to rename the database and can't figure out to do it. If I rename both
the front end and back end the front end can't find the backend......

Thanks,
 
I have a database that I split. Is it possible to "un-split" a database.
I
want to rename the database and can't figure out to do it. If I rename
both
the front end and back end the front end can't find the backend......
Click to expand...

Open the front end, delete the linked tables, and import the tables from the
backend.
 
Dear Phil:

In addition to Mike's suggestion, you could use the "Linked Table Manager"
which is found on the menu at Tools>Database Utilities>Linked Table Manager.
Using the front end file, navigate to the Linked Table Manager, check
"Always prompt for new location", Select the tables you want to re-link,
click on "OK", and browse to the back end file....



HTH
Fred Boer
 
Dear Mike:

I have re-joined linked tables in the manner you describe. I'm curious,
though: do you select and delete each table in turn, or do you have a
quicker way to do it? As far as I can tell, you can't select all tables and
delete them all at once..

I suppose it might be possible to open the immediate window and do it with a
single line of vba...

Fred
 
I have re-joined linked tables in the manner you describe. I'm curious,
though: do you select and delete each table in turn, or do you have a
quicker way to do it? As far as I can tell, you can't select all tables
and delete them all at once..
Click to expand...

Whenever I have done this, I turned off the "Warn on deleting objects" and
just goto table view and hit del del del del del del. (just watch out you
don't delete any *actual tables* :)
 
Here you go Fred:

' Code Start
Public Sub DeleteLinkedTables()
On Error GoTo ErrorPoint

Dim intI As Integer
Dim strLinkName As String

For intI = CurrentDb.TableDefs.Count - 1 To 0 Step -1
If CurrentDb.TableDefs(intI).Attributes = dbAttachedTable Then
strLinkName = CurrentDb.TableDefs(intI).Name
CurrentDb.TableDefs.Delete strLinkName
End If
Next

ExitPoint:
Exit Sub

ErrorPoint:
MsgBox "The following error has occurred:" _
& vbNewLine & "Error Number: " & Err.Number _
& vbNewLine & "Error Description: " _
& Err.Description, vbExclamation, _
"Unexpected Error"
Resume ExitPoint

End Sub
' Code End
 
I said a *single* line of vba, Jeff! <g>
Of course, I could always put it in a public function! ;)
Thanks!

Fred
 
Just copy/paste to a new module Fred.

You did say:
"I suppose it might be possible to open the immediate
window and do it with a single line of vba..."

Just open the Immediate Window, type
DeleteLinkedTables
and hit enter.

Look like one line to me.
;-)
 
- Change the name of the backend.
- Open the frontend.
- Tools>DatabaseUtilities>LinkedTableManager
- Point your tables to their "new" source
 
Back
Top