Odbc Connection

[scorpio_x73]

Hi i would like to make a question about ODBC i have created an access database that connects via ODBC to an SQL server database, with the help of someone else i have created this code that works well for the link of 1 table that i choose to link the problem is that i want to link all tables from database and not doing it 1 by 1.

Is there a way to link all tables from database ???

The code i'm using is :

Dim strConnect As String
Dim strDatabase As String
Dim strTableName As String

strDatabase = DataBase_Now.Value

strTableName = "Tbl_A_Yles"

strConnect = "ODBC;Driver={SQL Server};Server=" & Server_Ip & ";DATABASE=" & strDatabase & ";UID=" & Server_User & ";PWD=" & Server_Pass & ";"

'Checks to see if table exists. If it does, delete it.
If TableExists(strTableName) Then DoCmd.DeleteObject acTable, strTableName

'And then use the trusty old TransferDatabase method to re-link the table declared in strTableName from the SQL Server
DoCmd.TransferDatabase acLink, "ODBC Database", strConnect, acTable, strTableName, "dbo_Tbl_A_Yles"


Thanks in advance.

 

[wazz]

this is not my area of expertise, but, i think you want a "FOR EACH table IN tabledefs...NEXT..." routine...i think there are other threads about this.