ابوخليل

السلام عليكم اريد اسرع واخصر طريقة تمكنني من استخراج ضرب الوقت بالعدد على النحو التالي : 4:30 x 5 = 22:30

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

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

كما ترى يعمل عندي بلا مشاكل يمكن الفاصلة تنقلب عندك تأكد من الكود والفاصلة المنقوطة داخل الاستعلام مصدر النموذج myoutonum: CLng(DCount("ID";"modul";"mouadel_3am >=" & [mouadel_3am])) أذا لم تكن المشكلة منها .. فهي من الحقل المحسوب قد يكون الخلل منه

انا يعمل عندي على اكمل وجهه اتوقع المشكلة عندك في الحقل المحسوب mouadel_3am تم اجراء لمسة عليه .. جرب الآن baseC4.rar

العلاقة صحيحة وهي علاقة رأس باطراف بمعنى ان الطالب يمكن ان يكون له اكثر من سجل في جدول modul بالنسبة للمجموع= 1 فهو منطقي جدا وصحيح ..لأن النموذج بعد الفلترة مصدره سجل واحد فقط . اليك المثال بعد عمل الأوائل .. شغال عندي 100% baseC3.rar

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

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

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

ههههه جبتها بالصميم أسأل الله حسن الخاتمة .. لكن سؤالي هي ان الحقول تاريخ .. وانت حولتها الى رقم .. مالسبب من امتناع جلبها كتاريخ .. مع اني كنت دوما استخدم ذاك التعبير ويعمل بشكل صحيح 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