Подскажите, плз, есть ли в Access такая вещь, как "начало транзакции" и "конец транзакции", т.е. чтоб если комп например вдруг вырубился делался откат и данные не пропадали?

Workspace.BeginTrans - начало
Workspace.CommitTrans - конец
Workspace.Rollback - откат

я правильно понимаю?

и еще, это касается всех операций или только например запросов? у меня есть огромная функция, с кучей ветвлений, для работы с данными используется DAO. Могу ли я просто поставить в начале и в конце функции признаки начала и завершения транзакции? И если я разобью это функцию на несколько мелких, которые будут вызываться из одной главной, можно ли будет ставить признаки начала и завершения транзакции в этой ф-ции или это надо будет делать непосредственно в вызываемых ф-циях?

Закрепляем пройденый материал :-)))

Правильно ли будет так написать процедуру:

Private Sub Import_Click()

Dim ws As DAO.Workspace
Dim dbMyDB As DAO.Database
Dim rcdProd As DAO.Recordset
Dim rcdRealiz As DAO.Recordset

On Error GoTo err

Set ws = DBEngine(0)
Set dbMyDB = CurrentDb()
Set rcdProd = dbMyDB.OpenRecordset("tblMowe")
Set rcdRealiz = dbMyDB.OpenRecordset("tblNewRealiz")

ws.BeginTrans

Do Until rcdRealiz.EOF

With rcdProd
.AddNew
![Price ãðí] = rcdRealiz![Price otp]
![Price rozn] = rcdRealiz![Price]
![Skidka_Value] = rcdRealiz![Skidka]
![Prodavec] = rcdRealiz![Merch]
![DK_Num] = rcdRealiz![DK] + " "
![ID] = Me![ID]
.Update
End With
rcdRealiz.MoveNext

Loop

rcdRealiz.Close

DoCmd.SetWarnings False
DoCmd.RunSQL "DELETE tblNewRealiz.* FROM tblNewRealiz;"
DoCmd.SetWarnings True

DoCmd.DeleteObject acTable, "tblNewRealiz"
Me.Requery
ws.CommitTrans

ext:

ws.Close
Set ws = Nothing
Set dbMyDB = Nothing
Set rcdProd = Nothing
Set rcdRealiz = Nothing
Exit Sub

err:
ws.Rollback
GoTo ext

End Sub

или я чегой-то недопонял?

> То что ты делаешь в цикле элементарно делается через SQL-инструкцию "UpDate...Set...", что будет гораздо быстрее.

дык, это ж я для примера взял кусок какого-то старого кода, первое что попалось...


Всем большое спасибо, очень помогли.