Не надо так открывать транзакцию - Акс так почему-то не понимает
(на форуме это вроде было)

Делай так:

ЛПпапаримский, ты чему людей учишь?
у датабазы нету метода BeginTrans
сей метод есть у воркспейса

кстати, все аксес понимает. у меня по крайней мере всегда понимал.

Пардона прошу - заработался БЛИН!!!

Действительно не воркспасе

Но вот про понимает - это надо проверять (у мну не работает - Акс 97)

Типа пример из хелпа (кстати в примере тоже не работают на прямую!!!):
авторВ следующем примере в таблице «Сотрудники» изменяются названия должностей всех сотрудников, являющихся представителями. Метод BeginTrans начинает транзакцию, изолирующую все изменения в таблице «Сотрудники», а метод CommitTrans сохраняет внесенные изменения. Метод Rollback служит для отмены изменений, сохраненных с помощью метода Update. В примере также показано, как установить флаг для корректной обработки ошибок, возникающих во время транзакции.

Пока пользователь решает, сохранять ли ему изменения или нет, одна или несколько страниц таблицы остаются заблокированными. Поэтому, нижеследующую процедуру не рекомендуется применять на практике, она приведена только в качестве примера.

Sub ChangeTitle()
Dim wsp As Workspace, dbs As Database, rst As Recordset
Dim strName As String, strMessage As String, strPrompt As String
Dim fInTrans As Boolean

On Error GoTo ChangeTitleErr

fInTrans = False
strPrompt = "Изменить должность на 'Менеджер по продажам'?"
' Возвращает ссылку на заданный по умолчанию объект Workspace.
Set wsp = DBEngine.Workspaces(0)
' Возвращает ссылку на текущую базу данных.
Set dbs = CurrentDb
' Создает табличный объект Recordset.

Set rst = dbs.OpenRecordset("Сотрудники", dbOpenTable)
' Начало транзакции.
wsp.BeginTrans
fInTrans = True
rst.MoveFirst
Do Until rst.EOF
If rst!Должность = "Представитель" Then
strName = rst!Фамилия & ", " & rst!Имя
strMessage = "Сотрудник: " & strName & vbCrLf & vbCrLf
If MsgBox(strMessage & strPrompt, vbQuestion + vbYesNo, _
"Изменить должность") = vbYes Then
' Разрешает редактирование.
rst.Edit

rst!Должность = "Менеджер по продажам"
' Сохраняет изменения.
rst.Update
End If
End If
' Переходит к следующей записи.
rst.MoveNext
Loop
If MsgBox("Сохранить все изменения?", vbQuestion + vbYesNo, _
" Сохранение изменений") = vbYes Then
wsp.CommitTrans ' Принимает изменения.
Else
wsp.Rollback ' Отменяет изменения.
End If
ChangeTitleExit:
rst.Close
Set dbs = Nothing

Set wsp = Nothing
Exit Sub
ChangeTitleErr:
MsgBox "Ошибка!"
If fInTrans Then
wsp.Rollback
End If
Resume ChangeTitleExit
End Sub

Все понял - был не прав

Молчу - молчу - молчу

ЗЫ: Но лучше (ИМХО) ссылки всегда сохранять, чтобы не наступить на очередные грабли от мелкомягких!