kaser906

السلام عليكم ورحمة الله بعد عدة محاولات تمكنت من اظهار مجموع العدد المورد من الصنف بالاستعلام رقم 3 ومجموع العدد المورد من الصنف حسب الماركة بالاستعلام رقم 2 ومجموع المصروف حسب الصنف والماركة بالاستعلام رقم 4 امل المساعدة في اكمال الاستعلام رقم 2 ورقم 3 حسب الصورة الموضحة http:// http:// kind1.rar

للرفع

السلام عليكم ورحمة الله وبركاتة المطلوب بالمرفق عمل استعلام يوضح المجموع لكل صنف حسب الماركة التي تم توريدها حيث ان الصنف يتم توريده من شهريا ويتم اختيار الماركة والعدد ويتم تسجيل البيانات بالجدول Tbl_Month حقل رقم الصنف coodkind حقل الماركة Brand حقل العدد المورد Received مثلا اسم الصنف مشروب غازي الماركة يمكن ان تكون بيبسبي او ارسي او بي كولا فيتم في شهر 1 توريد مشروب غازي بي كولا عدد 300 وفي شهر 2 مشروب غازي ماركة ارسي 200 هنا رقم الصنف ثابت لايتغير المتغير فقط رقم الماركة والعدد ويتم صرف الأصناف والماركات من الجدول Tbl_sarf حسب رقم الصنف والماركة والعدد المصروف حقل رقم الصنف coodkind حقل الماركة coodkindBrand العدد المصروف number_expenditure المطلوب في الاستعلام 1 إيجاد العدد المورد للصنف ولكل ماركة والعدد المصروف للصنف ولكل ماركة والعدد المتوفر حاليا لكل صنف وكل ماركة مع احتمالية عدم وجود بعض الماركات بالجدول بجدول التوريد الشهري Tbl_Month kind.rar

DoCmd.OpenForm "nameform", acDesign Forms!frmAuditForm.nameform = False DoCmd.Close acForm, "nameform", acSaveYes DoCmd.OpenForm "nameform" DoCmd.Close acForm, "frmSwitchBoard" بالنسبة لي مش سهله ما حصلت غير هذي الطريقة لزر الاغلاق وهي تعتمد على فتح النموذج في وضع التصميم ومن ثم تغير قيمة زر اغلاق والحفظ ومن ثم اعادة فتح النموذج اما زري التصغير والتكبير فلم اجد لهم طريقة

الف شكر استاذي الكريم الان اصبح يعمل بشكل ممتاز تقبل فائق تحياتي واحترامي

مطلوب الغاء تفعيل ازرار التنقل وزر الخروج وزر التصغير والتكبير حسب الشرح المصور disbil.rar

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

معليش اخي كاسر ! صح الموضوع يخص اخي جعفر ولكن تطفلا لللتعلم ! هذا الكود لم اجده في في القاعدة المرفقة السابقة ! هل هذا صحيح ! وبالنسبة لكود الترقيم التلقائي الموجود بالموديول بالملف السابق : هوه عمله ايه بالظبط ؟ هل هي دالة بتعطيك خيار الترقيم خلال اسبوع او شهر او ربع سنوي او سنوي ؟ والا ايه ؟ وكمان ياليت تقول مصدر الكود ده من وين ؟ عايزين نتعلم ؟ ولك كل الشكر هذا الكود يقوم بحساب اخر رقم في الجدول ويعطيك الرقم الذي يليه في اي وقت مش مناط بمده محدده بالنسبة للشق الثاني من السؤال الكود قام بأعطائي إياه احد الزمﻻء يعني ما حصلته عن طريف المنتديات

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

زاد فضلك استاذي جعفر اولا : تعجبني طريقتك في كتابة الكود ولكن طريقة للمحترفين وصعب قرائتها بالنسبة للمتطفلين على البرمجة أمثالي لدرجة اني من أمس احاول اضيف تاريخ بداية الفترة ونهايتها في حقلين عند عرض النموذج ولم أوفق ثانيا حاب اضيف كود على ازرار ترحيل الايام فأين يجب أن يكون موضعه بالنسبة للكود الذي وضعته Dim X As Integer, tdat, yytdat As String For X = 0 To Me.dy - 1 tdat = UmFormat(UmDateAdd("d", X, Me.[TE]), TF.Format) tdy = UmFormat(UmDateAdd("d", X, Me.[TE]), "dddd") yytdat = UmYear(tdat) DoCmd.RunSQL "insert into WorkEndHolly([T-Day],[HI-Date],[NumbrW],[PcDigit]) Values('" & tdy & "','" & tdat & "'," & [NumbrW] & "," & [Pcdigit] & ");" هل اضعه في أخر الكود أم أين تقترح ارجو الايضاح واضافة التعديل المطلوب ملاحظة استاذي اريد عند التنقل بين سجلات النوذج الاساسي عند عدم وجود رصيد للموظف يتم تفريق حقل اليوم والساعة والدقائق بالاضافة الى الحقلين المطلوب اضافتهما بداية الفترة ونهاية الفترة 231.Edf.rar

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

