عمر ضاحى قام بنشر يناير 10, 2022 مشاركة قام بنشر يناير 10, 2022 السلام عليكم بعد اذن اساتذتي المحترمين حفظكم الله فى نموذج عندي لحضور وانصراف الموظفين كنت عاوز اعمل مفتاح لتسجيل الحضور للجميع او الانصراف للجميع مره واحده وانا باقوم بالاتى (خطوات العمل) اولا اراجع الغياب للموظفين واسجله وهذا من اختيارى لمربع اختيار(نعم / لا ) اسمه فى البرنامج Emp_ABSCENT ومن ثم اقوم بتسجيل الحضور للباقى اريد ان ابرمج مفتاح عند الضغط عليه اولا ينظر الى الاختيار غياب هل تم التأشير عليه بنعم ام لا فى حالة لا يقوم بتسجيل الحضور للموظف ويكرر هذا تلقائيا ما باقى الموظفين فى النموذج جربت استخدم هذا الكود txtTimeIn.Value = Time لكنه بيسجل لموظف واحد فقط كيف استطيع تنفيذ هذا الكود لجعله يسجل للجميع مره واحده ولكم جزيل الشكر رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر يناير 10, 2022 الكاتب مشاركة قام بنشر يناير 10, 2022 up رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر يناير 10, 2022 الكاتب مشاركة قام بنشر يناير 10, 2022 انا محتاج كود اكتبه او حتى الفكره لانى مش عارف افكر فيها طريقة التنفيذ ومعتقدش ان مشكلتي كبيره هنا بس غريبه انى لا اجد تجاوب هنا اذا كان سؤالى او استفساري غير مفهوم حد يتكلم ويخبرني ان سؤال غير واضح او اسلوبك غلط مش عيب ان يتم انتقادي لكن مشكله بسيطه بالنسبه ليكم مش حاجه لو تدلوني على الطريق😌 رابط هذا التعليق شارك More sharing options...
ناقل قام بنشر يناير 10, 2022 مشاركة قام بنشر يناير 10, 2022 33 دقائق مضت, عمر ضاحى said: انا محتاج كود اكتبه او حتى الفكره لانى مش عارف افكر فيها طريقة التنفيذ ومعتقدش ان مشكلتي كبيره هنا بس غريبه انى لا اجد تجاوب هنا اذا كان سؤالى او استفساري غير مفهوم حد يتكلم ويخبرني ان سؤال غير واضح او اسلوبك غلط مش عيب ان يتم انتقادي لكن مشكله بسيطه بالنسبه ليكم مش حاجه لو تدلوني على الطريق😌 طيب اخ عمر ... هلا بك اعتقد ان لديك في البرنامج جدول خاص لترحيل الحضور والغياب ؟؟ اذا كان كذلك ... يمكن عمل استعلام الحاق بشرط نعم/لا اما اذا كانت الاجابة .. لا .. اي ليس هناك جدول خاص للحضور والغياب ... ارجو ارفاق مثال مبسط للنظر فيه ... ومحاولة حل ذلك ... حياك الله ... ملاحظة دائما لا تعتب من عدم رد اخوانك في المنتدى ... قدر ظروفهم ... قدر محاولة فهم السؤال ... لكن لا تتوقع تجاهلهم لسؤال سائل طالما ان بمقدورهم الرد ... وكثيرا وضع مرفق مبسط يغني عن طرح صفحات من الشرح ... اشكر لك سعة صدرك .. رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر يناير 10, 2022 الكاتب مشاركة قام بنشر يناير 10, 2022 2 دقائق مضت, ناقل said: طيب اخ عمر ... هلا بك اعتقد ان لديك في البرنامج جدول خاص لترحيل الحضور والغياب ؟؟ اذا كان كذلك ... يمكن عمل استعلام الحاق بشرط نعم/لا اما اذا كانت الاجابة .. لا .. اي ليس هناك جدول خاص للحضور والغياب ... ارجو ارفاق مثال مبسط للنظر فيه ... ومحاولة حل ذلك ... حياك الله ... ملاحظة دائما لا تعتب من عدم رد اخوانك في المنتدى ... قدر ظروفهم ... قدر محاولة فهم السؤال ... لكن لا تتوقع تجاهلهم لسؤال سائل طالما ان بمقدورهم الرد ... وكثيرا وضع مرفق مبسط يغني عن طرح صفحات من الشرح ... اشكر لك سعة صدرك .. اولا باشكر حضرتك على الرد ثانيا بالفعل انا عامل كده انا هرفع المشروع كامل علشان الباقى يستفاد منه حضور وانصراف موظفين.rar رابط هذا التعليق شارك More sharing options...
Ahmed_J قام بنشر يناير 10, 2022 مشاركة قام بنشر يناير 10, 2022 السلام عليكم ممكن نسخة تعمل على اوفيس 2010 شكر ا لك رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر يناير 10, 2022 الكاتب مشاركة قام بنشر يناير 10, 2022 18 دقائق مضت, Ahmed_J said: السلام عليكم ممكن نسخة تعمل على اوفيس 2010 شكر ا لك هل فى طريقة لتحويلها الى 2010 ؟ رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر يناير 10, 2022 الكاتب مشاركة قام بنشر يناير 10, 2022 انا حاليا جاري اعادة بناء البرنامج من جديد على اصدار 2010 رابط هذا التعليق شارك More sharing options...
أفضل إجابة ناقل قام بنشر يناير 10, 2022 أفضل إجابة مشاركة قام بنشر يناير 10, 2022 طيب أهلا عمر .... جرب هل هذا ما تريد ؟؟ On Error GoTo Errw Dim i As Integer DoCmd.GoToRecord , , acFirst For i = 1 To Me.Recordset.RecordCount If Me.Emp_ABSCENT = False Then txtTimeIn.Value = Time Else txtTimeIn.Value = "" End If DoCmd.GoToRecord , , acNext Next i Exit Sub Errw: MsgBox "لقد تم اعتماد الحضور بنجاح بنجاح", vbOKOnly حضور وانصراف موظفين.accdb 2 رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر يناير 10, 2022 الكاتب مشاركة قام بنشر يناير 10, 2022 10 دقائق مضت, ناقل said: طيب أهلا عمر .... جرب هل هذا ما تريد ؟؟ On Error GoTo Errw Dim i As Integer DoCmd.GoToRecord , , acFirst For i = 1 To Me.Recordset.RecordCount If Me.Emp_ABSCENT = False Then txtTimeIn.Value = Time Else txtTimeIn.Value = "" End If DoCmd.GoToRecord , , acNext Next i Exit Sub Errw: MsgBox "لقد تم اعتماد الحضور بنجاح بنجاح", vbOKOnly حضور وانصراف موظفين.accdb 1.19 \u0645\u064a\u062c\u0627 \u0628\u0627\u064a\u062a · 0 downloads هذا هو المطلوب الله يبارك فيك وفى جميع احبابك واهلك والمسلمين جميعا رابط هذا التعليق شارك More sharing options...
ناقل قام بنشر يناير 10, 2022 مشاركة قام بنشر يناير 10, 2022 17 دقائق مضت, عمر ضاحى said: هذا هو المطلوب الله يبارك فيك وفى جميع احبابك واهلك والمسلمين جميعا حياك الله .... واياك 1 رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر يناير 10, 2022 الكاتب مشاركة قام بنشر يناير 10, 2022 استاذي @ناقل ممكن بعد اذن حضرتك اذا لم اثقل عليك اريد ان اضيف شئ فى الكود ان يراجع تسجيل الانصراف اذا كان اليوم الخميس يسجل مثلا انصراف للجميع الساعه 3 عصرا اما باقي الايام يسجل 4 بعد العصر كيف ممكن اعمل ده رابط هذا التعليق شارك More sharing options...
ناقل قام بنشر يناير 10, 2022 مشاركة قام بنشر يناير 10, 2022 2 ساعات مضت, عمر ضاحى said: استاذي @ناقل ممكن بعد اذن حضرتك اذا لم اثقل عليك اريد ان اضيف شئ فى الكود ان يراجع تسجيل الانصراف اذا كان اليوم الخميس يسجل مثلا انصراف للجميع الساعه 3 عصرا اما باقي الايام يسجل 4 بعد العصر كيف ممكن اعمل ده ممكن .... طيب استبدل الشيفرة بهذا ..... On Error GoTo Errw Dim i As Integer DoCmd.GoToRecord , , acFirst For i = 1 To Me.Recordset.RecordCount If Me.Emp_ABSCENT = False Then Dim Dday As Integer Dday = Weekday(Date_today) If Dday = 5 Then Me.txtTimeIn.Value = Time Me.txtTimeOut = "03:00:00 م" Else Me.txtTimeOut = "04:00:00 م" Me.txtTimeIn.Value = Time End If Else Me.txtTimeIn.Value = "" End If DoCmd.GoToRecord , , acNext Next i Exit Sub Errw: MsgBox "لقد تم اعتماد الانصراف بنجاح", vbOKOnly 1 رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر يناير 10, 2022 الكاتب مشاركة قام بنشر يناير 10, 2022 اولا باشكر حضرتك بس مش عارف ليه مش شغاله جربت انى احط رقم اخر غير رقم 5 برضه مفيش تغير هو انا لما غيرت الرقم الى 2 اشتغل بس ليه !! كيف يوم الخميس عندي هو رقم 2 رابط هذا التعليق شارك More sharing options...
ناقل قام بنشر يناير 10, 2022 مشاركة قام بنشر يناير 10, 2022 يبدوا بداية الاسبوع عندك في الجهاز مختلف .... غيرها حسب الاعدادات الاقليمية في الويندوز لديك انظر ..... رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر يناير 11, 2022 الكاتب مشاركة قام بنشر يناير 11, 2022 طيب هو بداية الاسبوع عندك يوم ايه ؟ رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر يناير 11, 2022 الكاتب مشاركة قام بنشر يناير 11, 2022 انا محتاج احسب الاضافى فى استعلام انا ظبطتها فى الفورم لكن لما حبيت اطبق على الاستعلام اداني نتائج غريبه مريبه كده 😅 وارقام فلاكيه بس انا عاوز الداله اذا كان الاضافى بالسالب او بالموجب فترة ربع او نصف ساعه يعطينى النتيجه صفر واذا كان اكبر يعطينى النتيجه كيف اعمل ده ؟ رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر يناير 11, 2022 الكاتب مشاركة قام بنشر يناير 11, 2022 تم بحمد الله اعادة بناء البرنامج على اوفيس 2010 علشان باقي الاعضاء وبالنسبه للاستعلام الذى كنت اتحدث عنه هو موجود فى هذا البرنامج المرفق باسم PrintDowam1 ؛ فانا بحاجة الى اصلاح الداله الموجوده او ايجاد طرق تكون ايسر لى علشان اقدر استفاد من الاستعلام فى امور اخري حضور وانصراف موظفينV2010.rar رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر يناير 11, 2022 الكاتب مشاركة قام بنشر يناير 11, 2022 الحمد لله عرفت اوصل لاصل المشكله وحليتها لكن باقى معايا انى اطلع ارقام اضافى صحيحه مثلا اذا كان الاضافى اقل من 1 ساعه مثل يعطينى القيمه صفر 0 عاوز اعمل عمود تكون قيمته 8 او 9 حسب الايام ( يوم الخميس 8 و يوم الجمعه 9) علشان اقدر اطرح هذا الرقم من اوقات العمل واكمل باقى العمليات الحسابيه مرفق الملف بعد حل المشكله التى كنت واقع فيها حضور وانصراف موظفينV2010.rar رابط هذا التعليق شارك More sharing options...
عمر ضاحى قام بنشر يناير 11, 2022 الكاتب مشاركة قام بنشر يناير 11, 2022 ربنا هداني للصيغه دي واستطعت حل مشكلة الاضافى فى الاستعلام OTH: IIf([T_WHours]-9>0.8 And [T_WHours]-9>0;[T_WHours]-9;"0") مع انى جربت اعملها كده بس فى الاول ما ظبطة معايا الحين تعمل كويس رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.