Private Sub Knjizi_Click()
On Error GoTo Knjizenje_ERR
Dim Transakcija As Workspace
DoCmd.RunCommand acCmdSaveRecord
DoCmd.Hourglass True
Set Transakcija = DBEngine.Workspaces(0)
Transakcija.BeginTrans
Knjizi_Glavnu
Transakcija.CommitTrans
DoCmd.Hourglass False
DoCmd.Close acForm, Name
Exit Sub
Knjizenje_ERR:
Transakcija.Rollback
DoCmd.Hourglass False
Select Case Err.Number
Case 94: zxzBox "Nema podataka"
Case 3021: zxzBox "Nema sloga"
Case Else: zxzBox Err.Number & " " & Err.Description
End Select
End Sub
Ono "Knjizi_Glavnu" je VBA modul u kojem napišem proceduru za knjiženje. Tehnika je dobra iz razloga eventualnog prekida jer se na ovaj način ili proknjiži sve i na kraju dobije pozitivna poruka ili u slučaju greške sve vrati na staro. Nema polovično proknjiženih podataka.
Zidar verujem zna za transakcije ali neka ostane na forumu za neka eventualna interesovanja.
Odgovor Zidaru: Koristim indikatore stanja.
[Ovu poruku je menjao Getsbi dana 06.06.2007. u 23:46 GMT+1]