請問此程式碼該如何修改才可以一次連結多張資料表呢?
因使用雲端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$