كل الانشطه

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

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

وعليكم السلام ورحمة الله وبركاته ،، موضوع ثري وجميل للنقاش ، ويستحق فعلاً أن يُبنى على تصور شامل ودقيق من البداية . وبحسب ما فهمت من تصوركم – وهو تصور متطور ومرن – لدي نقطة بسيطة أحب أن أطرحها للنقاش :- هل سيُؤخذ بعين الاعتبار مسألة ( التأخيرات المسموحة ) ؟ يعني مثلاً :- إذا تأخر الموظف عن وقت حضوره بـ 5 دقائق ، هل يُعتبر (حاضراً ضمن الوقت أم متأخراً ) ؟؟؟؟ لهذا أعتقد أنه من المفيد – وربما الضروري 😅 – أن تكون هناك حقول مثل :- StartTime و EndTime لكل وردية . وحقل إضافي مثل AllowedDelayMinutes ( الحد الأقصى للتأخير المقبول ) . هذا يُسهل مستقبلاً حساب التأخير والانصراف المبكر ، ويجعل النظام أكثر دقة وواقعية ، خاصة إذا تم استخدام البيانات لاحقاً في تقييم الأداء أو إعداد تقارير زمنية . مجرد وجهة نظر قابلة للنقاش 🌷 ، ومتابع معكم للإستفادة من الآراء والتجارب . وهو فعلاً ما تم إدراجه في مرفق معلمنا أبو خليل ، ولكن جاء ردي قبل أن أرى المرفق في آخر مشاركة له 👌 وبناءً على الملف المرفق ، قمت بإضافة حقل جديد نصي = "FtraID" ، في الجدول "tblcomIn" ، وقيمته يتكون رقم الفترة التي سجل فيها الموظف حضور أو انصراف . وتم اعتماد القيم ( 1 = حضور ، 2 = انصراف ، 3 = حضور متأخر ) في الحقل chekType داخل نفس الجدول . بحيث نعالج :- التأكد من إدخال رقم الموظف وعدم تركه فارغاً . التحقق من وجود الموظف في جدول الموظفين tblNames . تحديد الفترة الزمنية المناسبة (الفترة الحالية) حسب الوقت الآن من حقول start_work وend_work في جدول الفترات tbl_Ftrat . إذا لم تكن الفترة الحالية ضمن أي فترة معرفة ، يتم تسجيل حركة دخول متأخر ( chekType = 3 ) . إذا كانت الفترة الحالية معروفة :- * حساب عدد حركات الدخول ( chekType = 1 أو 3 ) والخروج ( chekType = 2 ) للموظف في نفس الفترة واليوم الحالي. * منع تسجيل دخول جديد في نفس الفترة واليوم إذا كان الموظف قد أكمل دورة دخول وخروج ( أي أن عدد الدخول أقل أو يساوي عدد الخروج ) . * تحديد نوع الحركة القادمة ( دخول أو خروج ) حسب آخر حركة مسجلة للموظف في نفس الفترة واليوم . * تسجيل الحركة الجديدة (دخول ، خروج ، أو دخول متأخر) في جدول tblcomIn مع ربطها بالفترة . * إعلام المستخدم برسالة تأكيد نوع الحركة والفترة . وهذا ملف التعديل ، لإجراءاتكم بالنتيجة اذا كانت غير مطابقة أو يوجد احتمالات لم تخطر لي حالياً .. comOutDb.zip

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

هذا مثال لعرض ما تم نقاشه نريد اجراء العمليات عليه والضبط حسب جدول الفترات الحقلان : startWithFree و endWithFree ستختفي من الفورم مستقبلا ولكني وضعتها للاستئناس والتأكد من النتيجة comOutDb.rar

تسلم كتر خيرك وانا اسف لتعبك معايا شكرا

