ابو جودي

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

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

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

بصراحة انا مش قادر افهم اى شئ من المرفق ممكن حضرتك تطبق الكود ده FollowHyperlink "D:\officena\Full Control Of Print Report.mdb"

طيب على كلام حضرتك ده اللى بيحصل فعلا وادى صورة من البرنامج معلش انا مش قادر افهم حضرتك عاوز ايه بالظبط

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

وجدت هذا المثال عسى ان تكون به الفائدة والمراد ان شاء الله TimeCheck.rar

اولا المرفق لا يحتوى على اى ماكرو ثانيا الكود الوحيد المستخدم خاص بإحضار سيريال القطاع c من الهارد ديسك ثالثا ليس للمرفق اى علاقة بعنوان الموضوع وموضع السؤال رابعا لو حضرتك عاوز تعمل زر الامر يفتح قاعدة ثابته انسخ المسار الذى تريده واستبدله بالكود الاتى على حدث زر امر عند النقر FollowHyperlink "D:\officena\Full Control Of Print Report.mdb" على اعتبار ان المسار الخاص بقاعدة البيانات الى تريد فتحها هو D:\officena\ واسم قاعدة البيانات هو D:\officena\Full Control Of Print Report.mdb قم بتغيير المسار واسم القاعدة بما يناسبك

فضلا وليس امرا ممكن مرفق القاعدة لو تكرمت

اتفضل Deduction_up.rar

اتفضل asdaa9988_up.rar

ان شاء الله تجد ضالتك ان شاء الله وزياده فتح اى شئ من خلال زر امر.rar

اخى الحبيب جزاكم الله خيرا

حتى تكتمل الفائدة وتعم على كل اخوانى واحبائى مواعيد الحضور والانصراف متغيرة وهى كالاتى فى الايام من الاحد الى الخميس موعد الحضور النهائى 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

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