ابوخليل

يا لطيف هذا ليس مثالا .. بل انظر اختصرت لك المثال .. وسؤالي ما طريقتك في استخراج توقيع الحضور وتوقيع الانصراف خلال الجلسة الواحدة (اليوم الواحد) ؟ in_out_time2.mdb

عليكم السلام مع ان تصميم الجدول سيء ويوجد عليه كثير من الملاحظات ولكني احببت ان اضع هنا حل في تطبيق فكرة السؤال ، وذلك لدلالة العنوان فقمت بتغيير المسميات الى حروف لاتينية حتى تتمكن وغيرك ممن يمر من هنا قراءة الجملة البرمجية بصورة صحيحة ولو تم تضمين المسميات العربية لما تمكن احد من قراءة الكود بالصورة الصحيحة ، حيث ستختلط المسميات يمينا ويسارا فنصيحتي الا تستخدم الحروف العربية عند تصميم الجداول وتجنب المسافات الخالية بين الكلمات الحل وحدة نمطية ترجع بآخر قيمة من الرصيد بالاعتماد على اعلى رقم في مفتاح الجدول ثم نضع هذه الدالة في القيمة الافتراضية لحقل الباقي من التمويل Public Function rsdsabq() Dim i As Integer i = DMax("id", "tbl_tmweel") rsdsabq = DLookup("raseed", "tbl_tmweel", "id=" & i) End Function الرصيد.accdb

المثال تضعه انت بناء على التصميم الذي عملته وعموما المسألة يسيرة جدا : اطرح التاريخ الأول من التاريخ الثاني

الطريقة ان تجعل : تنسيق حقل / حقلي الحضور والانصراف تاريخ كامل ( General Date ) وطبعا سيكون الحضور في يوم والانصراف في اليوم الذي يليه ولكن يمكنك من احتساب الوقت الفعلي الصحيح

خاصية المجاميع هذه تمت اضافتها للجداول في الاصدارات الجديدة من اكسس اعتقد في 2010 وما بعده انظر الصورة

اعمل حقل في تذييل النموذج ثم في عرض التصميم الصق فيه هذه العبارة =Count("*") عدد السجلات.accdb

الموضوع قديم

عليكم السلام طلبك ليس دقيقا فيمكن تحقيق ذلك باستخدام نموذج رئيسي وآخر فرعي داخله ويمكن تحقيقة باستخدام قائمتين اذا نقرت على الاسم في الاولى تظهر الاسماء المرتبطة في القائمة الثانية ويمكن تظهر الاسماء المرتبطة برسالة فقط بمعنى لا يكفي ان تضع جدولين فقط بل انت من يجب ان يعمل النموذج بالتصميم الذي تريد وبالنتيجة التي تريد ان تظهر

تعديل بسيط ان شاء الله يكون هو المتقن والمعتمد On Error Resume Next Dim i As Integer Dim ii, j As Long Dim rs1, rs2 As Dao.Recordset Set rs1 = CurrentDb.OpenRecordset("SELECT TAB.MNO, TAB.TNO FROM TAB WHERE TAB.TYPE1 =1 ORDER BY TAB.TNO") Set rs2 = CurrentDb.OpenRecordset("SELECT TAB.MNO, TAB.TNO FROM TAB WHERE TAB.TYPE1 >1 ORDER BY TAB.TNO") rs1.MoveLast: rs1.MoveFirst For i = 0 To rs1.RecordCount Step 0 i = i + 1 rs1.Edit rs1!MNO = i rs1.Update rs1.MoveNext Next i rs2.MoveLast: rs2.MoveFirst ii = 10000 For ii = 10000 To (rs2.RecordCount + ii) Step 0 ii = ii + 1 rs2.Edit rs2!MNO = ii rs2.Update rs2.MoveNext Next ii Set rs1 = Nothing Set rs2 = Nothing