استدراك : الدوام الخاص الافضل ان يكون متاح له اكثر من تبويب مثل : خاص1 ، خاص2 ، خاص3 وهكذا ... وبرمجيا فعلا هو متاح الى مالا نهاية والسبب انه قد يوجد اكثر من موظف خاص اوقاته تختلف عن الآخر وهنا يتبين اننا بحاجة الى جدول فرعي واحد فقط .. يتم تسجيل الفترات وأسماءها من قبل المستخدم حسب تصوري الآن اصبح المشروع اكثر مرونة من حيث تحديد الفترات هل هذا التصور سليم ؟

تمام بارك الله فيك بالنسبة لجدول الورديات ( من تاريخ الى تاريخ ) لسنا بحاجته .. والسب ان العمل مدني مستمر اذا سيكون الجدول الفرعي : صباحية / مسائية / دوام كامل/ دوام خاص وامام كل وردية بياناتها : وقت الحضور ووقت الانصراف .. والسماح وفي جدول الأسماء حقل (x) لاختيار الوردية المناسبة للموظف عند التوقيع حقل(x) سيحمل البيانات والمواصفات الخاصة به الموجودة في جدول الورديات ويتم تعامل الاجراءات الخاصة في فورم التوقيع بناء على ذلك صح؟ ما رأيك

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

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

وعليكم السلام ورحمة الله وبركاته معلمنا القدير .. 🙂 🌹 وأنا أحد تلاميذك أسمحلي بأن أطرح فكرتي في هذا الموضوع ( وقد عملت على مشروع مشابه) .. 🙂 أولا : نفترض أن الموظف له فترة دوام محددة (من ضمن القائمة التي ذكرتها) بين تاريخين محددين مثال : 1- شهر رمضان له أوقات دوام مختلفة عن باقي الشهور. 2- الموظف أنتقل من موقع عمل لموقع آخر له فترة دوام مختلفة. 3- الموظف تغيرت ورديته من صباحية إلى مسائية أو العكس. 4- والأمثلة كثيرة ..... ثانيا : نقوم بتصميم جدول فرعي لجدول الموظفين (جدول الورديات) يتم فيه إضافة سجل لكل نوع دوام للموظف حسب نوع الوردية وتحديد الفترة الزمنية (من تاريخ) ---> (إلى تاريخ). ثالثا : تصميم نموذج فرعي يضاف لنموذج الموظفين يتم فيه تعبئة هذه البيانات التي ذكرناها في جدول الورديات . رابعا : يتم احتساب مدة العمل والتأخير والانصراف المبكر وعدد ساعات العمل التي أداها الموظف بناءً على فترة دوامه المذكورة في جدول الورديات . وهذه صور توضيحية حسب المشروع الذي عملت عليه وهو خاص ببرنامج لأحد الاخوة 🙂 : جدول الورديات : نموذج بيانات الموظفين + النموذج الفرعي للورديات ( الورديات التي ليس لها تاريخ نهاية هي ورديات مستمرة حتى تاريخ اليوم ولها اعتبار في كود الحسابات) : صورة مقربة للنموذج الفرعي : القائمة المنسدلة للورديات تأخذ بياناتها من جدول فرعي آخر يتم فيه تسجيل أنواع الورديات والبيانات المتعلقة بها : بعد هذا قمنا بتصميم جملة من الدوال الخاصة بجلب البيانات الخاصة بتفاصيل الورديات من الجداول وتطبيقها على الموظفين وحساب ما يطلب حسابه .. هذا باختصار وسلامتكم 🙂

أستاذي الفاضل / Foksh اشكر لك سرعة تفاعلك نعم هذا المطوب وجزاك الله خير

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

شكرا لك اخي الكريم هذا هو المطلوب بالفعل

سنأخذ الجداول واحد واحد : الأول : جدول رصد الحضور والانصراف : ( الحقل الواحد) المعرف / حقل رصد وقت الحضور والانصراف Now / حقل النوع : ( O/I) ما رأيكم ؟؟

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

