اذهب الي المحتوي
أوفيسنا

هل ممكن التعويض عن استعلام حذف بوحدة ماكرو


الردود الموصى بها

هل ممكن التعويض عن استعلام حذف بوحدة ماكرو  نظرا لكثرة الداتا الموجودة بالقاعدة وتعليق الجهاز لوجود معايير بالاستعلام  والانتظار لفترة طويلة لحين الانتهاء من تنفيذ الحذف 

قاعدة بيانات1).rar

رابط هذا التعليق
شارك

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

تحياتي

  • Like 4
رابط هذا التعليق
شارك

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 تحياتي لك ..:fff:

لالا.jpg

تم تعديل بواسطه محمدنجار
  • Like 2
رابط هذا التعليق
شارك

2 دقائق مضت, محمدنجار said:

اخي العزيز شيفان ... اعتقد علينا ازالة الفارزة المنقوطة اخر جملة SQL تحياتي لك ..:fff:

لالا.jpg

شكرا لك استاذنا 

نعم صحيح اذا بيحذفنا راح يشتغل بشكل عادي
لكن اذا ما نحذفه هم بيشتغل بشكل عادي
من شان مشاركتك انا جربت مرة اخرى بدون نحذفه هل بيشتغل ام لا
وطلعت مافيه مشكلة
مع تحياتي

اخوك الصغير
شفان ريكاني

  • Like 2
رابط هذا التعليق
شارك

1 دقيقه مضت, Shivan Rekany said:

شكرا لك استاذنا 

نعم صحيح اذا بيحذفنا راح يشتغل بشكل عادي
لكن اذا ما نحذفه هم بيشتغل بشكل عادي
من شان مشاركتك انا جربت مرة اخرى بدون نحذفه هل بيشتغل ام لا
وطلعت مافيه مشكلة
مع تحياتي

اخوك الصغير
شفان ريكاني

اعتذر عن تدخلي السافر استاذنا الكبير شيفان ... هذا فقط ما تعلمناه منك اخي الكريم.

  • Like 2
رابط هذا التعليق
شارك

1 دقيقه مضت, محمدنجار said:

اعتذر عن تدخلي السافر استاذنا الكبير شيفان ... هذا فقط ما تعلمناه منك اخي الكريم.

استغفرالله
ما هذا الاعتذار 
سامحني سامحك الله
ما رديتك من شان شي 
فقط رديتك لنستفيد منه الجميع ... طبعا هذه النقاط بيعطينا المشاكل في الاكواد ومن الافضل ان نستبعد منه في محرر فيجوال
لكن هذا طريقة SQL حسب فهمي له ما به مشكله‌
تحياتي لك
انت اخونا الكبير
وشكرا لك على المداخله‌ لان بمشاركتك كلنا راح نستفيد منه شي

اخوك الصغير

شفان ريكاني

  • Like 3
رابط هذا التعليق
شارك

6 دقائق مضت, Shivan Rekany said:

استغفرالله
ما هذا الاعتذار 
سامحني سامحك الله
ما رديتك من شان شي 
فقط رديتك لنستفيد منه الجميع ... طبعا هذه النقاط بيعطينا المشاكل في الاكواد ومن الافضل ان نستبعد منه في محرر فيجوال
لكن هذا طريقة SQL حسب فهمي له ما به مشكله‌
تحياتي لك
انت اخونا الكبير
وشكرا لك على المداخله‌ لان بمشاركتك كلنا راح نستفيد منه شي

اخوك الصغير

شفان ريكاني

:::وهو كذلك ...كنت فقط امازحك اخوي بران شفان..

  • Like 2
رابط هذا التعليق
شارك

الكود شغال بس برضة محدش متخيل كمية الداتا اللى موجودة بقاعدة البيانات 

عاوز كود او ماكرو خفيف بالمطلوب مياخدش وقت فى التنفيذ او يعلق الجهاز مع العلم الجهاز امكانياتة علية كور اى فايف ورامات 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

تحياتي

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

رابط هذا التعليق
شارك

2 دقائق مضت, هانى الحلاج said:

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

1 - جرب ان تغير وضع الكود بدل عند فتح النموذج الى عند ضغط على زر او عند تحميل النموذج فقط للتجربة هل سيكون نفس المشكلة ؟
2 - اعمل كومباكت لداتابيس وجربه
تحياتي

  • Like 1
رابط هذا التعليق
شارك

في 4/1/2017 at 15:15, Shivan Rekany said:

1 - جرب ان تغير وضع الكود بدل عند فتح النموذج الى عند ضغط على زر او عند تحميل النموذج فقط للتجربة هل سيكون نفس المشكلة ؟
2 - اعمل كومباكت لداتابيس وجربه
تحياتي

مازالت المشكلة مستمرة انا اسف معلش تعبتك معايا بس ياريت تشوف لها حل ثانى 

رابط هذا التعليق
شارك

الان, هانى الحلاج said:

مازالت المشكلة مستمرة انا اسف معلش تعبتك معايا بس ياريت تشوف لها حل ثانى 

هل عملت اللي ما قلت سابقا 
عملت كومباكت ؟ وجربت ؟
اذا نعم ممكن ترسللي القاعدة اذا ما بها معلومات حساسة

تحياتي

  • Like 1
رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information