请问此程式码该如何修改才可以一次连结多张资料表呢?
因使用云端SQL的关系,连结一张即会有短短时间的延迟,
但整套系统会有数十张造成等待时间会满长的
Set t = CurrentDb.OpenRecordset("select * from LINK_Table")
RecCount = t.RecordCount
For i = 1 To RecCount
Set ntb = Db.CreateTableDef(t("tbName"))
ntb.Connect = "odbc;Driver={ODBC Driver 13 for SQL Server};"
ntb.SourceTableName = t("tbName")
Db.TableDefs.Append ntb '连结资料表
t.MoveNext
Next
Loop
费用:500$