Доступ к VBA - добавить новый столбец в существующую таблицу с именем фактической таблицы

Question

Я импортировал различные таблицы - WIP_100_AGR_USERS, WIP_100_USR06, WBP_100_USR02 с их настоящими именами, как они были загружены из SAP.Теперь мне нужно добавить столбец "SYSTEM_NO", где будет имя таблицы с помощью VBA для ACCESS рядом со всеми другими записями в конкретной таблице.

Например, у меня есть таблица WIP_100_USR06, поэтому результат будет:

AGR NAME| SYSTEM NO
________|______________
ashkjas | WIP_100_USR_06
asdjhjh | WIP_100_USR_06

Спасибо !!!

Answer 1

Если ни в одной из ваших таблиц уже нет поля с именем SYSTEM NO, тогда это должно работать:

Sub InsertNameField()

    Dim tdf As DAO.TableDef

    For Each tdf In CurrentDb.TableDefs
        If Left(tdf.Name, 4) <> "MSys" And Left(tdf.Name, 1) <> "~" Then
            CurrentDb.Execute "ALTER TABLE [" & tdf.Name & _
                "] ADD COLUMN [SYSTEM NO] TEXT(255)", dbFailOnError

            CurrentDb.Execute "UPDATE [" & tdf.Name & _
                "] SET [SYSTEM NO] = '" & tdf.Name & "'", dbFailOnError

        End If
    Next tdf

    MsgBox "Finished."

End Sub

NB Сначала протестируйте копию вашей базы данных.