هي والله ، تفضل بس عملتها بالطريقة السهلة (مب الطريقة الافضل) جعفر 226.Edf.mdb.zip ممتاز أخي الكريم جعفر ولي طلب أخر هل يمكن استخراج اول تاريخ واخر تاريخ واضافتها الى الدجدول الذي ترحل اليه الايام بدلا من تسجيل تاريخ اليوم الحالي مثلا لنقول الساعات مسجل من تاريخ 1436/11/1 1436/11/2 1436/11/3 1436/11/4 1436/11/5 1436/12/6 1436/12/7 1436/12/8 لنضع حقلين بأسم للفترة من 1436/11/1 الى 1436/12/8 تقبل تحياتي طريقة ممتازة وأمل منك التكرم بأضافة اقتراحك انشاء زر أمر أخر لترحيل الارصدة لكل الموظفين تفضل Private Sub أمر22_Click() DoCmd.SetWarnings False On Error GoTo 10 Set rs = Me.RecordsetClone: rs.MoveFirst Do While Not rs.EOF xmin = CurrentDb.OpenRecordset("select sum(hour(timeadd)*60)+sum(minute(timeadd)) from tlb_taq where [off]=0 and pcdigit=" & rs!Pcdigit)(0) If xmin > 0 Then DoCmd.RunSQL "update tlb_taq set [off]=-1 where [off]=0 and pcdigit=" & rs!Pcdigit DoCmd.RunSQL "insert into tlb_taq(Pcdigit,timeadd) values(" & rs!Pcdigit & ",#" & xmin \ 60 Mod 7 & ":" & xmin Mod 60 & "#)" End If rs.MoveNext Loop 10: DoCmd.SetWarnings True End Sub بالتوفيق sum_time.rar الله يعطيك العافية استاذ رمهان لكن لاحظت انه لايتم ترحيل الايام الى جدول اخر فقط يتم تسجيل الباقي من الساعات والدقائق في نفس الجدول تقبل تحياتي

لفتة جميلة استاذ جعغر اشكرك على الايضاح فاالأمر كان ملتبس علي بالفعل تقبل تحياتي

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

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

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

