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

جمع الوقت في نموذج فرعي

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

السلام عليكم إخواني .....

لدي في المرفق برنامج صغير , وظيفته تسجيل ايام العمل للعاملين , لقد بحثت في هذا الموقع الجميل وقد انجزت نصف برنامجي بل اكثر من 80 بالمئة منه .

كيفية عمله : هناك نموذج يحتي بداخله على نموذج فرعي لكل عامل , العامل كل يوم عليه ان يسجل تاريخ بداية الدوام (والتي هي تحت عنوان بداية الأجازة) ونهاية الدوام (والتي هي تحت عنوان نهاية الأجازة) وهنا حقل (مجموع اول) يقوم بجمع التاريخين .

المشكلة اخواني أني اريد مربع نص خارج النموذج الفرعي يقوم بجمع (حقل المجموع1) كله .

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

فآمل منكم حل هذه المشكلة .

مختصر : أريد جمع الوقت في نموذج فري (sumمجموع1)

وشكراَ لكم

برنامجي 2.rar

#2

اليك هذه الدالة

ستفى بالغرض ان شاء الله

Private Function addtime() As String
Dim rs As Recordset
Dim i, x, y As Integer
Set rs = Me.[äãæÐÌ ÝÑÚí ÌÏæá ÇáÅÌÇÒÇÊ].Form.Recordset
rs.MoveFirst
For i = 0 To rs.RecordCount - 1
x = x + Hour(Me.[äãæÐÌ ÝÑÚí ÌÏæá ÇáÅÌÇÒÇÊ].Form.[ãÌãæÚ1])
y = y + Minute(Me.[äãæÐÌ ÝÑÚí ÌÏæá ÇáÅÌÇÒÇÊ].Form.[ãÌãæÚ1])
rs.MoveNext
Next i
x = x + (y \ 60)
y = y Mod 60
addtime = Format(x, "00") & ":" & Format(y, "00")
Set rs = Nothing
End Function

برنامجي 2.rar

مدونتى:-

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

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

#3

وهذه أيضاً طريقة أخرى ولكن بدون كود نهائياً، فقط انظر مصادر بيانات الحقول المختلفة...

برنامجي 2.rar

1

مذكرات حول تصميم قواعد البيانات وتطبيقاتها - الجزء الأول

مذكرات حول تصميم قواعد البيانات وتطبيقاتها - الجزء الثاني

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