Коллеги, добрый день.
Дано: SQL таблица - Spares, клиент - Access
линкую программно эту таблицу:
Sub Link()
Dim dbCurrent As Database
Dim tdTarget As TableDef
Dim fldLoop As Field
Set dbCurrent = CurrentDb()
Set tdTarget = dbCurrent.CreateTableDef("spares")
tdTarget.Connect = "ODBC;DSN=IDUSISREPORT;APP=Microsoft Office 2003;DATABASE=IDUS4;Trusted_Connectipon=Yes;Table=spares"
tdTarget.SourceTableName = "spares"
dbCurrent.TableDefs.Append tdTarget
dbCurrent.Close
Set tdTarget = Nothing
End Sub
Получаю таблицу только для чтения. Если вручную ее подключать через ODBC-спрашивает однозначный индекс, указываю поле id и вуаля-таблица с полным доступом.
Хочу полный доступ программно! Как? Спасибо.