حياك الله اخينا كاسر906 حسب فهمي ان المطلوب هو ان كل سبع ساعات هو يوم عمل وبشرط من ليس له اختيار في الخانة ! فقمت بجمع عدد الساعات وبنفس الشرط لمن لم يؤشر عنده وطبعا بعد جمع الدقائق وتحويلها لساعات >> هنا اصبح لدينا اجمالي الساعات > بعد كذا قسمتها على 7 لكي يظهر عدد ايام العمل ! ظهرت النتيجة لمحمد = 3.37 معناته ثلاث ايام عمل و 37 جزء من المائة يوم ولك الخيار في جبر الكسر للاعلى كرما او للاقل بخلا ! وهنا ارجو توضيح معنى رقم غير مفهوم ! بالتوفيق أشكرك أستاذ رمهان على الايضاح الآن فهمت معنى الرقم الذي كان رمزا بالنسبة على الأقل طريقتك جدا جميلة لكن تعرف المسألة فيها حسابات يعني راح يكون التعويض فيه عن مدة يوم عمل كامل وباقي الساعات والدقائق سيتم ترحيلها اشكرك مرة أخرى وتقبل فائق تحياتي حياك الله اخي كاسر واثراء للموضوع مع اخي الحبيب الاستاذ جعفر الآن فهم المطلوب انك تريد الاجمالي بالايام والساعات والدقائق ! وهي واضحة من تصميم النموذج ولكن ركزت على حساب عدد الايام حسب نص المشاركة الاولى ! وهنا لي عودة ان لم توافقني الراي التالي: مارايك ان تترك عدد الايام يحتوي على عدد عشري يمثل عدد الايام كنسبة >> وهنا مثلا لو سعر عمل اليوم للموظف محمد 500 راح تكون قيمة اليوم 500X3.37 = 1685 وهذا يغنيك عن عمليات الترحيل ! تحياتي للجميع الله يعطيك العافية استاذ / رمهان ليس هذا المطلوب اصبح يظهر في عدد الايام رقم غير مفهوم حسب الصورة المرفقة طريقة الاستاذ / جعفر هي المطلوبة تماما فقط هناك مشكلة احتساب الصفرين في خانة الساعه 12 ساعه والمفروض ن يحسب الدقائق فقط حياك الله اخينا كاسر906 حسب فهمي ان المطلوب هو ان كل سبع ساعات هو يوم عمل وبشرط من ليس له اختيار في الخانة ! فقمت بجمع عدد الساعات وبنفس الشرط لمن لم يؤشر عنده وطبعا بعد جمع الدقائق وتحويلها لساعات >> هنا اصبح لدينا اجمالي الساعات > بعد كذا قسمتها على 7 لكي يظهر عدد ايام العمل ! ظهرت النتيجة لمحمد = 3.37 معناته ثلاث ايام عمل و 37 جزء من المائة يوم ولك الخيار في جبر الكسر للاعلى كرما او للاقل بخلا ! وهنا ارجو توضيح معنى رقم غير مفهوم ! بالتوفيق الله يعطيك العافية استاذ / رمهان ليس هذا المطلوب اصبح يظهر في عدد الايام رقم غير مفهوم حسب الصورة المرفقة طريقة الاستاذ / جعفر هي المطلوبة تماما فقط هناك مشكلة احتساب الصفرين في خانة الساعه 12 ساعه والمفروض ن يحسب الدقائق فقط حياك الله اخينا كاسر906 حسب فهمي ان المطلوب هو ان كل سبع ساعات هو يوم عمل وبشرط من ليس له اختيار في الخانة ! فقمت بجمع عدد الساعات وبنفس الشرط لمن لم يؤشر عنده وطبعا بعد جمع الدقائق وتحويلها لساعات >> هنا اصبح لدينا اجمالي الساعات > بعد كذا قسمتها على 7 لكي يظهر عدد ايام العمل ! ظهرت النتيجة لمحمد = 3.37 معناته ثلاث ايام عمل و 37 جزء من المائة يوم ولك الخيار في جبر الكسر للاعلى كرما او للاقل بخلا ! وهنا ارجو توضيح معنى رقم غير مفهوم ! بالتوفيق أشكرك أستاذ رمهان على الايضاح الآن فهمت معنى الرقم الذي كان رمزا بالنسبة على الأقل طريقتك جدا جميلة لكن تعرف المسألة فيها حسابات يعني راح يكون التعويض فيه عن مدة يوم عمل كامل وباقي الساعات والدقائق سيتم ترحيلها اشكرك مرة أخرى وتقبل فائق تحياتي حياك الله اخي كاسر واثراء للموضوع مع اخي الحبيب الاستاذ جعفر الآن فهم المطلوب انك تريد الاجمالي بالايام والساعات والدقائق ! وهي واضحة من تصميم النموذج ولكن ركزت على حساب عدد الايام حسب نص المشاركة الاولى ! وهنا لي عودة ان لم توافقني الراي التالي: مارايك ان تترك عدد الايام يحتوي على عدد عشري يمثل عدد الايام كنسبة >> وهنا مثلا لو سعر عمل اليوم للموظف محمد 500 راح تكون قيمة اليوم 500X3.37 = 1685 وهذا يغنيك عن عمليات الترحيل ! تحياتي للجميع حياك الله اخي كاسر واثراء للموضوع مع اخي الحبيب الاستاذ جعفر الآن فهم المطلوب انك تريد الاجمالي بالايام والساعات والدقائق ! وهي واضحة من تصميم النموذج ولكن ركزت على حساب عدد الايام حسب نص المشاركة الاولى ! وهنا لي عودة ان لم توافقني الراي التالي: مارايك ان تترك عدد الايام يحتوي على عدد عشري يمثل عدد الايام كنسبة >> وهنا مثلا لو سعر عمل اليوم للموظف محمد 500 راح تكون قيمة اليوم 500X3.37 = 1685 وهذا يغنيك عن عمليات الترحيل ! تحياتي للجميع استاذي الكريم رمهان من المحتمل ان يكون التعويض عن ايام العمل بايام اجازة وليس تعويض مادي وهذا السبب الذي تجعلني اطلب ترحيل باقي الساعات والدقائق تقبل فائق احترامي