هكذا افضل On Error Resume Next Dim i As Integer Dim ii As Long Dim rs1, rs2 As Dao.Recordset Set rs1 = CurrentDb.OpenRecordset("SELECT TAB.MNO, TAB.TNO FROM TAB WHERE TAB.TYPE1 =1 ORDER BY TAB.TNO") Set rs2 = CurrentDb.OpenRecordset("SELECT TAB.MNO, TAB.TNO FROM TAB WHERE TAB.TYPE1 >1 ORDER BY TAB.TNO") rs1.MoveLast: rs1.MoveFirst For i = 0 To rs1.RecordCount Step 0 i = i + 1 rs1.Edit rs1!MNO = i rs1.Update rs1.MoveNext Next i rs2.MoveLast: rs2.MoveFirst ii = 10000 For ii = 1 To rs2.RecordCount Step 0 ii = ii + 1 rs2.Edit rs2!MNO = ii rs2.Update rs2.MoveNext Next ii Set rs1 = Nothing Set rs2 = Nothing

المقطع الثاني يبدأ بـــ 10001 حسب طلبه فبتعديلك هنا سوف يبدأ العدد بـــ 10000 امهلني سوف اعالج المسألة بطريقة أخرى

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

وهذا للجزء الأول من السؤال استبدل السطرين في الكود السابق بهذين Set rs1 = CurrentDb.OpenRecordset("SELECT TAB.MNO, TAB.TNO FROM TAB WHERE TAB.TYPE1 =1 ORDER BY TAB.TNO") Set rs2 = CurrentDb.OpenRecordset("SELECT TAB.MNO, TAB.TNO FROM TAB WHERE TAB.TYPE1 >1 ORDER BY TAB.TNO")

تفضل ضعه في حدث النقر على الزر On Error Resume Next Dim i As Integer Dim ii As Long Dim rs1, rs2 As dao.Recordset Set rs1 = CurrentDb.OpenRecordset("SELECT * FROM TAB WHERE TAB.TYPE1=1") Set rs2 = CurrentDb.OpenRecordset("SELECT * FROM TAB WHERE TAB.TYPE1>1") rs1.MoveLast: rs1.MoveFirst For i = 0 To 10000 Step 0 i = i + 1 rs1.Edit rs1!MNO = i rs1.Update rs1.MoveNext Next i rs2.MoveLast: rs2.MoveFirst ii = 10000 For ii = 10000 To 100000 Step 0 ii = ii + 1 rs2.Edit rs2!MNO = ii rs2.Update rs2.MoveNext Next ii Set rs1 = Nothing Set rs2 = Nothing

نسأل الله العظيم الرحيم ان يشفيكم وعائلتكم الكريمة ويعافيكم ويأجركم .. طهور ان شاء الله

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

نعم استاذ جعفر .. هذا لا تنتطح فيه عنزان اما الحقل المصنوع لا ادري تبعاته مستقبلا .. حيث تبادر الى ذهني وقتها التصدير والإلحاق

ارجو ان المثل القائل : " على نياتكم ترزقون " ينطبق علي كان قصدي تلطيف الجو

سلمت يداك استاذنا .. نعم اعتقد هذا الذي يريد وهذا مني تعديل بسيط على الشرط ، حتى نقفل عليه الباب Private Sub TIME_DEFULT_OUT_ARA_LostFocus() Dim Result As Double Dim Status As String Result = (Me.TIME_DEFULT_OUT_ARA - Me.TIME_ACTIVE_OUT_ARA) * 24 Me.TIME_DELAY_OUT_ARA = Result If Result < 0 Then Status = "لايوجد تاخير" ElseIf Result = 0 Then Status = "الوقت ممتاز جدا" ElseIf Result > 0 And Result <= 1 Then Status = "تاخير مسموح به" ElseIf Result > 1 Then Status = "تاخير غير مسموح به" End If Me.BECAUSE_DELAY_OUT_ARA = Status '-------------------------------- Me.txtDiffTime = IIf(Result < 0, "-", "") & Format(Abs(Result / 24), "hh:mm") End Sub

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

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

وعليكم السلام مرحبا ابا انس آخر سطر في الوحدة النمطية يوجد رقم 100 استبدله بالرقم 250

وهذا رابط القسم سواء طلبت العمل بالمجان او بمقابل مالي ولا تنسى تضع وسيلة اتصال حتى تمكن الاعضاء من التواصل معك ، لان القسم لا يدعم الردود

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

عليكم السلام هذا القسم لتبادل الخبرات والمساعدة لتخطي الصعوبات والمشاكل التي تواجه الاعضاء المبرمجين ارفق هنا آخر ما وصلت اليه .. ستجد ان شاء الله التوجيه المناسب ان اردت عملا جاهزا اكتب طلبك في قسم اعلانات الأعضاء الشخصية .