محمود حاتم احمد قام بنشر نوفمبر 16, 2020 مشاركة قام بنشر نوفمبر 16, 2020 السادة الافاضل بعد التحية والتقدير يوجد لدي مشكلة في الاكسس لدي زر يقوم بتنفيذ مجموعة استعلامات اضافة وتحديث واحيانا يقوم بتنفيذ البعض والبعض الآخر لا فهل يوجد كود فيجول بيسك لحل هذة المشكلة مثل php بحيث عند عدم تنفيذ جميع الاستعلامات يقوم بعمل rollback رابط هذا التعليق شارك More sharing options...
محمود حاتم احمد قام بنشر نوفمبر 17, 2020 الكاتب مشاركة قام بنشر نوفمبر 17, 2020 السادة الافاضل الرجاء المساعدة ولو ملهاش حل حد يرد عليا رابط هذا التعليق شارك More sharing options...
محمود حاتم احمد قام بنشر نوفمبر 18, 2020 الكاتب مشاركة قام بنشر نوفمبر 18, 2020 (معدل) دورت علي الانترنت وليقت الحل دة وتمام اشتغل معايا بس انا لازم اكتب جملة سكول لو اية امكانية انو يشغل استعلام بدل جملة سيكول ياريت حد يفيدني تم تعديل نوفمبر 18, 2020 بواسطه محمود حاتم احمد مرفق رابط هذا التعليق شارك More sharing options...
أفضل إجابة Barna قام بنشر نوفمبر 18, 2020 أفضل إجابة مشاركة قام بنشر نوفمبر 18, 2020 ممكن ترفق لنا اما الكود او مثال للاستعلامات حتى نجربها .... رابط هذا التعليق شارك More sharing options...
محمود حاتم احمد قام بنشر نوفمبر 19, 2020 الكاتب مشاركة قام بنشر نوفمبر 19, 2020 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 رابط هذا التعليق شارك More sharing options...
محمود حاتم احمد قام بنشر نوفمبر 19, 2020 الكاتب مشاركة قام بنشر نوفمبر 19, 2020 اولا فى حالة الخطاء يذهب الى Command21_DblClick_Err ويقوم بعمل Rollback DBEngine.BeginTrans تضع قبل اوامر السيكول وفى النهاية امر DBEngine.CommitTrans اما CurrentDb.Execute لتنفيذ الاستعلام dbFailOnError فى حالة الخطاء الكود دة اشتغل معايا تمام انا عاوز استخدم DoCmd.OpenQuery "add output of production", acViewNormal, acEdit استعلام كامل بدل محول كل استعلام لسيكول رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.