Shivan Rekany قام بنشر سبتمبر 21, 2016 قام بنشر سبتمبر 21, 2016 في 21/9/2016 at 07:27, امير الكناني said: اجازات الموظفين.rarFetching info... Expand قل مشكلتك لكي الجماعة بيكدر بيساعدك مع تحياتي
امير الكناني قام بنشر سبتمبر 21, 2016 الكاتب قام بنشر سبتمبر 21, 2016 المطلوب اضافة 3 ايام كل شهر الى الرصيد الكلي يعني كل شهر يضاف 3 ايام الى الرصيد ياريت احد يساعدني بصراحه عملي توقف ولا اعرف طريقة المعادله الصحيحه لااضافة 3 ايام شهريا الى الرصيد ارجو المساعده بهذا الامر وايضا شكرا لهذا المنتدى الرائع الذي دائما استفاد منه بعملي وارجو من اخواني الاعزاء الساعده بهذا الخصوص
Shivan Rekany قام بنشر سبتمبر 21, 2016 قام بنشر سبتمبر 21, 2016 في 21/9/2016 at 07:46, امير الكناني said: المطلوب اضافة 3 ايام كل شهر الى الرصيد الكلي يعني كل شهر يضاف 3 ايام الى الرصيد ياريت احد يساعدني بصراحه عملي توقف ولا اعرف طريقة المعادله الصحيحه لااضافة 3 ايام شهريا الى الرصيد ارجو المساعده بهذا الامر وايضا شكرا لهذا المنتدى الرائع الذي دائما استفاد منه بعملي وارجو من اخواني الاعزاء الساعده بهذا الخصوص Expand اخي العزيز انا اضفت حقلين حقل تاريخ تعين و حقل رصيد الكلي للاجازات حين تدخل تاريخ تعين تبين رصيده حتى اليوم و اضفت زر جديد حين تضغط عليه بيتبين ايضا رصيده الكلي والباقي عليك اذا واحد خذت اجازة لازم بينقص الرصيد مع تحياتي اجازات.rar 1
امير الكناني قام بنشر سبتمبر 21, 2016 الكاتب قام بنشر سبتمبر 21, 2016 في 21/9/2016 at 09:01, Shivan Rekany said: اخي العزيز انا اضفت حقلين حقل تاريخ تعين و حقل رصيد الكلي للاجازات حين تدخل تاريخ تعين تبين رصيده حتى اليوم و اضفت زر جديد حين تضغط عليه بيتبين ايضا رصيده الكلي والباقي عليك اذا واحد خذت اجازة لازم بينقص الرصيد مع تحياتي اجازات.rarFetching info... Expand بارك الله فيك اخي ولكن انا احتاج ان يضاف 3 ايام على خانة رصيد اول العام على سبيل المثال لدي رصيد اول العام 33 وهو متراكم يبدا البرنامج باضافة 3 ايام كل شهر على الرصيد القديم في خانة رصيد اول عام ياريت تساعدني اكثر .... انت عملت من تاريخ التعين لحساب الرصيد ولكن المطلوب اضافة 3 ايام شهريا في خانة رصيد اول عام وهكذا وانت بدأت بالفكره ولكن يضاف برمجيا على الرصيد ياريت تكمل المشوار معي وتتحملني
امير الكناني قام بنشر سبتمبر 22, 2016 الكاتب قام بنشر سبتمبر 22, 2016 في 22/9/2016 at 00:22, محمد ايمن said: حل بسيط و سريع اخي الكريم testeja.rarFetching info... Expand بارك الله فيك اخ ايمن احسنت وجعله الله في حسناتك بس ممكن طلب اخير ممكن تشرح لي الطريقة التي تمت اضافتها حتى استفاده منها مستقبلا وياريت ان تضيف بنفس البرنامج مره ثانيه سنويا 36 يوما يعني ان نزلت البرنامج حلو انو يضيف شهريا 3 ايام واحتاج طريقه ثانيه يضيف 36 يوما سنويا يعني يصبح لدي برنامجين واحد شهري والثاني سنوي تحملني اخي العزيز وياريت تشرح لي الطريقة التي عملتها
امير الكناني قام بنشر سبتمبر 22, 2016 الكاتب قام بنشر سبتمبر 22, 2016 ولدي مشكله ثانيه اريد حقل يظهر اخر تحديث الشهر بمعنى انو عملية التحديث لغايه شهر 1/1/2017 وهكذا عند دخول الشهر الثاني 1/2/2017 تم التحديث
امير الكناني قام بنشر سبتمبر 23, 2016 الكاتب قام بنشر سبتمبر 23, 2016 اخ محمد مارديت عليه بهذا الخصوص
امير الكناني قام بنشر سبتمبر 23, 2016 الكاتب قام بنشر سبتمبر 23, 2016 في 23/9/2016 at 17:34, محمد ايمن said: ساوافيك بالمرفق ليلا اخي الكريم Expand وانا في انتظارك اخي العزيز وياريت الشرح لعمل الطريقه التي عملتها واتمنى من الله ومنك ان تعمل لي الجدول لااهر تحديث للرصيد
محمد ايمن قام بنشر سبتمبر 23, 2016 قام بنشر سبتمبر 23, 2016 (معدل) في 22/9/2016 at 08:41, امير الكناني said: اريد حقل يظهر اخر تحديث الشهر بمعنى انو عملية التحديث لغايه شهر 1/1/2017 وهكذا Expand يمكن عمل ذلك لكن بالنسبة للشرط الثاني وهو ظهور كلمة ( تم التحديث ) فهذه الكلمة ستظهر دوما والسبب ان التحديث آلي اما لو كان يدوي فممكن عمل ذلك شرح الكود Dim Udate1 As Variant Dim Udate2 As Variant Dim Uyear1 As Variant Dim Uyear2 As Variant Udate1 = DLookup("tmonth", "tblmonth") Udate2 = Format(Now(), "MM") Uyear1 = DLookup("tyear", "tblmonth") Uyear2 = Format(Now(), "yyyy") Dim db As DAO.Database Dim rs As DAO.Recordset2 Set db = CurrentDb Set rs = db.OpenRecordset("الاسماء", dbOpenTable) تم تعريف اربع متغيرات وهي تخزن القيم التالية : الشهر المخرن في الجدول الشهر الحالي السنة المخرنة في الجدول السنة الحالية If Udate1 <> Udate2 Then With rs .MoveFirst Do While rs.EOF = False .Edit .Fields(7) = .Fields(7) + 3 .Update .MoveNext Loop End With DoCmd.RunSQL ("update tblmonth set tblmonth.tmonth='" & Udate2 & "'") MsgBox "تم التحديث" End If وضعنا شرط وهو اذا كان التاريخ المخرن في الجدول لا يساوي الشهر الحالي ( يعني شهر جديد ) ننفذ حلقة دورانية لتضيف الى جدول الاسماء 3 ايام لكل اسم If Uyear1 <> Uyear2 Then With rs .MoveFirst Do While rs.EOF = False .Edit .Fields(7) = .Fields(7) + 36 .Update .MoveNext Loop End With DoCmd.RunSQL ("update tblmonth set tblmonth.tyear='" & Uyear2 & "'") MsgBox "تم التحديث" End If الشرط الثاني يقارن السنة المخرنة في الجدول و السنة الحالية وفي حال عدم التطابق ( سنة جديدة ) ننفذ حلقة دورانية في جدول الاسماء لتضيف الى كل اسم 36 يوم testeja1.rar تم تعديل سبتمبر 23, 2016 بواسطه محمد ايمن
امير الكناني قام بنشر سبتمبر 24, 2016 الكاتب قام بنشر سبتمبر 24, 2016 بارك الله فيك وشكرا جزيلا ماقصرت وانشاء الله التوفيق لك ولا اعرف كيف اعبر عن امتنناني لك
امير الكناني قام بنشر سبتمبر 29, 2016 الكاتب قام بنشر سبتمبر 29, 2016 (معدل) في 23/9/2016 at 23:27, محمد ايمن said: يمكن عمل ذلك لكن بالنسبة للشرط الثاني وهو ظهور كلمة ( تم التحديث ) فهذه الكلمة ستظهر دوما والسبب ان التحديث آلي اما لو كان يدوي فممكن عمل ذلك شرح الكود Dim Udate1 As Variant Dim Udate2 As Variant Dim Uyear1 As Variant Dim Uyear2 As Variant Udate1 = DLookup("tmonth", "tblmonth") Udate2 = Format(Now(), "MM") Uyear1 = DLookup("tyear", "tblmonth") Uyear2 = Format(Now(), "yyyy") Dim db As DAO.Database Dim rs As DAO.Recordset2 Set db = CurrentDb Set rs = db.OpenRecordset("الاسماء", dbOpenTable) تم تعريف اربع متغيرات وهي تخزن القيم التالية : الشهر المخرن في الجدول الشهر الحالي السنة المخرنة في الجدول السنة الحالية If Udate1 <> Udate2 Then With rs .MoveFirst Do While rs.EOF = False .Edit .Fields(7) = .Fields(7) + 3 .Update .MoveNext Loop End With DoCmd.RunSQL ("update tblmonth set tblmonth.tmonth='" & Udate2 & "'") MsgBox "تم التحديث" End If وضعنا شرط وهو اذا كان التاريخ المخرن في الجدول لا يساوي الشهر الحالي ( يعني شهر جديد ) ننفذ حلقة دورانية لتضيف الى جدول الاسماء 3 ايام لكل اسم If Uyear1 <> Uyear2 Then With rs .MoveFirst Do While rs.EOF = False .Edit .Fields(7) = .Fields(7) + 36 .Update .MoveNext Loop End With DoCmd.RunSQL ("update tblmonth set tblmonth.tyear='" & Uyear2 & "'") MsgBox "تم التحديث" End If الشرط الثاني يقارن السنة المخرنة في الجدول و السنة الحالية وفي حال عدم التطابق ( سنة جديدة ) ننفذ حلقة دورانية في جدول الاسماء لتضيف الى كل اسم 36 testeja1.rarFetching info... بارك الله فيكاخ محمد ولكن لدي مشكله اليوم بعد تنصيب البرنامج عال العال ولاتوجد به مشكلة ولكن واجهتني مشكله عند ربط البرنامج بقاعده بيانات sql server اي تكبير قاعدة البيانات عند التحديث يظهر لدي مشكله بالكود وعدم تحديث الرصيد ارجو الاجابة عن هذا الموضوع لئن بصراحه جدا مهم لدي وهنا يأشر الموشر بالغلط Set rs = db.OpenRecordset("الاسماء", dbOpenTable) ارجو حل مشكلتي اخي العزيز Expand في 29/9/2016 at 17:53, امير الكناني said: وهذه الصور الخطاء Expand تم تعديل سبتمبر 29, 2016 بواسطه امير الكناني
امير الكناني قام بنشر سبتمبر 30, 2016 الكاتب قام بنشر سبتمبر 30, 2016 في 23/9/2016 at 23:27, محمد ايمن said: يمكن عمل ذلك لكن بالنسبة للشرط الثاني وهو ظهور كلمة ( تم التحديث ) فهذه الكلمة ستظهر دوما والسبب ان التحديث آلي اما لو كان يدوي فممكن عمل ذلك شرح الكود Dim Udate1 As Variant Dim Udate2 As Variant Dim Uyear1 As Variant Dim Uyear2 As Variant Udate1 = DLookup("tmonth", "tblmonth") Udate2 = Format(Now(), "MM") Uyear1 = DLookup("tyear", "tblmonth") Uyear2 = Format(Now(), "yyyy") Dim db As DAO.Database Dim rs As DAO.Recordset2 Set db = CurrentDb Set rs = db.OpenRecordset("الاسماء", dbOpenTable) تم تعريف اربع متغيرات وهي تخزن القيم التالية : الشهر المخرن في الجدول الشهر الحالي السنة المخرنة في الجدول السنة الحالية If Udate1 <> Udate2 Then With rs .MoveFirst Do While rs.EOF = False .Edit .Fields(7) = .Fields(7) + 3 .Update .MoveNext Loop End With DoCmd.RunSQL ("update tblmonth set tblmonth.tmonth='" & Udate2 & "'") MsgBox "تم التحديث" End If وضعنا شرط وهو اذا كان التاريخ المخرن في الجدول لا يساوي الشهر الحالي ( يعني شهر جديد ) ننفذ حلقة دورانية لتضيف الى جدول الاسماء 3 ايام لكل اسم If Uyear1 <> Uyear2 Then With rs .MoveFirst Do While rs.EOF = False .Edit .Fields(7) = .Fields(7) + 36 .Update .MoveNext Loop End With DoCmd.RunSQL ("update tblmonth set tblmonth.tyear='" & Uyear2 & "'") MsgBox "تم التحديث" End If الشرط الثاني يقارن السنة المخرنة في الجدول و السنة الحالية وفي حال عدم التطابق ( سنة جديدة ) ننفذ حلقة دورانية في جدول الاسماء لتضيف الى كل اسم 36 يوم testeja1.rarFetching info... Expand
محمد ايمن قام بنشر سبتمبر 30, 2016 قام بنشر سبتمبر 30, 2016 هل حولت قاعدة البيانات الى SQL ؟؟ اذا حولتها استبدل عبارة dbopentable ب dbOpenDynaset
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.