ابو جودي

حتى تكتمل الفائدة وتعم على كل اخوانى واحبائى مواعيد الحضور والانصراف متغيرة وهى كالاتى فى الايام من الاحد الى الخميس موعد الحضور النهائى 8:15 صباحا بدء موعد الانصراف 2:00 ظهرا وبدء انصراف المستمرين بالعمل 4:30 عصرا وفى ايام العطلات الرسمية والاسبوعية الحضور من الساعة 9:00 صباحا وبدء موعد الانصراف 2:00 ظهرا وفى رمضان الحضور من الساعة 8:00 وحتى بدء موعد الانصراف من الساعة 1:00 ناهيكم عن اختلاف المواعيد التى قد يتم استدعاء الاشخاص للعمل فيها من بعد الانصراف وليس لها اى مقاييس فى الحضور والانصراف طبعا كثرت التقارير نظرا لاختلاف الاوقات وكنت افكر فى عدم وقوع الشخص فى اى خطأء بالضغط على زر غير الزر المحدد لطباعة التقرير طبقا للوقت والزمان واليكم النتيجة التى توصلت اليها بفضل الله تعالى ثم استاذى الجليل ومعلمى القدير رمهان للعلم وهام جدا انا جعلت التاريخ يتم التلاعب فيه يدويا ولكى ترى الحدث الصحيح المناسب للتاريخ يجب اغلاق النموذج وفته وذلك للتجربة فقط عند ربط البرنامج بتاريخ اليوم تلقائيا سنغير هذا المعيار [Forms]![frm_prinr0]![day_date] الى Date() داخل الكود الاتى Private Sub Form_Open(Cancel As Integer) On Error Resume Next Me.Requery If day_name = "الجمعه" Or day_name = "السبت" Or IsDate(DLookup("HolidayDate", "tbl_Holidays", "HolidayDate=[Forms]![frm_prinr]![day_date]")) Then cmd_b.Enabled = True ElseIf rmdan = "رمضان" Then cmd_c.Enabled = True Else cmd_a.Enabled = True End If End Sub فيصبح الكود Private Sub Form_Open(Cancel As Integer) On Error Resume Next Me.Requery If day_name = "الجمعه" Or day_name = "السبت" Or IsDate(DLookup("HolidayDate", "tbl_Holidays", "HolidayDate=date()")) Then cmd_b.Enabled = True ElseIf rmdan = "رمضان" Then cmd_c.Enabled = True Else cmd_a.Enabled = True End If End Sub وكذلك فى حدث عند الحالى لا ننسى أن نقوم بتغيير هذا السطر من الكود TxtTDateHijri = day_date Private Sub Form_Current() On Error Resume Next Calendar = vbCalHijri TxtTDateHijri = day_date rmdan = Format(TxtTDateHijri, "mmmm") TxtTDateHijri = Format(TxtTDateHijri, "DD/MMMM/YYYY") & "هـ" Calendar = vbCalGreg If Not IsNull(HolidayType) Then HolidayType.Visible = True Else End If If rmdan = "رمضان" Then rmdan.Visible = True Else End If End Sub الى TxtTDateHijri = date() اعتذر على الاطالة ولكن هذه الفكرة ان شاء الله ستقلل الاخطاء البشرية فى اثناء معالجة البيانات وطباعتها ان لمن تكن ستنهى على الاخطاء نهائيا كل الشكر والتقدير والعرفان بالامتنان لكل اساتذتى الكرام فى هذا الصرح الشامخ اسال الله تعالى ان يغفر لكم ولابائكم ولابنائكم ولكل زويكم واهلكم وكل من تحبون ان شاء الله اسال الله تعالى ان يرزقكم البركة فى العمر والعلم والعمل وان يجعل كل اعمالكم خالصة لوجهه الكريم فتكون حجة لكم اسال الله تعالى لكم مرافقة الانبياء فى الجنة ان شاء الله اسال الله تعالى ان لا يحرمكم لذة النظر الى وجهه الكريم وان يرزقكم شربة من يد حبيبنا وسيدنا محمد صلى الله عله وسلم امين امين امين print attendance☺.rar

جزانا الله واياكم خير الجزاء الحمد لله سبحانه وتعالى الذى هدانا وما كنا لنهتدى لولا ان هدانا الله عزوجل سبحانك لا علم لنا الا ما علمتنا يارب لك الحمد كما ينبغى لجلال وجه ولعظيم سلطانك ربنا لك الحمد حمدا كثيرا طيبا طاهرا مباركا فيه الحمد لله تعالى الذى تتم بنعمته الصالحت

الحمد لله الى تتم بنعمته الصالحات الحمد لله الذى هدانا وما كنا لنهتدى لولا ان هدانا الله الحمد لله الذى تتم بنعمته الصالحات اولا : انظر الى الاستعلام الخاص بمصدر بيانات مربع التحرير والسرد الاول باسم : kalam_n ثانيا : انظر الى الاستعلام الخاص بمصدر بيانات مربع التحرير والسرد الثانى باسم : maamour وكذلك ركز فى هذا المعيار الذى تم وضعه داخل الاستعلا [Forms]![Table1]![kalam_n] هذا المعيار يقوم بفرز مربع التحرير والسرد الثانى " maamour " بناء على قيم مربع التحرير والسرد الاول " kalam_n " ولكى يعمل ذك مع تغير قيم مربع التحرير والسرد الاول " kalam_n " وضعت فى حدث عند التحديث الكود الاتى maamour.Requery اى بعد تحديث قيم مربع التحرير والسرد الاول " kalam_n " فرز البيانات وتحديثها فى مربع التحرير والسرد الثانى " maamour " بناء على القيمة التى فى مربع التحرير والسرد الأول " kalam_n "

