مساعدة في حل مشكلة عند الترحيل

[محمود حاتم احمد]

السادة الافاضل بعد التحية والتقدير يوجد لدي مشكلة في الاكسس لدي زر يقوم بتنفيذ مجموعة استعلامات اضافة وتحديث واحيانا يقوم بتنفيذ البعض والبعض الآخر لا فهل يوجد كود فيجول بيسك لحل هذة المشكلة مثل php بحيث عند عدم تنفيذ جميع الاستعلامات يقوم بعمل rollback 

[محمود حاتم احمد]

السادة الافاضل الرجاء المساعدة ولو ملهاش حل حد يرد عليا

[محمود حاتم احمد]

دورت علي الانترنت وليقت الحل دة وتمام اشتغل معايا بس انا لازم اكتب جملة سكول لو اية امكانية انو يشغل استعلام بدل جملة سيكول ياريت حد يفيدني

تم تعديل نوفمبر 18, 2020 بواسطه محمود حاتم احمد
مرفق

[Barna]

ممكن ترفق لنا اما الكود او مثال للاستعلامات حتى نجربها ....

[محمود حاتم احمد]

Private Sub Command21_DblClick(Cancel As Integer)
On Error GoTo Command21_DblClick_Err
            DBEngine.BeginTrans
             CurrentDb.Execute "UPDATE production, [r sales invoice acc] SET production.[number] = [production]![number]-[r sales invoice acc]![number] WHERE ((([r sales invoice acc].auto)=[production]![auto]) AND (([r sales invoice acc].[kind code])='5shem') AND (([r sales invoice acc].[order number])=[Forms]![p sales invioce]![m1]));", dbFailOnError
             CurrentDb.Execute "write the sql here", dbFailOnError//dont forget this
             DBEngine.CommitTrans
             MsgBox "the invoice was migrated", vbInformation, "migrated"
           
             DoCmd.GoToRecord , "", acNewRec
Command21_DblClick_Exit:
                Exit Sub
            
Command21_DblClick_Err:
               DBEngine.Rollback
               MsgBox "roll back:" & vbCr & Err.Description
                Resume Command21_DblClick_Exit

 

End Sub

[محمود حاتم احمد]

اولا فى حالة الخطاء يذهب الى Command21_DblClick_Err ويقوم بعمل Rollback  

DBEngine.BeginTrans تضع قبل اوامر السيكول وفى النهاية امر DBEngine.CommitTrans  اما CurrentDb.Execute لتنفيذ الاستعلام dbFailOnError فى حالة الخطاء  الكود دة اشتغل معايا تمام  انا عاوز استخدم  DoCmd.OpenQuery "add output of production", acViewNormal, acEdit   استعلام كامل بدل محول كل استعلام لسيكول