تاخر في جلب النتيجه

[ابو ياسين المشولي]

اخواني الافاضل عملت كود وهو يقوم بالغرض ولكنه بطي بسبب كثر السجلات

فهل من بديل وهذا الكود

Dim rst  As DAO.Recordset
    Dim bb As Integer
    Dim i As Integer, RC As Integer
    Set rst = CurrentDb.OpenRecordset("SELECT * FROM [اقمشة]")
    rst.MoveLast: rst.MoveFirst
    RC = rst.RecordCount
    For i = 1 To RC
   rst.edit
   b = Nz(DSum("[quntt]", "Data", "komash='" & rst!komash & "'"))
   R = Nz(DSum("[quntt1]", "Data", "komash1='" & rst!komash & "'"))
   s = Nz(DSum("[quntt2]", "Data", "komash2='" & rst!komash & "'"))
   f = Nz(DSum("[quntt3]", "Data", "komash3='" & rst!komash & "'"))
   m = Nz(DSum("[quntt4]", "Data", "komash4='" & rst!komash & "'"))
   n = Nz(DSum("[quntt5]", "Data", "komash5='" & rst!komash & "'"))
   k = Nz(DSum("[quntt6]", "Data", "komash6='" & rst!komash & "'"))
   y = Nz(DSum("[quntt7]", "Data", "komash7='" & rst!komash & "'"))
   rst("qunt4").Value = b + R + s + f + k + m + n + y
   rst.Update
   rst.MoveNext
 Next i
 MsgBox " تم تحديث السجلات الى الجدول بنجاح ", vbInformation, "تنبيه"
rst.Close
Set rst = Nothing

 

[ابوخليل]

الدالات : Dsum , Dcount , Dlookup  بطيئة مع السجلات الكثيرة 

فابحث لعلك تجد طريقا آخر لتحديث سجلاتك

[ابو ياسين المشولي]

يسعدني مرورك استاذي القدير ابوخليل

فعلا الدوال بطيئة

[jjafferr]

السلام عليكم 🙂

 

لوسمحت تعطينا مرفق ، علشان اغير الكود الى استعلامين ، حتى يكون اسرع 🙂

 

جعفر

 

[ابو ياسين المشولي]

اتفضل استاذ jjafferr

jjafferr.accdb

تم تعديل نوفمبر 6, 2019 بواسطه ابو ياسين المشولي

[ابو ياسين المشولي]

للرفع

[ابو ياسين المشولي]

للرفع

[jjafferr]

وعليكم السلام اخوي ابو ياسين 🙂

 

الموضوع معقد اكثر مما اعتقدت ، وعدة محاولات باءت بالفشل ، ولكني لم أيأس بعد 🙂

 

جعفر

[ابو ياسين المشولي]

حياك الله اخي جعفر

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

بحث ومالقيت حل للامانه مافتح الموضوع الا بعد بحث كثير ومحاولات كثيرة وهي المحاوله اللي جابت النتيجه لكنها بطي شوي

[jjafferr]

نعم في

[jjafferr]

انا عملت اللي ممكن اقدر عليه في الكود ، جربه واخبرنا لو سمحت

Function IsAutoNumber2()
'DoCmd.SetWarnings False
    Dim n, f, D, E, L, t, h, G As Integer
    Dim rst  As DAO.Recordset
    Dim bb As Integer
'    Dim i As Integer, RC As Integer
    
