مساعدة في عد السجلات

[عمر طاهر]

المطلوب كرما

بعد كتابة رقم في مربع x ظهور العداد الرقمي في dd مثل عداد السباق من 1 حتى قيمة x ويتوقف

مع شكرا

145.accdb

[متقاعد]

26 دقائق مضت, عمر طاهر said:

بعد كتابة رقم في مربع x ظهور العداد الرقمي في dd مثل عداد السباق من 1 حتى قيمة x ويتوقف

العنوان عد السجلات وفي الموضوع طلب عداد من 1 الى x

في حدث عند عداد الوقت ضع التالي

dd = dd + 1
If dd = Val(x) Then Me.TimerInterval = 0: x = 0

في زر الامر ضع التالي

dd = 1
Me.TimerInterval = x

الملف مرفق

 

145.accdb

[عمر طاهر]

35 دقائق مضت, مبرمج سابق said:

العنوان عد السجلات وفي الموضوع طلب عداد من 1 الى x

في حدث عند عداد الوقت ضع التالي

dd = dd + 1
If dd = Val(x) Then Me.TimerInterval = 0: x = 0

في زر الامر ضع التالي

dd = 1
Me.TimerInterval = x

الملف مرفق

 

145.accdb 412 kB · 2 downloads

عذرا على الخطأ 

مشكور اخي الكريم 

[متقاعد]

20 دقائق مضت, عمر طاهر said:

عذرا على الخطأ 

لا مشكلة استاذ طاهر حتى لو اردت جمع الفكرتين مع اني لا اجد فائده من ذلك

يكون الامر في حدث عن عداد الوقت

dd = dd + 1
If dd = Val(x) Then Me.TimerInterval = 0: x = 0

وفي زر الامر

dd = 1
x = DCount("*", "tbl_item")
Me.TimerInterval = x

هنا يكون x هو ناتج عدد سجلات الجدول

الملف مرفق

145(1).accdb

[عمر طاهر]

26 دقائق مضت, مبرمج سابق said:

لا مشكلة استاذ طاهر حتى لو اردت جمع الفكرتين مع اني لا اجد فائده من ذلك

يكون الامر في حدث عن عداد الوقت

dd = dd + 1
If dd = Val(x) Then Me.TimerInterval = 0: x = 0

وفي زر الامر

dd = 1
x = DCount("*", "tbl_item")
Me.TimerInterval = x

هنا يكون x هو ناتج عدد سجلات الجدول

الملف مرفق

145(1).accdb 432 kB · 4 downloads

ممنون لطفك اخي شكرا لك