أبو حوده قام بنشر مارس 31, 2017 مشاركة قام بنشر مارس 31, 2017 هل ممكن التعويض عن استعلام حذف بوحدة ماكرو نظرا لكثرة الداتا الموجودة بالقاعدة وتعليق الجهاز لوجود معايير بالاستعلام والانتظار لفترة طويلة لحين الانتهاء من تنفيذ الحذف قاعدة بيانات1).rar رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر مارس 31, 2017 مشاركة قام بنشر مارس 31, 2017 1 ساعه مضت, هانى الحلاج said: هل ممكن التعويض عن استعلام حذف بوحدة ماكرو نظرا لكثرة الداتا الموجودة بالقاعدة وتعليق الجهاز لوجود معايير بالاستعلام والانتظار لفترة طويلة لحين الانتهاء من تنفيذ الحذف قاعدة بيانات1).rar اسف انا لا اعرف الكثير على الماكروات لكن اتفضل جرب ان تستخدم هذا الكود بدل تلك الاستعلامات ووافيني بالنتيجة 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 رابط هذا التعليق شارك More sharing options...
محمدنجار قام بنشر مارس 31, 2017 مشاركة قام بنشر مارس 31, 2017 (معدل) 14 دقائق مضت, 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 اخي العزيز شيفان ... اعتقد علينا ازالة الفارزة المنقوطة اخر جملة SQL تحياتي لك .. تم تعديل مارس 31, 2017 بواسطه محمدنجار 2 رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر مارس 31, 2017 مشاركة قام بنشر مارس 31, 2017 2 دقائق مضت, محمدنجار said: اخي العزيز شيفان ... اعتقد علينا ازالة الفارزة المنقوطة اخر جملة SQL تحياتي لك .. شكرا لك استاذنا نعم صحيح اذا بيحذفنا راح يشتغل بشكل عادي لكن اذا ما نحذفه هم بيشتغل بشكل عادي من شان مشاركتك انا جربت مرة اخرى بدون نحذفه هل بيشتغل ام لا وطلعت مافيه مشكلة مع تحياتي اخوك الصغير شفان ريكاني 2 رابط هذا التعليق شارك More sharing options...
محمدنجار قام بنشر مارس 31, 2017 مشاركة قام بنشر مارس 31, 2017 1 دقيقه مضت, Shivan Rekany said: شكرا لك استاذنا نعم صحيح اذا بيحذفنا راح يشتغل بشكل عادي لكن اذا ما نحذفه هم بيشتغل بشكل عادي من شان مشاركتك انا جربت مرة اخرى بدون نحذفه هل بيشتغل ام لا وطلعت مافيه مشكلة مع تحياتي اخوك الصغير شفان ريكاني اعتذر عن تدخلي السافر استاذنا الكبير شيفان ... هذا فقط ما تعلمناه منك اخي الكريم. 2 رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر مارس 31, 2017 مشاركة قام بنشر مارس 31, 2017 1 دقيقه مضت, محمدنجار said: اعتذر عن تدخلي السافر استاذنا الكبير شيفان ... هذا فقط ما تعلمناه منك اخي الكريم. استغفرالله ما هذا الاعتذار سامحني سامحك الله ما رديتك من شان شي فقط رديتك لنستفيد منه الجميع ... طبعا هذه النقاط بيعطينا المشاكل في الاكواد ومن الافضل ان نستبعد منه في محرر فيجوال لكن هذا طريقة SQL حسب فهمي له ما به مشكله تحياتي لك انت اخونا الكبير وشكرا لك على المداخله لان بمشاركتك كلنا راح نستفيد منه شي اخوك الصغير شفان ريكاني 3 رابط هذا التعليق شارك More sharing options...
محمدنجار قام بنشر مارس 31, 2017 مشاركة قام بنشر مارس 31, 2017 6 دقائق مضت, Shivan Rekany said: استغفرالله ما هذا الاعتذار سامحني سامحك الله ما رديتك من شان شي فقط رديتك لنستفيد منه الجميع ... طبعا هذه النقاط بيعطينا المشاكل في الاكواد ومن الافضل ان نستبعد منه في محرر فيجوال لكن هذا طريقة SQL حسب فهمي له ما به مشكله تحياتي لك انت اخونا الكبير وشكرا لك على المداخله لان بمشاركتك كلنا راح نستفيد منه شي اخوك الصغير شفان ريكاني :::وهو كذلك ...كنت فقط امازحك اخوي بران شفان.. 2 رابط هذا التعليق شارك More sharing options...
أبو حوده قام بنشر أبريل 1, 2017 الكاتب مشاركة قام بنشر أبريل 1, 2017 الكود شغال بس برضة محدش متخيل كمية الداتا اللى موجودة بقاعدة البيانات عاوز كود او ماكرو خفيف بالمطلوب مياخدش وقت فى التنفيذ او يعلق الجهاز مع العلم الجهاز امكانياتة علية كور اى فايف ورامات 8 جيجا وبرضة باخد وقت فى تنفيذ الكود وساعات بيعلق لكن لما اخف الداتا بينفذ على طول ياريت الافادة الافادة للضرورة ولكم منى جزيل الشكر 14 ساعات مضت, 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 تحياتي الكود شغال تمام بس نفس المشكلة مازالت مستمرة وهى الوقت الطويل فى التنفيذذ وساعات تعليق الجهاز رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أبريل 1, 2017 مشاركة قام بنشر أبريل 1, 2017 2 دقائق مضت, هانى الحلاج said: الكود شغال تمام بس نفس المشكلة مازالت مستمرة وهى الوقت الطويل فى التنفيذذ وساعات تعليق الجهاز 1 - جرب ان تغير وضع الكود بدل عند فتح النموذج الى عند ضغط على زر او عند تحميل النموذج فقط للتجربة هل سيكون نفس المشكلة ؟ 2 - اعمل كومباكت لداتابيس وجربه تحياتي 1 رابط هذا التعليق شارك More sharing options...
أبو حوده قام بنشر أبريل 1, 2017 الكاتب مشاركة قام بنشر أبريل 1, 2017 في 4/1/2017 at 15:15, Shivan Rekany said: 1 - جرب ان تغير وضع الكود بدل عند فتح النموذج الى عند ضغط على زر او عند تحميل النموذج فقط للتجربة هل سيكون نفس المشكلة ؟ 2 - اعمل كومباكت لداتابيس وجربه تحياتي مازالت المشكلة مستمرة انا اسف معلش تعبتك معايا بس ياريت تشوف لها حل ثانى رابط هذا التعليق شارك More sharing options...
Shivan Rekany قام بنشر أبريل 1, 2017 مشاركة قام بنشر أبريل 1, 2017 الان, هانى الحلاج said: مازالت المشكلة مستمرة انا اسف معلش تعبتك معايا بس ياريت تشوف لها حل ثانى هل عملت اللي ما قلت سابقا عملت كومباكت ؟ وجربت ؟ اذا نعم ممكن ترسللي القاعدة اذا ما بها معلومات حساسة تحياتي 1 رابط هذا التعليق شارك More sharing options...
أبو حوده قام بنشر أبريل 1, 2017 الكاتب مشاركة قام بنشر أبريل 1, 2017 نعم عملت ماقلت سابقا ولكن مازالت المشكلة قائمة في 4/1/2017 at 15:28, Shivan Rekany said: معلومات حساسة للاسف كلامك فى محلة رابط هذا التعليق شارك More sharing options...
أبو حوده قام بنشر أبريل 1, 2017 الكاتب مشاركة قام بنشر أبريل 1, 2017 للرفع رابط هذا التعليق شارك More sharing options...
أبو حوده قام بنشر أبريل 1, 2017 الكاتب مشاركة قام بنشر أبريل 1, 2017 فى حل ولا لا ياجماعة الخير افيدونى رابط هذا التعليق شارك More sharing options...
أبو حوده قام بنشر أبريل 2, 2017 الكاتب مشاركة قام بنشر أبريل 2, 2017 للرفع تانى اية ياجماعة حد يفيدنى رابط هذا التعليق شارك 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.