ابوخليل

تصدير الى اكسل .. هذه جديدة ! الدمج سيتم في اكسل مع الاسف لست خبيرا في اكسل

ههههه جبتها بالصميم أسأل الله حسن الخاتمة .. لكن سؤالي هي ان الحقول تاريخ .. وانت حولتها الى رقم .. مالسبب من امتناع جلبها كتاريخ .. مع اني كنت دوما استخدم ذاك التعبير ويعمل بشكل صحيح DLookup("[date2]", "[tbl2]", "[date2] =#" & Me.text1 & "# And [user_id] ='" & Me.text2 & "'") والحقول فعلا تاريخ وتنسيق الحقول واحد متشابه والآن اكتشفت صحة ملاحظتك بعدم التركيز .. فأزيدك من الشعر بيت .. ان اليوزر في الجدولين مختلف اهلا باخوي الشايب هذه اين يكون مكانها في الاستعلام .. اعتقد يمكن عندما نحول هذه الاسطر الى دالة آمل كرما تشغيل الاستعلام بهذه وارفاقه ..

اعتقد يريد شبيه هذا تطبيق على مثال من عمل اخونا @jjafferr مثال2.rar

السلام عليكم احبتي .. احاول جلب تاريخ من جدول tbl2 بما يماثله من جدول tbl1 داخل الاستعلام ولكنه لا يستجيب ايضا حاولت جلبه من خلال رسالة في النموذج ولكنه لا يستجيب حاولت مرارا وتكرارا .. عجيب جدا .. شروط الدالة صحيحة ، وايضا المكتبات صحيحة قد تكون المشكلة عندي فقط .. لذا اعرضه عليكم d8.rar

جزاك الله خيرا وبارك فيك ابا احمد سوف اعمل عليه .. واطوع الاستعلامات لاستخراج ما اريد

هذه يسير امرها واستسمحك بالتصرف فيها على النحو التالي : كود الحضور بحاجة الى تدقيق .. سأحاول اكتشاف الخلل حذفت Vacation من شرط الغياب نتيجة الغياب الآن اصبحت = 100% فجزاك الله خيرا .......................................... المهم المطلوب تحقيقه هو :

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

للترتيب ضع هذا السطر في الاستعلام مصدر بيانات النموذج modul trteeb: CLng(DCount("ID";"modul";"mouadel_3am >=" & [mouadel_3am])) واجعله مصدر حقل الترتيب مجموع الطلاب اكتب في مصدر بيانات الحقل التالي : =Count(*)

ما شاء الله ابو احمد سلمت الأنامل التي اجادت هذه السطور الملاحظات الايجابية : 1- تقرير شهري منضبط لموظف .. فقط يتم اختيار السنة والشهر واليوزر 2- استيفاء جميع الحركات الطارئة على عملية التحضير ( العطلة الاسبوعية/ الاجازات العادية والمرضية/ الحضور / الغياب ) الملاحظات محل النظر : 1- ماذا بشان تقرير يوم محدد لجميع الموظفين ؟ لا شك هذا التقرير مهم جدا .. خاصة لعرض الغائبين ذلك اليوم الملاحظات حول النتيجة : عملت استعلاما يحصر الايام الموجودة في جدول الحضور من 1/6 وحتى 11/6 مع استبعاد ايام نهاية الاسبوع من اجل تسهيل التدقيق .. تجده في المرفق أدناه وفيه : 1- تم رصد أيام الاجازة 3 ، 4 ، 5 بشكل رائع 1- تم رصد غياب يوم 1 من الشهر مع انه حاضر هذا اليوم ومثله يوم 9 ايضا .. الغياب الذي تم بدون عذر هو يوم 8 2- الى ترى معي انه من المستحسن ان يتم تأشير الغياب أيام الاجازة 3 ، 4 ، 5 ... لأنه بديهيا سوف نعرض الغائبين ذلك اليوم ولكن ايضا في المقابل هناك ما يبرر الغياب من عدمه لان ايام 3 ، 4 ، 5 امامها انه مجاز ولكن يوم 8 ليس امامها شيء هذه الملاحظات لا تنقص من روعة هذا العمل الاحترافي الفذ . Attendance_09.rar

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

نعم .. نعم .. هو كذا يا باشمهندس كذا الشغل والا بلاش .. سلمت أناملك .. وفكرك

