السلام عليكم ..هل يوجد طريقة عند الضغط على زر الالحاق ان يتحرك المؤشر في المثال المرفق ويبين النسبة؟

[علياء يسرالدين]

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

New Microsoft Office Access 2007 قاعدة بيانات.accdb

[ابو جودي]

39 دقائق مضت, علياء يسرالدين said:

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

New Microsoft Office Access 2007 قاعدة بيانات.accdb 640 kB · 0 downloads

ممكن تحقيق ذلك ان اردت ولكن ان كانت كمية البيانات كبيرة تطول فترة العمل مع تلك الطريقة

هل لازلت تريدين الطريقة

[ابو جودي]

ممكن تحقيق ذلك ان اردت ولكن ان كانت كمية البيانات كبيرة تطول فترة العمل مع تلك الطريقة

المرفق جاهز 

 

تم التعديل على جدول attendance باضافة مفتاحان على الحقلان  names  &  recordingdate 

وذلك لتفادى اضافة نس البيانات فى نفس التاريخ  

 

New Microsoft Office Access 2007 قاعدة بيانات (2).accdb

تم تعديل نوفمبر 28, 2020 بواسطه ابا جودى
تعديل المرفق

[علياء يسرالدين]

فعلا هذا المطلوب ولكن تظهر رسالة خطا

[ابو جودي]

13 دقائق مضت, علياء يسرالدين said:

فعلا هذا المطلوب ولكن تظهر رسالة خطا

 

طيب اتفضلى يا استاذة لو تكرمتى استبدلى الكود على زر الامر بالاتى 

Const delay As Single = 0.1
Dim intcnt As Integer
Dim sngtimer As Single
Dim cprog As New clsLblProg
With cprog
lblback.Visible = True
.Initialize lblback, lblfrot, lblcaption
.Max = 10
End With
For intcnt = 1 To 10
sngtimer = Timer
Do While Timer < sngtimer + delay

DoCmd.SetWarnings False
DoCmd.OpenQuery "query1"
DoCmd.SetWarnings True

Loop
cprog.Increment
Next intcnt
lblback.Visible = False

 

[طاهر الوليدي]

تمام

[ابو جودي]

1 دقيقه مضت, طاهر الوليدي said:

تمام

هو ايه اللى تمام ؟! 

[علياء يسرالدين]

تماما كما مطلوب الله يعافيك ..شكرا شكرا

[ابو جودي]

الحمد لله الذى تتم بنعمته الصالحات