المطلوب اضافة 3 ايام كل شهر الى رصيد الاجازة

[امير الكناني]

اجازات الموظفين.rar

[Shivan Rekany]

11 دقائق مضت, امير الكناني said:

اجازات الموظفين.rar

قل مشكلتك لكي الجماعة بيكدر بيساعدك مع تحياتي

[امير الكناني]

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

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

[Shivan Rekany]

منذ ساعه, امير الكناني said:

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

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

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

اجازات.rar

[امير الكناني]

في Wednesday, September 21, 2016 at 12:01, Shivan Rekany said:

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

اجازات.rar

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

[محمد ايمن]

حل بسيط و سريع اخي الكريم

 

testeja.rar

[امير الكناني]

 

في Thursday, September 22, 2016 at 03:22, محمد ايمن said:

حل بسيط و سريع اخي الكريم

 

testeja.rar

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

[امير الكناني]

ولدي مشكله ثانيه اريد حقل يظهر اخر تحديث الشهر بمعنى انو عملية التحديث لغايه شهر 1/1/2017 وهكذا عند دخول الشهر الثاني 1/2/2017 تم التحديث 

[امير الكناني]

اخ محمد مارديت عليه بهذا الخصوص 

[محمد ايمن]

ساوافيك بالمرفق ليلا اخي الكريم

[امير الكناني]

في 9/23/2016 at 20:34, محمد ايمن said:

ساوافيك بالمرفق ليلا اخي الكريم

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

 

[محمد ايمن]

في ٢٢‏/٩‏/٢٠١٦ at 11:41, امير الكناني said:

اريد حقل يظهر اخر تحديث الشهر بمعنى انو عملية التحديث لغايه شهر 1/1/2017 وهكذا

يمكن عمل ذلك لكن بالنسبة للشرط الثاني وهو ظهور كلمة ( تم التحديث ) فهذه الكلمة ستظهر دوما والسبب ان التحديث آلي اما لو كان يدوي فممكن عمل ذلك

 

شرح الكود

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 بواسطه محمد ايمن

[امير الكناني]

بارك الله فيك وشكرا جزيلا ماقصرت وانشاء الله التوفيق لك ولا اعرف كيف اعبر عن امتنناني لك 

[امير الكناني]

في 9/24/2016 at 02: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.rar

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

Set rs = db.OpenRecordset("الاسماء", dbOpenTable)

ارجو حل مشكلتي اخي العزيز 

 

 

 

منذ ساعه, امير الكناني said:

وهذه الصور الخطاء 

 

 

 

 

تم تعديل سبتمبر 29, 2016 بواسطه امير الكناني

[امير الكناني]

في 9/24/2016 at 02: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.rar

 

[محمد ايمن]

هل حولت قاعدة البيانات الى SQL ؟؟

اذا حولتها استبدل عبارة dbopentable ب dbOpenDynaset

[امير الكناني]

بارك الله فيك اخي الكريم