كيف اظهر السجلات بتدرج خلال جملة التكرار

أخوي vBsQ انت عكس الناس :D

دايم الواحد يعاني من بطء عرض البيانات في الداتا فليكس وانت تبغى تعرضها ببطء

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

ضعه في الحلقة قبل جملة عرض السجل التالي

الدالة:
Public Sub Delay(HowLong As Date)
TempTime = DateAdd("s", HowLong, Now)
While TempTime > Now
DoEvents
Wend
End Sub
ثم أعمل أستدعاء لها مع تحديد كم ثانية تريد لتأخير تنفيذ الكود..مثلا تأخير الانتقال للكود التالي ثلاث ثواني
Delay 3

وجرب أن شاء الله تضبط معاك

:blink: لم افهم ممكن تعدل لي هذا المثال بما قلته انت مع اداة اللست بحيث ان يظهر رقم 1 وبعده بلحظة بسيطة 2 ثم 3 ثم 4 وهكذا

Private Sub Command1_Click()
While x < 10
List1.AddItem x
x = x + 1
Wend
End Sub

Private Sub Command1_Click()
While x < 10
Delay 2
List1.AddItem x
x = x + 1
Wend
End Sub
Public Sub Delay(HowLong As Date)
TempTime = DateAdd("s", HowLong, Now)
While TempTime > Now
DoEvents
Wend
End Sub

اشكرك اكتيييييييييييير ... الكود يعمل الان