С помощью счетчика:
Dim myArr As Variant
Dim counter as Integer
Do While (some condition)
ReDim Preserve myArr(counter)
myArr(counter)=Trim(variable_name)
Loop
Чтобы сделать это немного дальше, чем псевдо-код
Dim myArr as Variant
Dim counter as Integer
Dim x as Integer
x = 2
Do While x < 10
ReDim Preserve myArr(counter)
myArr(counter) = x
debug.print Ubound(myArr)
debug.print myArr(counter)
x = x * 2
Loop
Под SQL '05 Вы на самом деле не должны использовать триггеры. Просто смотрите на ВЫХОДНОЙ пункт. ВЫВОД работает со вставками, обновлениями, и удаляет.
Например:
INSERT INTO mytable(description, phone)
OUTPUT INSERTED.description, INSERTED.phone INTO #TempTable
VALUES('blah', '1231231234')
Затем можно сделать то, что Вы хотите с #TempTable, таким как вставка тех записей в регистрирующуюся таблицу.
Как примечание стороны, это - чрезвычайно простой способ получить значение поля идентификационных данных.
Можно использовать Спасение Журнала. Это вполне то же как Проводник Журнала, но это свободно.
Это может просмотреть историю каждой строки в любых таблицах с регистрирующейся информацией пользователя, действия и время.
И можно отменить к любым версиям строки без базы данных набора к режиму восстановления.