Un-split database

[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,

 

[Mike Labosh]

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......

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

 

[Fred Boer]

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

 

[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

 

[Mike Labosh]

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..

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*

 

[Jeff Conrad]

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

 

[Fred Boer]

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

Fred

 

[Jeff Conrad]

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.
;-)

 

[Fred Boer]

Ok, ok, you win... <g>

Fred

 

[George Nicholson]

- Change the name of the backend.
- Open the frontend.
- Tools>DatabaseUtilities>LinkedTableManager
- Point your tables to their "new" source