رمهان قام بنشر أكتوبر 7, 2015 قام بنشر أكتوبر 7, 2015 (معدل) 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 الله يعطيك العافية استاذ رمهان لكن لاحظت انه لايتم ترحيل الايام الى جدول اخر فقط يتم تسجيل الباقي من الساعات والدقائق في نفس الجدول تقبل تحياتي انا مشيت معاك حسب عنوان الموضوع ونص اول مشاركة ! ولكن يبدو ان غياب الاستاذ ابا خليل اليومين اللي راحت خلاك انت والاستاذ جعفر تشتغلو على كيفكم ! عالعموم تفضل اخوي كاسر وان شاء الله انه كل ماطلبت مع ملاحظة التالي : تم اضافة عمودي البداية والنهاية في نفس جدول ترحيل الوقت لانها تعتبر مرجع للعملية ! واتوقع حاجتها تاتي عند كل عملية ترحيل ! فاصبح سجل الترحيل به جميع البيانات بل استطيع ان اعرف ان الوقت الموجود هو بالاصل وقت مدخل ام وقت مرحل ! بالتوفيق sum_time.rar تم تعديل أكتوبر 7, 2015 بواسطه رمهان
kaser906 قام بنشر أكتوبر 7, 2015 الكاتب قام بنشر أكتوبر 7, 2015 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 الله يعطيك العافية استاذ رمهان لكن لاحظت انه لايتم ترحيل الايام الى جدول اخر فقط يتم تسجيل الباقي من الساعات والدقائق في نفس الجدول تقبل تحياتي انا مشيت معاك حسب عنوان الموضوع ونص اول مشاركة ! ولكن يبدو ان غياب الاستاذ ابا خليل اليومين اللي راحت خلاك انت والاستاذ جعفر تشتغلو على كيفكم ! عالعموم تفضل اخوي كاسر وان شاء الله انه كل ماطلبت مع ملاحظة التالي : تم اضافة عمودي البداية والنهاية في نفس جدول ترحيل الوقت لانها تعتبر مرجع للعملية ! واتوقع حاجتها تاتي عند كل عملية ترحيل ! فاصبح سجل الترحيل به جميع البيانات بل استطيع ان اعرف ان الوقت الموجود هو بالاصل وقت مدخل ام وقت مرحل ! بالتوفيق sum_time.rar ههههههه قلت ما دام ان الاستاذ جعفر مشى معاي في هذا الموضوع ماله داعي افتح موضوع جديد استاذ رمهان هذه المرة سبقت الاستاذ جعفر في وضع الحل والنتيجة اصبحت ممتازة بعد اضافة لمساتك الأن في انتظار اضافة الاستاذ جعفر على مثالة لزيادة المعرفة تقبل شكري وتقديري
jjafferr قام بنشر أكتوبر 7, 2015 قام بنشر أكتوبر 7, 2015 السلام عليكم شباب الله يسلمكم ، انا كثير السفر ، وبدون الكمبيوتر ما اقدر ارد على أسئلة صعبة بكرة الصبح ان شاء الله بشوف الموضوع جعفر
kaser906 قام بنشر أكتوبر 9, 2015 الكاتب قام بنشر أكتوبر 9, 2015 (معدل) تفضل يا سيدي 226.Edf.mdb.zip زاد فضلك استاذي جعفر اولا : تعجبني طريقتك في كتابة الكود ولكن طريقة للمحترفين وصعب قرائتها بالنسبة للمتطفلين على البرمجة أمثالي لدرجة اني من أمس احاول اضيف تاريخ بداية الفترة ونهايتها في حقلين عند عرض النموذج ولم أوفق ثانيا حاب اضيف كود على ازرار ترحيل الايام فأين يجب أن يكون موضعه بالنسبة للكود الذي وضعته 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 تم تعديل أكتوبر 9, 2015 بواسطه kaser906 اضافة ملاحظة
jjafferr قام بنشر أكتوبر 9, 2015 قام بنشر أكتوبر 9, 2015 وعليكم السلام اولا والملاحظة سهلين بس كود ثانيا ، شو عمله بالضبط ، حتى اعرف شو يسوي ، وعلى اساسه اعرف مكانه من الاعراب جعفر
kaser906 قام بنشر أكتوبر 9, 2015 الكاتب قام بنشر أكتوبر 9, 2015 وعليكم السلام اولا والملاحظة سهلين بس كود ثانيا ، شو عمله بالضبط ، حتى اعرف شو يسوي ، وعلى اساسه اعرف مكانه من الاعراب جعفر مهمة الكود حسب الشرح بالصورة بالنسبة للحقول الفارغة حسب الصورة ارجو ان يكون الشرح واضح
رمهان قام بنشر أكتوبر 10, 2015 قام بنشر أكتوبر 10, 2015 ثانيا حاب اضيف كود على ازرار ترحيل الايام فأين يجب أن يكون موضعه بالنسبة للكود الذي وضعته 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] & ");" معليش اخي كاسر ! صح الموضوع يخص اخي جعفر ولكن تطفلا لللتعلم ! هذا الكود لم اجده في في القاعدة المرفقة السابقة ! هل هذا صحيح ! وبالنسبة لكود الترقيم التلقائي الموجود بالموديول بالملف السابق : هوه عمله ايه بالظبط ؟ هل هي دالة بتعطيك خيار الترقيم خلال اسبوع او شهر او ربع سنوي او سنوي ؟ والا ايه ؟ وكمان ياليت تقول مصدر الكود ده من وين ؟ عايزين نتعلم ؟ ولك كل الشكر
kaser906 قام بنشر أكتوبر 10, 2015 الكاتب قام بنشر أكتوبر 10, 2015 ثانيا حاب اضيف كود على ازرار ترحيل الايام فأين يجب أن يكون موضعه بالنسبة للكود الذي وضعته 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] & ");" معليش اخي كاسر ! صح الموضوع يخص اخي جعفر ولكن تطفلا لللتعلم ! هذا الكود لم اجده في في القاعدة المرفقة السابقة ! هل هذا صحيح ! وبالنسبة لكود الترقيم التلقائي الموجود بالموديول بالملف السابق : هوه عمله ايه بالظبط ؟ هل هي دالة بتعطيك خيار الترقيم خلال اسبوع او شهر او ربع سنوي او سنوي ؟ والا ايه ؟ وكمان ياليت تقول مصدر الكود ده من وين ؟ عايزين نتعلم ؟ ولك كل الشكر هذا الكود يقوم بحساب اخر رقم في الجدول ويعطيك الرقم الذي يليه في اي وقت مش مناط بمده محدده بالنسبة للشق الثاني من السؤال الكود قام بأعطائي إياه احد الزمﻻء يعني ما حصلته عن طريف المنتديات
jjafferr قام بنشر أكتوبر 10, 2015 قام بنشر أكتوبر 10, 2015 السلام عليكم اعتقد بأني اكملت اولا ، وملاحظة التفريغ ، رجاء التأكد في كود النموذج الرئيسي ، هناك مكانين كتبت لك: '5 'هنا مكان الكود الجديد ' فتستطيع ان تضع كودك هناك (انا لم اضعه لأن هناك حقول في الكود ليست موجودة في النموذجين ، فلم ارد ان يعطي البرنامج اخطاء). جعفر 226.1.Edf.mdb.zip
kaser906 قام بنشر أكتوبر 11, 2015 الكاتب قام بنشر أكتوبر 11, 2015 السلام عليكم اعتقد بأني اكملت اولا ، وملاحظة التفريغ ، رجاء التأكد في كود النموذج الرئيسي ، هناك مكانين كتبت لك: '5 'هنا مكان الكود الجديد ' فتستطيع ان تضع كودك هناك (انا لم اضعه لأن هناك حقول في الكود ليست موجودة في النموذجين ، فلم ارد ان يعطي البرنامج اخطاء). جعفر 226.1.Edf.mdb.zip يعطيك العافية استاذي جعفر اتعبتك معاي ظهرت عندي مشكلة عندما طبقت المثال على برنامجي اثناء فتح النموذج الأساس ومحاولة الاتصال بالحدث Form_frm_beriod.off_AfterUpdate تظهر رسالة الخطأ التالية حسب الصورة ما عرفت أيش المشكلة أحاول ارفق البرنامج الاساس لكن حجمه كبير جدا هل هناك مرجع يجب تفعيلة تقبل تحياتي
jjafferr قام بنشر أكتوبر 11, 2015 قام بنشر أكتوبر 11, 2015 وعليكم السلام تأكد ان الحدث off_AfterUpdate لا يبدأ بـ Private ، وانما يبدأ بـ Public جعفر
kaser906 قام بنشر أكتوبر 11, 2015 الكاتب قام بنشر أكتوبر 11, 2015 وعليكم السلام تأكد ان الحدث off_AfterUpdate لا يبدأ بـ Private ، وانما يبدأ بـ Public جعفر الف شكر استاذي الكريم الان اصبح يعمل بشكل ممتاز تقبل فائق تحياتي واحترامي
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.