Выделение всех позиций и создание таблицы.

[Vasiliy Pupkin]

Приветствую!
1) У меня есть форма одной таблицы, созданная мастером форм. На ней есть кнопка, которая прибавляет целое число, введенное ранее в созданное поле, к выделенной позиции столбца. Все работает хорошо, но я не могу сообразить, как мне этой кнопкой ВЫДЕЛИТЬ ВСЕ позиции нужного СТОЛБЦА, чтобы число прибавлялось не к одной выделенной позиции, а ко всему столбцу. Потому что сначала нужно выделить нужную строку и к ней будет прибавление. А я хочу, чтобы выделять самому не нужно было.
Код кнопки на данный момент:

Private Sub Кнопка39_Click()
[Педагогический стаж].Value = [Педагогический стаж].Value + [Поле41].Value
End Sub
2) Есть кнопка, создающая новую таблицу. В ней записано имя. Когда пытаешься повторно создать таблицу, то выдается ошибка, что является верным. Но я хочу, чтобы каждый раз, когда нажималась кнопка, создавалась таблица с именем И С ИДЕНТИФИКАТОРОМ. Например, "Новая1", "Новая2" и т.д.
Код кнопки на данный момент:


Private Sub Кнопка48_Click()
Dim db As DAO.Database, tdf As TableDef, fld1 As Field
Set db = CurrentDb
Set tdf = db.CreateTableDef("Новая1")
Set fld1 = tdf.CreateField("Код", dbText, 150)
tdf.Fields.Append fld1
db.TableDefs.Append tdf
End Sub

[Aleksandr H.]

Без файла базы вероятность получить ответ низкая

[Vasiliy Pupkin]

Сообщение от Aleksandr H.

Без файла базы вероятность получить ответ низкая

Объем 1.81, превышает размер. Поэтому не загрузится, к сожалению.

[shanemac51]

базу ведь можно
--сжать --в аксе есть галочка
--зазиповать перед выкладыванием на форум

[Aleksandr H.]

Сообщение от Vasiliy Pupkin

Объем 1.81, превышает размер. Поэтому не загрузится, к сожалению.

ну раз так все серьезно что нельзя удалить пару-десять записей или выложить гдето на обменник, то
1. на кнопку повесь docmd.runsql c Update'ом всего столбца.
2.

Set tdf = db.CreateTableDef("Новая" & Format(Now, " ddmmyyyyhms"))