حياك الله اخينا كاسر906 حسب فهمي ان المطلوب هو ان كل سبع ساعات هو يوم عمل وبشرط من ليس له اختيار في الخانة ! فقمت بجمع عدد الساعات وبنفس الشرط لمن لم يؤشر عنده وطبعا بعد جمع الدقائق وتحويلها لساعات >> هنا اصبح لدينا اجمالي الساعات > بعد كذا قسمتها على 7 لكي يظهر عدد ايام العمل ! ظهرت النتيجة لمحمد = 3.37 معناته ثلاث ايام عمل و 37 جزء من المائة يوم ولك الخيار في جبر الكسر للاعلى كرما او للاقل بخلا ! وهنا ارجو توضيح معنى رقم غير مفهوم ! بالتوفيق أشكرك أستاذ رمهان على الايضاح الآن فهمت معنى الرقم الذي كان رمزا بالنسبة على الأقل طريقتك جدا جميلة لكن تعرف المسألة فيها حسابات يعني راح يكون التعويض فيه عن مدة يوم عمل كامل وباقي الساعات والدقائق سيتم ترحيلها اشكرك مرة أخرى وتقبل فائق تحياتي . وانت وجميع المسلمين المتمسكين بحبل الله بخير إن شاء الله انا لم انتبه لهذه الملاحظة هناك عدة طرق لحل هذه الاشكالية ، ولكني أرتأيت ان احل الموضوع من اصله ، من نوع الحقل في الجدول. نوع الحقل في الجدول هو تاريخ ، لذلك 00:25 معناه 25 دقيقة بعد منتصف الليل ، اي 12:25 ، لذلك ، قمت بتغيير نوع الحقل في الجدول الى نص ، حيث انه يحتفظ بالمطلوب ، وبدون ان يضيف على البيانات اية معلومات اخرى (مثل12 ، و AM ، والثواني) ، ولعمل هذا ، قمت بعمل حقل اضافي اسميته timeadd2 ، وضبطت كل شئ على اساسه (الان يمكنك ان تحذف الحقل timeadd من الجدول). والان عندما تغير من اسم/سجل الى آخر ، ستجد المجاميع محسوبة وجاهزة وحياك الله جعفر 226.Edf.mdb.zip الاستاذ / جعفر شكرا لك نعم أخي الكريم هذا هو المطلوب الآن اريد الانتقال الى الطلب الثاني اذا ما كلن عندك مانع اريد وضع زر امر ف النموذج الرئيسي عند النقر عليه يتم التأشير من خلاله تم التعويض عن عدد الايام فقط ويتم ترحيل باقي الساعات والدقائق الى سجل جديدفي ا لجدول او اجراء عملية حسابية يتم خلالها ابقاء عدد الساعات والدقائق في احد السجلات الحالية أتمنى يكون طلبي مفهوم وما حسة راسك تقبل شكري وتحياتي

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

اولا ابارك لك هذا اليوم وأسأل الله ان يعيده علينا وعليك بأتم الصحة والعافية واحمد الله سبحانه وتعالي الذي أكمل لنا الدين وأتم علينا النعمه ورضي لنا الاسلام دينا أخي جعفر الحل ممتاز ولكن هناك اشكالية واحدة أنه عندما يكون المدخل 00:25 فأنه يحسب الصفرين في خانة الساعة 12 ساعه فيكون المجموع اثنا عشر ساعه وخمسة وعشرون دقيقة والمفروض أن يكون الحساب فقط خمسة وعشرون دقيقة امل من سعادتكم اكمال جميلك وإيجاد حل لهذه المشكلة كل عام وأنت بخير

السلام عليكم ورحمة الله وبركاتة لدي اكثر من طلب ولكن حاليا سأكتفي بطرح طلب واحد وأفرد للطلب الثاني موضوع أخر المطلوب تحويل ساعات العمل الى ايام بحيث تكون مجموم كل 7 ساعات يوم عمل لكل موظف على حده وذلك للحقول التي يكون بها حقل تم تعويض القيمة false Edf.rar

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

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

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

رائع جدا أخي جعفر بارك الله فيك وجعله في موازين اعمالك