رغم ان المرفق عبارة عن جداول فأنا اعتذر عن الغفلة ملحوظة : كنت في اعمال لي سابقة استخرج الغياب بناء على جدول الحضور .. حيث يوجد موظفون آخرون حاضرون في تاريخ غياب الموظف الهدف وعن طريق الاستعلام والعلاقة يظهر اسم الموظف الغائب ومعرفه ولكن سجله خالي من التوقيع ........................ هنا لنفرض ان عدد الموظفين 3 او اكثر ثم غابوا جميعا في يوم واحد .. على طريقتي التي ذكرت اعلاه سوف يختفي يوم الغياب ولن يظهر لذا اريد التطبيق على موظف واحد فقط .. واعشق الاختصار في الكائنات والادوات خاصة .. اما الاكواد والدالات فلا مشكلة d6.rar غياب يوم 8 واضح حيث لا يوجد له توقيع في جدول الحضور اما الاجازة ايضا لا يوجد توقيع في جدول الحضور ولكن تم رصد هذه الاجازة في جدول الاجازات

آه في حقلين منفصلين ؟ اذا هو هو حمود اعجبني جدا : Fix(inOutTime) .. انظر : هذه تأتي بمجموع تأخر الحضور وتأخر الانصراف في حقل واحد وابستخدام fix سأختصر اسطر كثيرة منه Public Function funLoss_In_out(ftr As Integer, comIn As Date, comOut As Date) As Integer Dim i As Integer Dim come_In As Date, come_Out As Date Dim RS As Recordset Dim strSql As String come_In = Format(comIn, "Long Time") come_Out = Format(comOut, "Long Time") strSql = "SELECT tbl_Ftrat.* FROM tbl_Ftrat WHERE (((tbl_Ftrat.id)=" & ftr & "))" Set RS = CurrentDb.OpenRecordset(strSql) If come_In > DateAdd("n", RS!start_free, RS!start_work) Then i = DateDiff("n", RS!start_work, come_In) Else i = 0 End If If come_Out < DateAdd("n", -(RS!end_free), RS!end_work) Then x = DateDiff("n", come_Out, RS!end_work) Else x = 0 End If funLoss_In_out = i + x End Function ................................................... جزاك الله خير .. حتى لو سبقوك .. فكل خبير وله بصمته المميزة ايضا كثرة الافكار والحلول مطلب تم فصل موضوع الغياب بعنوان يخصه هنا .. لتفرده

المسألة كالتالي : هذه صورة جدول الحضور من يوم 1/6 وحتى 11/6 الموظف مجاز ايام : 3 ، 4 ، 5 من الشهر بناء على ما تم رصده في جدول الاجازات وغائب يوم : 8 اريد في استعلام اظهار جميع الأيام .. وامام كل سجل حالته : حاضر او مجاز او غائب .. أو تكون ارقام 1 أو 2 أو 3 تعبر عن الحالة

اهلا ابو احمد سرني مرورك ومشاركتك هو انا عملتها بالاول دالة واحدة .. بحيث الدالة تساوي i+x ولكني احتاج للتمييز بين وقت الحضور ووقت الانصراف في التقرير وتلوينها .. لذا اضطررت لجعلها دالتين الدالة واضحة وجميلة : inOutTime تمثل حقل الحضور او حقل الانصراف بناء على قيمة المتغير inOutType ولكني لم اعرف اين القيمة المقابلة لــــ inOutType في الاستعلام على فكرة : كنت اعد مسألة اخرى مرتبطة بهذا .. وقفت امامها .

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

شكرا اخي @Foksh المعرف 4444 المفترض تأخر الحضور 61 دقيقة بدلا من 31 لأنه حضر 5:1 ووقت الحضور 4:00 ما علينا منها اتركها .. حلولك جميلة ومرجع لمن اراد العمليات من خلال الاستعلامات نعم هي الافضل للأسباب التالية : بعد تفكير ومراجعة .. رأيت ان التفاصيل وساعات العمل ليست ذات اهمية داخل الاستعلام الرئيسي .. المهم هو ساعات ودقائق التأخر بالنسبة لساعات العمل فهي ثابتة فلماذا نقحمها في الاستعلام .. اما ساعات العمل الناقصة فستخرج في المجاميع في التقرير الزبدة من شرحي اعلاه : نريد دالة نمرر لها وقت الحضور ووقت الانصراف فقط ....... تعيد لنا ساعات ودقائق التأخر فقط ( الدخول + الخروج) .. اما غير المتأخر فتعيد Null وهذا المرفق تم تعديل الاستعلام ملحوظة : رايتك استخدمت اسم الفترة كمعيار .. الى ترى أن id الجدول افضل ؟ data2.rar

شكرا استاذنا مرجع مهم ومكتبة لمن يريد التوسع في تخصيص وتمييز الرسائل

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

