Добавить автоматическое значение в таблицу доступа

Question

У меня есть импорт из Excel в Access. Это работает довольно хорошо. Моя единственная проблема заключается в том, что после импорта нет столбца с автоматическим значением (первичный ключ).

Это мой импорт:

Private Sub Befehl1_Click()
    DoCmd.TransferSpreadsheet acImport, 10, _
       "Tabelle1", "C:\Users\u054535\Desktop\Mappe1.xlsx", True, "Tabelle2!A1:H13"
End Sub

Кто-нибудь знает, как добавить в импорт столбец с автоматическим значением? Это вообще возможно?

Answer 1

Попробуйте это:

Private Sub Befehl1_Click()
    DoCmd.TransferSpreadsheet acImport, 10, _
       "Tabelle1", "C:\Users\u054535\Desktop\Mappe1.xlsx", True, "Tabelle2!A1:H13"

    'Add an AutoNumber column
    CurrentDb.Execute "ALTER TABLE Tabelle1 ADD COLUMN ID COUNTER"
End Sub

Answer 2

Параметры:

1. импорт в уже существующую таблицу

2. запуск действия ALTER TABLE SQL после импорта

3. использовать спецификацию импорта