Search results for query: *

Hi Ed, I have reversed the order of the form code and it is no longer giving the error message : Private Sub complete_Click() On Error GoTo errorhandle: Dim db As Database Set db = Application.CurrentDb Set ws = DBEngine.Workspaces(0) 'validation function If complValidate = True Then...

Main form code - Form_FixingForm Private Sub complete_Click() On Error GoTo errorhandle: Dim db As Database Set db = Application.CurrentDb Set ws = DBEngine.Workspaces(0) 'validation function If complValidate = True Then fixing.setProptoForm If fixing.CouponPayDate Mod 7 = 1 Or...

Ed, That would be a lot of code to send to you. There is only the one database and I have not created any additional workspaces in code. There are no begintrans/commit blocks in the classes. The only place that the workspace variable gets set is in the calling code. Between the begintrans and...

Thanks Ed. Unfortunately I had already tried that. So the problem is deeper than that. The recordset updates are done with class methods. So : ws.begintrans class1.update class2.update ws.committrans errorhandle: ws.rollback Any reason reason why this should not work ? I have made sure...

Hi, I have two recordsets (one record in each ) that are being updated with recordset.update. I want to be able to rollback if either of these records is locked. Does begintrans only permit rollback for a single recordset ? I have tried a couple of methods, one being : on error goto...