Open Linked table manager on error? (2003)

Topic

New Reply

Hello my dear friends,

In my database I want to check right away if all linked tables are linked correctly. If not, the linked table manager (or a form in the same purpose) should be opened to link all tables to the right positions.

When I rename my table-backend for testing purposes I get the Error 3044 right away when I start up the database (cuz I have a DLookup in the startup form). Now I tried several approaches such as On Error DoCmd.COmmand.accCmdLinkedTable Manager and so on – nothing worked.

Maybe you guys can present me a solution?!?

Thanks
Dennis

Reply | Quote

Replies

Use another form as startup form and test the links there. The Solutions9.mdb sample database from Microsoft Access 2000: Building Applications with Forms and Reports, Sample Applications Download shows how to do this.

Reply | Quote

Hmm yeah it’s in tehre but with a lot of code. I thought of something smaller.

My idea goes as far as this: (no real code, just thought process)

If Error 3044 On DLookup(Something in some table) Goto Error
Else Goto NoError

:Error
Msg “Linked tables not found”
DoCmd.Command acCmdLinkedTableManager

:NoError
Continue

I hope you get what I mean. The Microsoft approach just seems a lil bit too much for my needs.

Dennis

Reply | Quote

You could use something like this, where tblLinked is a linked table:

Private Sub Form_Load()
Dim lngDummy As Long

On Error GoTo Err_Handler
lngDummy = DCount(“*”, “tblLinked”)
Exit Sub

Err_Handler:
MsgBox “Please relink the tables”, vbExclamation
RunCommand acCmdLinkedTableManager
End Sub

Note that it’s RunCommand, not Command, and you don’t need to prefix it with DoCmd.

Reply | Quote

Man, that works perfect! Thanks alot.

Good that I didn’t have to implement that huge solution by microsoft

Dennis

Reply | Quote