أبو حوده قام بنشر مارس 31, 2017 قام بنشر مارس 31, 2017 هل ممكن التعويض عن استعلام حذف بوحدة ماكرو نظرا لكثرة الداتا الموجودة بالقاعدة وتعليق الجهاز لوجود معايير بالاستعلام والانتظار لفترة طويلة لحين الانتهاء من تنفيذ الحذف قاعدة بيانات1).rar
Shivan Rekany قام بنشر مارس 31, 2017 قام بنشر مارس 31, 2017 في 31/3/2017 at 20:52, هانى الحلاج said: هل ممكن التعويض عن استعلام حذف بوحدة ماكرو نظرا لكثرة الداتا الموجودة بالقاعدة وتعليق الجهاز لوجود معايير بالاستعلام والانتظار لفترة طويلة لحين الانتهاء من تنفيذ الحذف قاعدة بيانات1).rarFetching info... Expand اسف انا لا اعرف الكثير على الماكروات لكن اتفضل جرب ان تستخدم هذا الكود بدل تلك الاستعلامات ووافيني بالنتيجة Private Sub Form_Open(Cancel As Integer) Dim Sql As String Dim Sql1 As String Sql = "DELETE OrderTbl.Order, Now()-[OrderTbl]![date_workEnd] AS lastdate, OrderTbl.ekhteyr FROM OrderTbl WHERE (((Now()-[OrderTbl]![date_workEnd])>=30) AND ((OrderTbl.ekhteyr)=True));" Sql1 = "DELETE PtDataTBL.PtID FROM PtDataTBL WHERE (((PtDataTBL.PtID) Not In (SELECT OrderTbl.PtNo FROM OrderTbl;)));" DoCmd.RunSQL (Sql) DoCmd.RunSQL (Sql1) Me.Requery End Sub تحياتي 4
محمدنجار قام بنشر مارس 31, 2017 قام بنشر مارس 31, 2017 (معدل) في 31/3/2017 at 22:37, Shivan Rekany said: Private Sub Form_Open(Cancel As Integer) Dim Sql As String Dim Sql1 As String Sql = "DELETE OrderTbl.Order, Now()-[OrderTbl]![date_workEnd] AS lastdate, OrderTbl.ekhteyr FROM OrderTbl WHERE (((Now()-[OrderTbl]![date_workEnd])>=30) AND ((OrderTbl.ekhteyr)=True));" Sql1 = "DELETE PtDataTBL.PtID FROM PtDataTBL WHERE (((PtDataTBL.PtID) Not In (SELECT OrderTbl.PtNo FROM OrderTbl;)));" DoCmd.RunSQL (Sql) DoCmd.RunSQL (Sql1) Me.Requery End Sub Expand اخي العزيز شيفان ... اعتقد علينا ازالة الفارزة المنقوطة اخر جملة SQL تحياتي لك .. تم تعديل مارس 31, 2017 بواسطه محمدنجار 2
Shivan Rekany قام بنشر مارس 31, 2017 قام بنشر مارس 31, 2017 في 31/3/2017 at 22:51, محمدنجار said: اخي العزيز شيفان ... اعتقد علينا ازالة الفارزة المنقوطة اخر جملة SQL تحياتي لك .. Expand شكرا لك استاذنا نعم صحيح اذا بيحذفنا راح يشتغل بشكل عادي لكن اذا ما نحذفه هم بيشتغل بشكل عادي من شان مشاركتك انا جربت مرة اخرى بدون نحذفه هل بيشتغل ام لا وطلعت مافيه مشكلة مع تحياتي اخوك الصغير شفان ريكاني 2
محمدنجار قام بنشر مارس 31, 2017 قام بنشر مارس 31, 2017 في 31/3/2017 at 22:56, Shivan Rekany said: شكرا لك استاذنا نعم صحيح اذا بيحذفنا راح يشتغل بشكل عادي لكن اذا ما نحذفه هم بيشتغل بشكل عادي من شان مشاركتك انا جربت مرة اخرى بدون نحذفه هل بيشتغل ام لا وطلعت مافيه مشكلة مع تحياتي اخوك الصغير شفان ريكاني Expand اعتذر عن تدخلي السافر استاذنا الكبير شيفان ... هذا فقط ما تعلمناه منك اخي الكريم. 2
Shivan Rekany قام بنشر مارس 31, 2017 قام بنشر مارس 31, 2017 في 31/3/2017 at 23:00, محمدنجار said: اعتذر عن تدخلي السافر استاذنا الكبير شيفان ... هذا فقط ما تعلمناه منك اخي الكريم. Expand استغفرالله ما هذا الاعتذار سامحني سامحك الله ما رديتك من شان شي فقط رديتك لنستفيد منه الجميع ... طبعا هذه النقاط بيعطينا المشاكل في الاكواد ومن الافضل ان نستبعد منه في محرر فيجوال لكن هذا طريقة SQL حسب فهمي له ما به مشكله تحياتي لك انت اخونا الكبير وشكرا لك على المداخله لان بمشاركتك كلنا راح نستفيد منه شي اخوك الصغير شفان ريكاني 3
محمدنجار قام بنشر مارس 31, 2017 قام بنشر مارس 31, 2017 في 31/3/2017 at 23:06, Shivan Rekany said: استغفرالله ما هذا الاعتذار سامحني سامحك الله ما رديتك من شان شي فقط رديتك لنستفيد منه الجميع ... طبعا هذه النقاط بيعطينا المشاكل في الاكواد ومن الافضل ان نستبعد منه في محرر فيجوال لكن هذا طريقة SQL حسب فهمي له ما به مشكله تحياتي لك انت اخونا الكبير وشكرا لك على المداخله لان بمشاركتك كلنا راح نستفيد منه شي اخوك الصغير شفان ريكاني Expand :::وهو كذلك ...كنت فقط امازحك اخوي بران شفان.. 2
أبو حوده قام بنشر أبريل 1, 2017 الكاتب قام بنشر أبريل 1, 2017 الكود شغال بس برضة محدش متخيل كمية الداتا اللى موجودة بقاعدة البيانات عاوز كود او ماكرو خفيف بالمطلوب مياخدش وقت فى التنفيذ او يعلق الجهاز مع العلم الجهاز امكانياتة علية كور اى فايف ورامات 8 جيجا وبرضة باخد وقت فى تنفيذ الكود وساعات بيعلق لكن لما اخف الداتا بينفذ على طول ياريت الافادة الافادة للضرورة ولكم منى جزيل الشكر في 31/3/2017 at 22:37, Shivan Rekany said: اسف انا لا اعرف الكثير على الماكروات لكن اتفضل جرب ان تستخدم هذا الكود بدل تلك الاستعلامات ووافيني بالنتيجة Private Sub Form_Open(Cancel As Integer) Dim Sql As String Dim Sql1 As String Sql = "DELETE OrderTbl.Order, Now()-[OrderTbl]![date_workEnd] AS lastdate, OrderTbl.ekhteyr FROM OrderTbl WHERE (((Now()-[OrderTbl]![date_workEnd])>=30) AND ((OrderTbl.ekhteyr)=True));" Sql1 = "DELETE PtDataTBL.PtID FROM PtDataTBL WHERE (((PtDataTBL.PtID) Not In (SELECT OrderTbl.PtNo FROM OrderTbl;)));" DoCmd.RunSQL (Sql) DoCmd.RunSQL (Sql1) Me.Requery End Sub تحياتي Expand الكود شغال تمام بس نفس المشكلة مازالت مستمرة وهى الوقت الطويل فى التنفيذذ وساعات تعليق الجهاز
Shivan Rekany قام بنشر أبريل 1, 2017 قام بنشر أبريل 1, 2017 في 1/4/2017 at 13:05, هانى الحلاج said: الكود شغال تمام بس نفس المشكلة مازالت مستمرة وهى الوقت الطويل فى التنفيذذ وساعات تعليق الجهاز Expand 1 - جرب ان تغير وضع الكود بدل عند فتح النموذج الى عند ضغط على زر او عند تحميل النموذج فقط للتجربة هل سيكون نفس المشكلة ؟ 2 - اعمل كومباكت لداتابيس وجربه تحياتي 1
أبو حوده قام بنشر أبريل 1, 2017 الكاتب قام بنشر أبريل 1, 2017 في 1/4/2017 at 13:15, Shivan Rekany said: 1 - جرب ان تغير وضع الكود بدل عند فتح النموذج الى عند ضغط على زر او عند تحميل النموذج فقط للتجربة هل سيكون نفس المشكلة ؟ 2 - اعمل كومباكت لداتابيس وجربه تحياتي Expand مازالت المشكلة مستمرة انا اسف معلش تعبتك معايا بس ياريت تشوف لها حل ثانى
Shivan Rekany قام بنشر أبريل 1, 2017 قام بنشر أبريل 1, 2017 في 1/4/2017 at 13:23, هانى الحلاج said: مازالت المشكلة مستمرة انا اسف معلش تعبتك معايا بس ياريت تشوف لها حل ثانى Expand هل عملت اللي ما قلت سابقا عملت كومباكت ؟ وجربت ؟ اذا نعم ممكن ترسللي القاعدة اذا ما بها معلومات حساسة تحياتي 1
أبو حوده قام بنشر أبريل 1, 2017 الكاتب قام بنشر أبريل 1, 2017 نعم عملت ماقلت سابقا ولكن مازالت المشكلة قائمة في 1/4/2017 at 13:28, Shivan Rekany said: معلومات حساسة Expand للاسف كلامك فى محلة
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.