جمع الوقت فى استعلام أكسيس ؟

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

بواسطة الكود؟؟؟

اخي الفاضل

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

لحساب اجمالي الوقت الإضافي نتبع هذه الطريقة :

1. لنفرض ان لدينا جدول اسمه TimeWork ويوجد به حقل وهو الوقت الإضافي OverTime ونوع بيانات هذا الحقل ( تاريخ ووقت ) وتنسيقة Short Time ( ساعات ودقائق فقط ) . وبه مثل هذه البيانات

2. نقوم بإنشاء وحدة نمطية جديده ونضع بها هذا الكود الخاص بحساب اجمالي الوقت الإضافي

Function GetTotalTime()
		 Dim db As Database, rs As Recordset
		 Dim totalhours As Long, totalminutes As Long
		 Dim days As Long, hours As Long, minutes As Long
		 Dim Interval As Variant, j As Integer
		 Set db = DBEngine.Workspaces(0).Databases(0)
		 Set rs = db.OpenRecordset("TimeWork")
		 Interval = #12:00:00 AM#
			While Not rs.EOF
			   Interval = Interval + rs![OverTime]
			   rs.MoveNext
			Wend
		 totalhours = Int(CSng(Interval * 24))
		 totalminutes = Int(CSng(Interval * 1440))
		 hours = totalhours Mod 24
		 minutes = totalminutes Mod 60

	  GetTotalTime = totalhours & ":" & minutes

	  End Function

3. ننشيء استعلام مبني على الجدول TimeWork ونضع به هذا الحقل

TotalTime: GetTotalTime()

ثم نعرض الإستعلام نجد انه قام بجمع الأوقات الإضافية الموجوده في الجدول

وهذا مثال

TotalTime.rar

اخى الكريم ما عرفت اوصل للحل المهم انا ارفقت لك المثال برجاء الافادة انا عايز من عمود query1 إجمالى الاضافى لكل شخص على حده و يلاحظ انا البرنامج يجمع بطريقة صحيحة مع الارقام التى اقل من 24 ساعة عمل اضافى اما الارقام التى فوق 24 ساعة عمل لاتظهر بصورة صحيحة ارجو الرد العاجل للاهمية .

over_time.rar

أخي الفاضل هاني فيصل

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

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

نأتي للرد على سؤالك :

طالما انه يوجد لديك عدة جداول بينها علاقة رأس الى اطراف فإننا نحتاج الى دالة او وظيفة لكي تقوم بحساب مجموع الأوقات الإضافية لكل شخص على حده ومن ثم يتم استدعاؤها في الإستعلام

وهذا ملفك بعد التعديل انظر الى الإستعلام فقد تم جمع اوقات كل موظف على حده

za_over_time_UP.rar

أخي الكريم / هاني فيصل

تحية طيبة وبعد ،،،،،،،،،،،

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

بالتوفيق

K_DB1.rar

kamal alnahhal كتب:

قاعدة البيانات فيها مشمبة

ارجو عمل مثال لشرح دالة iif لجمع عدد الدقائق

أخي الكريم / هاني فيصل

تحية طيبة وبعد ،،،،،،،،،،،

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

بالتوفيق

K_DB1.rar