السلام عليكم ورحمة الله احبتي واخوتي الخبراء وكافة اعضاء هذا المنتدى المبارك اريد ان اشارككم عقولكم .. ونضيف الى المنتدى دروسا جديدة مفيدة وحيث ازعم اني معلم في هذا المنتدى .. فأنا اعطي درسا للمبتدئين .. ولمن يريدون انشاء مشاريعهم .. ان الاستشارة ودراسة المشروع من جميع جوانبه اهم شيء في العمل .. لا بد من استشارة اهل الخبرة قبل البدء في اول خطوة . وعن نفسي لا اجد غضاضة في الاستشارة في امور تبدو بديهية للمبتدىء وأول خطوة هي اعداد الجداول .. ومازلت عند رأيي ان ضبط الجداول بالشكل الصحيح عبارة عن تنفيذ 80% من المشروع .. ندخل لصلب الموضوع : صاحب العمل طلب ان تكون الاجراءات كخطوط عريضة على النحو التالي : ١- امكانية تحديد وقت دوام الموظف لفترة صباحية. ( 4 ساعات) ٢- امكانية تحديد وقت دوام الموظف لفترة مسائية. ( 4 ساعات) ٣- امكانية تحديد وقت دوام الموظف فترتين صباحية ومسائية. ٤- امكانية تحديد وقت دوام الموظف فترة دوام كامل ٨ او ٩ ساعات. 5- امكانية تعديل وقت دوام موظف فترة مختلفة مؤقته مثل المحاسب يكون البرنامج مرن بحيث يخدم في برمضان ( عند تغير وقت العمل ) هذه الطلبات اخذتها نسخ لصق المطلوب .. ما الجداول التي احتاجها لهذه الجزئية .. التي هي التحكم بهذه المتطلبات علما ان العملية مطلوب ان تكون آلية من غير تدخل المستخدم المستخدم فقط يقوم باعداد هذه الضوابط من خلال جدول التحكم

السلام عليكم ورحمة الله تعالى وبركاته استاذى الجليل ومعلمى القدير و والدى الحبيب الاستاذ @jjafferr ممكن أعرف إيه هى المشكله اللى حضرتك حصلت عليها

جرب هدا في الخلية E2 = D2 - PRODUCT(C2, 10) أو =SUM(D2, -C2*10) المعدات v3.xlsx

السلام عليكم اما انا فما احب استعمال Timer في نماذجي ، لأنها تؤذيني لما اشتغل في الكود !! واعتقدت ان كود اخوي ابو جودي سيحل المشكلة ، ولكن للأسف ، حصلت على نفس المشكلة في الكود !!

السبب هو أنه يوجد خلايا مدمجة ، فكيف سيتم تمييز في اي خلية سيتم ادراج التاريخ و الوقت !!!!! قمت بتعديل مواضع الـ CheckBox في ملفك ، وتعديل الدالة بحيث تتعامل مع الخلايا المدمجة ، لتصبح كالتالي :- Sub FokshCheckBox() Dim chk As CheckBox Dim rng As Range Dim rowNum As Long, colNum As Long Dim targetCell As Range Dim cbValue As Long On Error GoTo SafeExit Set chk = ActiveSheet.CheckBoxes(Application.Caller) cbValue = chk.Value If chk.TopLeftCell Is Nothing Then Exit Sub Set rng = chk.TopLeftCell rowNum = rng.Row colNum = rng.Column Set targetCell = Cells(rowNum, colNum + 1) If targetCell.MergeCells Then Set targetCell = targetCell.MergeArea.Cells(1, 1) End If If cbValue = xlOn Then If IsEmpty(targetCell.Value) Then targetCell.Value = Now End If ElseIf cbValue = xlOff Then targetCell.MergeArea.ClearContents End If SafeExit: End Sub اختيار التاريخ.xlsm

لقد تم تعديل الكود في المشاركة السابقة لتتناسب مع طلبك يمكنك إعادة تحميل الملف من المرفقات مثال للنتائج المتوقعة :

الأستاذ الفاضل Foksh لماذا لم ينجح الحل عندما نقلته الكود امل الاطلاع مع الشكر والتقدير اختيار التاريخ.xlsm

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

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