انشاء الله تعالى يكون هو ده المطلوب taqteet- UP.rar

للعلم انا ما عملت شئ يستحق الشكر ومهما فعلت فلن استطيع ان اقدم مقابل ما احصل عليه من اساتذتى واخوانى الكرام اخى الحبيب قد تكون المشكله من نظام التشغيل نفسه قد تكون هناك خلل فى بعض الملفات او نقص بها ثم دعنى لا ننسى ان نظام تشغيل ويندوز 8 اسرع من سابقه ونظام 10 اسرع منهما معا

انا مش قادر افهم كويس لكن على كل حال انا عملت تعديل على حسب فهمى اتمنى على الله تعالى ان يكون هذا هو المطلوب نفوسي-UP.rar

اعتقد المشكله من نسخة الويندوز نفسها اخى الحبيب او من فقر امكانيات الجهاز من مساحة الهارد ديسك والرامات وكذلك نوع معالج البيانات انا فى الشغل اعمل على اكثر من جهاز بأكثر من نظام تشغيل win xp , win 7 , win 8 , win 10 ولم اعانى من اى مشكله مما ذكرتها حضرتك الى الاجهزة القديمة التى تفتقر الى الامكانيات مادية

اخى الحبيب كمال قال والدى واستاذى الجليل ومعلمى القدير الاستاذ ابوخليل المشكلة فى اعدادت اللغة ويرجع ذلك الى النظام واعدادته تابع معى ركز معى وتابع تلك الاعدادت من لوحة التحكم وسيعمل معك البرنامج على كل الحواسيب التى ستقوم بتعديل هذه الاعدادت بها 1- افتح لوحة التحكم " Control Panel " 2- اعدادت اللغة المحلية والاقليمية " Regional and Language Option " أو "Language" حسب نوع نظام التشغيل 3- تابع الشرح بالصور 4- اختر اللغة العربية التى تناسبك سيطلب عمل ريستارت للجهاز وبعد ذلك ان شاء الله رب العالمين سوف تنحل تلك المشكله

ههههههه فعلا كلام حضرتك صح اوقات الواحد وهو شغال راسه بتوقف عند فكرة واحدة بس جزاكم الله خيرا على تنبيهى لذلك وكده تمام التمام اسال الله تعالى ان يزيدكم علما وينفعكم بما علمكم غفر الله لكم ولوالديكم وبصراحة انا فىى بادئ الامر لم اكن اريد ادراج قائمة الققيم فى النموذج وفكرت فى دالة DLookup ولكن وقفت امامى مشكلة كيف اربط التاريخ الحالى بتاريخ الاجازة وسبحان الله تعالى حضرتك من تلقاء نفسك تذع الحل وفيت وكفيت استاذى الحبيب غفر الله لك ولوالديك ولمن تحب ان شاء الله اسال الله تعالى ان يبارك لك فى علمك وعملك وان يزيدكم من فضله وان يجعل كل اعمالكم خالصة لوجهه تعالى الاستاذ صالح حمادى اخى الحبيب اعجبنى جدا جدا جدا استخدام For i شكرا اخى الحبيب على حضوركم الرائع ومشاركتكم الرائعة اسال الله تعالى ان يغفر لكم والديكم ولمن تحبون واسال الله تعالى ان يزيدكم علما ويرزقكم البركة وينفعكم بما علمكم ويجعل كل اعمالكم خالصة لوجهه الكريم جزاكـــــــــــــــــــم الله خيــــــــــــــــــــــــــرا

السلام عليكم ورحمة الله تعالى وبركاته اساتذتى الافاضل فى المرفق التالى اريد عدم تفعيل الزر A وتفعيل الزر B عندما يكون تاريخ اليوم يساوى احد القيم الموجودة ضمن التواريخ فى قائمة القيم فى النموذج frm_prinr فكرت فى عمل فرز لقائمة القيم بناء على قيمة تاريخ اليوم من النموذج واستخدمت الكود الاتى فى حدث عند الفتح If day_date = HolidayDate_list.Column(1) Then cmd_a.Enabled = False cmd_b.Enabled = True Else End If Me.Requery ولكن لم اوفق فى فكرتى والنموذج frm_prinr 2 لم أقم بأى شئ هل من حيلة للوصول للنتيجة المطلوبة ؟ جزاكم الله خيرا TEST.rar

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

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

هو ايه علاقة المرفق ده بالطلب بتاعة حضرتك ! انت متأكد ان حضرتك ارفقت المرفق الصحيح ؟؟؟

ارفق مثال لو تكرمت يحتوى على الجداول

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

كل الشكر والتقدير والامتنان اساتذتنا الكرام على حضوركم الطيب

إنشاء جداول اكسس بالأكواد ♥ craet table with hard code ☺ craet table with hard code ☺.rar

بجد راااااااااااائعة لكن اعتقد محتاج ترتب الايام فى الكود

لا شكر على واجب اخى الحبيب انا لم افعل ما يستوجب الشكر حتى فقط اسال الله تعالى ان يهيئ لكم من امركم رشدا ان شاء الله

اخى الحبيب انا وجدت فروق اكثر من دقيقتين بين المشاركات عفوا منك اخى الحبيب

كل الشكر والتقدير لمعلمينا الافاضل جزاكم الله خيرا وشكر الله تعالى لكم جميل حلمكم وحسن كرمكم اسال الله تعالى ان يرزقكم البركة فى العمر والعلم ويزيدكم علما وفضلا كبيرا الاستاذ : رمهـــان الاستاذ : ابوخليل اشهد الله تعالى انى احبكم فى الله ولله

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

تم اضافة كود اسماء الشهور بالطريقة الرمهانية

اهلا اهلا بالمسات الرمهانية