الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

سؤال ازاى الكود يتكرر على 4000 عميل

بدأه مستر استرا في 12 أكتوبر 2010 · 5 رد · 566 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

السلام عليكم ورحمة الله وبركاتة

منذ اربع ايام بمساعدة اخ كريم بهذا المنتدى توصلنا لكود حساب اقساط بالتواريخ

يوجد زر احس الاقساط فيقوم الكود بحساب الاقساط المستحقة على العميل بتواريخها

المطلوب تعديل الكود لينفذ على جميع العملاء دفعة واحدة

المثال بالمرفقات وهذا هو الكود

Private Sub Command39_Click()
Dim x As Integer
DoCmd.SetWarnings False
DoCmd.RunSQL " delete from tbsub where mainid=" & Me.ID
DoCmd.SetWarnings True
For x = 1 To Me.NezamElsdad
DoCmd.SetWarnings False
DoCmd.RunSQL " insert into tbsub (mainid,datekest,mount) values (" & Me.ID & ",#" & IIf(Me.NezamElsdad = 3, DateAdd("yyyy", x, Me.EstelamDate), DateAdd("yyyy", x + 2, Me.EstelamDate)) & "#," & IIf((Me.MaTmSdadh >= Me.KestValue + Nz(DSum("mount", "tbsub", "mainid=" & Me.ID), 0)), Me.KestValue, Me.MaTmSdadh - Nz(DSum("mount", "tbsub", "mainid=" & Me.ID), 0)) & ")"
Me.subform.Requery
Next x
End Sub

عفوا هذا هو المرفق

aksat.rar

تم تعديل هذه المشاركة بواسطة Abo_Yossof في 12 أكتوبر 2010 في 15:02

#2

اليك التعديل 

Dim x, i, c As Integer
Dim rst As Recordset
Set rst = Me.RecordsetClone
c = rst.RecordCount
DoCmd.SetWarnings False
DoCmd.RunSQL " delete from tbsub where mainid=" & Me.ID
For i = 1 To c
For x = 0 To Me.NezamElsdad
DoCmd.RunSQL " insert into tbsub (mainid,datekest,mount) values (" & rst!ID & ",#" & IIf(rst!NezamElsdad = 3, DateAdd("yyyy", x + 1, rst!EstelamDate), DateAdd("yyyy", x + 3, rst!EstelamDate)) & "#," & IIf((Nz(rst!MaTmSdadh, 0) >= rst!KestValue + Nz(DSum("mount", "tbsub", "mainid=" & rst!ID), 0)), rst!KestValue, Nz(rst!MaTmSdadh, 0) - Nz(DSum("mount", "tbsub", "mainid=" & rst!ID), 0)) & ")"
Next x
rst.MoveNext
Next i
DoCmd.SetWarnings True
Me.subform.Requery
rst.Close
Set rst = Nothing

مدونتى:-

احترف الأكسس مع أبو يوسف

متغيب حاليا لانشغالى الشديد

#3

شكرا لسرعة الرد وجارى التجربة

#4

السلام عليكم ورحمة الله

اخى الكريم الكود بيعمل زى الفل وتسلم ايدك وربنا يجازيك خير وينفعك بعلمك

فى استفسار بسيط لو تسمح

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

#5
مستر استرا كتب:

السلام عليكم ورحمة الله

اخى الكريم الكود بيعمل زى الفل وتسلم ايدك وربنا يجازيك خير وينفعك بعلمك

فى استفسار بسيط لو تسمح

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

في بداية الكود ضع هذا السطر 

On error resume next

تحياتي

OMANI FOR EVER

-------------------------------------------------

post-12787-12780191801974.jpg

-------------------------------------------------

#6

ممكن مثال

لكي نستفيد

مواضيع مشابهة