السلام عليكم طرق احتساب التأخر مختلفة وذلك تبعا لما يرغب فيه ويقررره صاحب العمل في المرفق : جدول الحضور .. وقد تم رصد حضور وانصراف الموظفين ليوم محدد جدول الفترة ومبين فيه : وقت الدخول/ start_work ووقت الخروج/nd_work وقت السماح في الدخول/ 30 / start_free وقت السماح في الخروج/30 / end_free وعدد ساعات العمل المقررة / countWorkHours / 7:30 استعلام : يوجد في الاستعلام ثلاث حقول لاظهار النتيجة : عدد دقائق تأخر الحضور _ رقم : In_Loss عدد دقائق الخروج المبكر _ رقم : out_Loss وقت العمل المحتسب _ وقت / work_Hours_count المطلوب : أيسر طريقة سواء داخل الاستعلام او صنع دالة عامة لهذا الشأن .. انا افضل الدالة العامة .. لاحتمال استخدامها داخل التقارير .. او تطويرها لخدمة المجاميع 1- احتساب (دقائق) التأخر ( كرقم ) عند التاخر في الحضور أو الخروج المبكر بناء على الوقت المسموح على النحو التالي : اذا تأخر في الحضور اكبر من المقرر بدقيقة يتم رصد عدد دقائق تأخر الحضور كاملة ( يحرم فترة السماح ) .. ومثلها الانصراف اذا خرج قبل وقت السماح المقرر 2- يرصد في حقل work_Hours_count ساعات العمل الفعلية المحتسبة ( حسب ما هو موجود في جدول الفترات) اما 7:30 للحضور المنضبط واما ( 7:30 - وقت التأخر ) للحضور المتأخر ملحوظة : تم ضبط سجلات الحضور والانصراف بحيث تغطي جميع الاحتمالاات ملحوظة أخرى : اذا رأيتم ان تكون العمليات والحقول كلها تاريخ ووقت بدلا من قيمة التأخر (رقم) فلكم مطلق الاختيار data.rar

كما ذكرت هذا يخصني كمصمم لأن هذا العمل سيكون في نهاية المشروع .. لذا لن اهتم بالوان العناصر اثناء الانشاء استفدت من دالة ابي البشر كنت طلبت منه تفصيل العناصر حسب الاقسام .. ولكني رأيت ان تناسق العناصر داخل الفورم افضل بكثير من التباين لذا جعلت التطبيق على العناصر شامل جميل ان يكون لك لمسة خاصة في ازرار البرنامج .. وتكون على صفة واحدة في جميع المشروع كذلك الفورم يأخذ طابع واحد على مستوى المشروع . _________ المهم .. هي الفكرة .. تعتبر بدائية .. حيث عملت نموذج بسيط يشتمل على : مربع نص / مربع تسمية / مربع تحرير / قائمة / زر افتح النموذج على التصميم واعدل في الوان المقاطع والعناصر كما يحلو لي ثم افتح النموذج على العرض لأطلع على النتيجة وافحص الزر اذا كل شيء تمام انقر زر الحفظ ( يتم حفظ خصائص الالوان في الجدول ) ثم انقر على زر تطبيق اذا اردت التطبيق على كافة النماذج انا اعتبر هذه الطريقة اقرب الى نفسي حيث اتمكن من رؤية الوان النموذج وعناصره وتناسقها امامي قبل الحفظ والاعتماد ....................... الآن يمكن نقل النموذج والجدول والوحدة النمطية الى اي مشروع اخوتي واحبتي مؤكد ان العمل ناقص ولا يغطي جوانب وخصائص كثيرة .. ومع ذلك يمكنكم اضافة خصائص اخرى كما يحلو لكم changColor.rar

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

تمام ولا اجمل .. 100% تبقى التطوير الى الاجمل : 1- اضافة ما تبقى من العناصر .. ومنها التسميات .. ولا شك اهميتها كبيرة 2- التحكم بهذه الألوان من نموذج .. على طريقة ( الذكر الحكيم) لابي جودي التحكم سيكون اما مؤقت فقط حسب الاختيار .. متغيرات تأخذ القيم من خلال ما يتم من تعديل وموافقة وإما عمل جدول يحفظ هذه الألوان بحيث اذا انتقل المصمم الى مشروع جديد ينقل الجدول معه ويطبق الألوان عليه

لسنا في عجلة من امرنا شوف آخر كود لأخ ابي البشر فيه تفصيل للعناصر

جميل .. هذا نصف الطريق نريد نموذجا على طريقة الأخ موسى _ يجلب الى اي مشروع يتم التحكم بكل مقطع وتفاصيله لوحده تمام .. نأمل ان نحصل على طريقة اسهل