أبو حوده قام بنشر مارس 31, 2017 قام بنشر مارس 31, 2017 هل ممكن التعويض عن استعلام حذف بوحدة ماكرو نظرا لكثرة الداتا الموجودة بالقاعدة وتعليق الجهاز لوجود معايير بالاستعلام والانتظار لفترة طويلة لحين الانتهاء من تنفيذ الحذف قاعدة بيانات1).rar
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
محمدنجار قام بنشر مارس 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
Shivan Rekany قام بنشر مارس 31, 2017 قام بنشر مارس 31, 2017 2 دقائق مضت, محمدنجار said: اخي العزيز شيفان ... اعتقد علينا ازالة الفارزة المنقوطة اخر جملة SQL تحياتي لك .. شكرا لك استاذنا نعم صحيح اذا بيحذفنا راح يشتغل بشكل عادي لكن اذا ما نحذفه هم بيشتغل بشكل عادي من شان مشاركتك انا جربت مرة اخرى بدون نحذفه هل بيشتغل ام لا وطلعت مافيه مشكلة مع تحياتي اخوك الصغير شفان ريكاني 2
محمدنجار قام بنشر مارس 31, 2017 قام بنشر مارس 31, 2017 1 دقيقه مضت, Shivan Rekany said: شكرا لك استاذنا نعم صحيح اذا بيحذفنا راح يشتغل بشكل عادي لكن اذا ما نحذفه هم بيشتغل بشكل عادي من شان مشاركتك انا جربت مرة اخرى بدون نحذفه هل بيشتغل ام لا وطلعت مافيه مشكلة مع تحياتي اخوك الصغير شفان ريكاني اعتذر عن تدخلي السافر استاذنا الكبير شيفان ... هذا فقط ما تعلمناه منك اخي الكريم. 2
Shivan Rekany قام بنشر مارس 31, 2017 قام بنشر مارس 31, 2017 1 دقيقه مضت, محمدنجار said: اعتذر عن تدخلي السافر استاذنا الكبير شيفان ... هذا فقط ما تعلمناه منك اخي الكريم. استغفرالله ما هذا الاعتذار سامحني سامحك الله ما رديتك من شان شي فقط رديتك لنستفيد منه الجميع ... طبعا هذه النقاط بيعطينا المشاكل في الاكواد ومن الافضل ان نستبعد منه في محرر فيجوال لكن هذا طريقة SQL حسب فهمي له ما به مشكله تحياتي لك انت اخونا الكبير وشكرا لك على المداخله لان بمشاركتك كلنا راح نستفيد منه شي اخوك الصغير شفان ريكاني 3
محمدنجار قام بنشر مارس 31, 2017 قام بنشر مارس 31, 2017 6 دقائق مضت, Shivan Rekany said: استغفرالله ما هذا الاعتذار سامحني سامحك الله ما رديتك من شان شي فقط رديتك لنستفيد منه الجميع ... طبعا هذه النقاط بيعطينا المشاكل في الاكواد ومن الافضل ان نستبعد منه في محرر فيجوال لكن هذا طريقة SQL حسب فهمي له ما به مشكله تحياتي لك انت اخونا الكبير وشكرا لك على المداخله لان بمشاركتك كلنا راح نستفيد منه شي اخوك الصغير شفان ريكاني :::وهو كذلك ...كنت فقط امازحك اخوي بران شفان.. 2
أبو حوده قام بنشر أبريل 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 تحياتي الكود شغال تمام بس نفس المشكلة مازالت مستمرة وهى الوقت الطويل فى التنفيذذ وساعات تعليق الجهاز
Shivan Rekany قام بنشر أبريل 1, 2017 قام بنشر أبريل 1, 2017 2 دقائق مضت, هانى الحلاج said: الكود شغال تمام بس نفس المشكلة مازالت مستمرة وهى الوقت الطويل فى التنفيذذ وساعات تعليق الجهاز 1 - جرب ان تغير وضع الكود بدل عند فتح النموذج الى عند ضغط على زر او عند تحميل النموذج فقط للتجربة هل سيكون نفس المشكلة ؟ 2 - اعمل كومباكت لداتابيس وجربه تحياتي 1
أبو حوده قام بنشر أبريل 1, 2017 الكاتب قام بنشر أبريل 1, 2017 في 4/1/2017 at 15:15, Shivan Rekany said: 1 - جرب ان تغير وضع الكود بدل عند فتح النموذج الى عند ضغط على زر او عند تحميل النموذج فقط للتجربة هل سيكون نفس المشكلة ؟ 2 - اعمل كومباكت لداتابيس وجربه تحياتي مازالت المشكلة مستمرة انا اسف معلش تعبتك معايا بس ياريت تشوف لها حل ثانى
Shivan Rekany قام بنشر أبريل 1, 2017 قام بنشر أبريل 1, 2017 الان, هانى الحلاج said: مازالت المشكلة مستمرة انا اسف معلش تعبتك معايا بس ياريت تشوف لها حل ثانى هل عملت اللي ما قلت سابقا عملت كومباكت ؟ وجربت ؟ اذا نعم ممكن ترسللي القاعدة اذا ما بها معلومات حساسة تحياتي 1
أبو حوده قام بنشر أبريل 1, 2017 الكاتب قام بنشر أبريل 1, 2017 نعم عملت ماقلت سابقا ولكن مازالت المشكلة قائمة في 4/1/2017 at 15:28, Shivan Rekany said: معلومات حساسة للاسف كلامك فى محلة
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.