'    Set rst = CurrentDb.OpenRecordset("SELECT * FROM [اقمشة]")
'    rst.MoveLast: rst.MoveFirst
'    RC = rst.RecordCount
'    For i = 1 To RC

    Set rst = CurrentDb.OpenRecordset("SELECT komash, qunt4 FROM [اقمشة]")
    
    Do While Not rst.EOF
   
        rst.Edit
            n = Nz(DSum("[quntt]", "Data", "komash='" & rst!komash & "'"), 0)
            f = Nz(DSum("[quntt1]", "Data", "komash1='" & rst!komash & "'"), 0)
            D = Nz(DSum("[quntt2]", "Data", "komash2='" & rst!komash & "'"), 0)
            E = Nz(DSum("[quntt3]", "Data", "komash3='" & rst!komash & "'"), 0)
            L = Nz(DSum("[quntt4]", "Data", "komash4='" & rst!komash & "'"), 0)
            t = Nz(DSum("[quntt5]", "Data", "komash5='" & rst!komash & "'"), 0)
            h = Nz(DSum("[quntt6]", "Data", "komash6='" & rst!komash & "'"), 0)
            G = Nz(DSum("[quntt7]", "Data", "komash7='" & rst!komash & "'"), 0)
            
            rst("qunt4").Value = n + f + D + E + L + t + h + G
        rst.Update
        
        rst.MoveNext
    Loop
    
' Next i

    rst.Close: Set rst = Nothing
    
    MsgBox " تم تعديل السجلات في الجدول بنجاح ", vbInformation, "تنبيه"
 
    'DoCmd.SetWarnings True

End Function

 

جعفر

[ابو ياسين المشولي]

ماقصرت استاذي

هو نفس النتيجه

لازم نشوف له شغله ثانيه

عشان عدد الاصناف كلما زادت كلما تاخر افكر

اعمل حذف للي رصيدها صفر

او اعمل لها نقل الى جدول اخر

تم تعديل نوفمبر 7, 2019 بواسطه ابو ياسين المشولي

[ابو ياسين المشولي]

وللامانه عملت ضبط في ساعه الجوال

وكان الفرق 3 او 4 جزءمن الثانيه

فلك الف شكر

[jjafferr]

هذا معناه عندك بيانات غير اللي ارفقتها ، فياريت ترسلها لي على الخاص.

 

شكرا

[ابو ياسين المشولي]

ابشر بعد الصلاه باذن الله

[jjafferr]

سيدي الفاضل ، ما قدرت اخلي التحديث اسرع من هاي 🙂

 

واذا السرعة عجبتك ، اخبرك كيف تجعلها اسرع ان شاء الله 🙂

 

جعفر

1134.jjafferr.accdb.zip

[ابو ياسين المشولي]

تسلم حبيبي jjafferr

بشوفها وبعطيك خبر

[ابو ياسين المشولي]

الف الف الف شكر اخي واستاذي ومعلمي الاستاذ jjafferr

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

[jjafferr]

السلام عليكم ابو ياسين 🙂

 

غريبة ما سألتني:

11 ساعات مضت, jjafferr said:

واذا السرعة عجبتك ، اخبرك كيف تجعلها اسرع ان شاء الله 🙂

 

في جدول Data ، بما انه هناك اكثر من قماش وطول لكل زبون ، فانت عندك 8 الى الآن ،

فالمفروض انك تخرج هذه الحقول من هذا الجدول ، وتعمل جدول جديد مثل sData ، فيه حقل قماش (يجب ان يكون مفهرس) وطول فقط ، طبعا مع حقل يأخذ ID من جدول Data ،

ثم في النموذج تعمل نموذج فرعي للجدول sData ، وتضيف فيه اي عدد من الاقشمة والاطوال حتى لو جاب القبيلة كلها 🙂

 

طبيعة استعلام الـ union اللي انا عملته ، بطيء ، لأني دمجت 8 استعلامات فيه ، والحقل قماش غير مفهرس ، فلما تربط جدولين في استعلام بحقول غير مفهرسة ، فالاستعلام يكون ابطئ

 

جعفر

[ابو ياسين المشولي]

6 ساعات مضت, jjafferr said:

السلام عليكم ابو ياسين 🙂

 

غريبة ما سألتني:

وعليكم السلام استاذي

ما سئلتك لاني ما ابغا اطمع اكثر من كذا 

لان سوالك اذا تريدها اسرع اخبرك الطريق

فقلت سرعه اكثر من كذا طمع ههههههه

انا قد حاولت من قبل اعمل فرعي ولكن للاسف الفرعي يسبب لي مشكله