Mã VBA để thêm bảng được liên kết với khóa chính

Tại sao bạn không thể tạo chỉ mục cho nguồn ODBC sau khi liên kết?

Tại nơi làm việc, chúng tôi đang sử dụng Access với các bảng SQL Server được liên kết và khi ai đó muốn kết nối với một cơ sở dữ liệu khác (thay đổi từ môi trường sản xuất sang môi trường thử nghiệm), chúng tôi sẽ làm như sau cho tất cả các bảng:

Dim TD As TableDef
Dim ConString As String

ConString = "ODBC;DRIVER={SQL Server};SERVER=ServerName;DATABASE=DbName;Trusted_Connection=Yes;"

CurrentDb.TableDefs.Delete "SomeTable"

Set TD = CurrentDb.CreateTableDef("SomeTable", 0, "SomeTable", ConString)
CurrentDb.TableDefs.Append TD
Set TD = Nothing

CurrentDb.Execute "CREATE UNIQUE INDEX SomeIndex ON SomeTable (PrimaryKeyColumn) WITH PRIMARY"