اريد ان تكون حالة الموظف ثابته كـ منتدب في الحضور والغياب

اخي الكريم

هل يمكن ارسال المرفق بتنسيق 2003

بالتوفيق

اخوك ----------- محمود المصري

شكراً اخي محمود , الله يرحم والديك

شباب لو تكرمتم ممكن تغيرون المرفق لـ 2003

مساعده ياقووم

تحويل نسق ياشباب مو تحويل مالي , بلااااش يعني حتى المبتدىء يقدر عليها

الله يرحم والديك استاذنا ابويوسف , وشكراً جزيلاً ( لكن اختفى النموذج ابويوسف )  اقصد البيانات اللي في النموذج , ممكن تشرح الكود لأن محتاج اطبقة على برنامجي ( اجازات سنوية) ومنتدبين ودورات , لاهنت استاذنا

النموذج تختفى منه البيانات لانك تحذف البيانات من الجدول الذى يعتمد عليه

اخى انسخ الكود كاملا كما هو

و اذا اردت حذف البيانات يكون بعد انتهاء عملية التسجيل أو عند اغلاق النموذج

ابويوسف الظاهر ماعرفت اشرح , اخوي ابويوسف انت حملت المثال ؟

المثال عباره عن تحضير موظفين , اللي اقصده عدم عرض الموظفين اللذين في اجازة طويلة او منتدبين لمدة سنوات وابيه يعرض لي الموظفين المتواجدين , لكن الكود اللي ارسلته من اول مااضيفة في حدث عند الفتح واشغل النموذج تكون كل البيانات فااضية ؟

اتمنى الشرح واضح , والله مدري شرحي مو واضح او انا مو فاهم الكود اللي ارسلته لي ؟

مشكور ابويوسف

تأكد من وجود بيانات فى الجدول tbltemp

مشكور لمتابعتك استاذنا ابويوسف ,, لا مافيه بيانات اخوي ابويوسف , وكذلك التقرير لايوجد بيانات ,

شباب حصلت برنامج بتنسيق 2003  مشابه للمرفق السابق 2010 ,

hhhaaa.rar

اقتباس

 

مشكور لمتابعتك استاذنا ابويوسف ,, لا مافيه بيانات اخوي ابويوسف , وكذلك التقرير لايوجد بيانات ,

اذا ماذا سيعرض النموذج اذا لم يكن هناك بيانات بالجدول

ضع بيانات بالجدول أخى ثم جرب

اقتباس

 

اتمنى الشرح واضح , والله مدري شرحي مو واضح او انا مو فاهم الكود اللي ارسلته لي ؟

مشكور ابويوسف

أنا فهمت ما تقصده أخى

انت لا تريد تكرار تسجيل الموظف الذى له حالة ثابتة

و هذا ما يفعله الكود و هو عمل فلتر للنموذج بحيث لا يعرض الموظفين اللى حالتهم 3

Me.Filter = "[COD_7DOR]<>3"

Me.FilterOn = True

DoCmd.Requery

الله يرحم والديك استاذي ابويوسف , يكفيني ردك لثاني مره تعبيراً عن اهتمامك ( الله يكثر من امثالك )

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

نعم اخى يمكن ذلك

و بنفس الكود السابق فقط ستقوم بتغيير اسم الحقل و قيمته

لنعتبر ان الحقل الذى ستقوم باضافته اسمه Out_Duty

Me.Filter = "[Out_Duty]=False"

اقتباس

 

ضع هذا الكود بدلا من الكود الموجود فى حدث فتح النموذج

On Error Resume Next

Dim d1 As Date

Dim d2 As Date

d1 = Me.sdate 'DLookup("Datee", "tbltemp")

d2 = Format(Date, "yyyy/mm/dd")

If IsNull(d1) Or d1 = d2 Then

Exit Sub

Else

DoCmd.SetWarnings False

DoCmd.RunSQL "INSERT INTO [ALTSGeeL] ( Mili_ID, Datee, Timee, COD_7DOR, Unity3 ) " & _

"SELECT Mili_ID, Datee, Timee, COD_7DOR, NumUnity3 FROM tbltemp "

'DoCmd.RunSQL "DELETE tbltemp.* FROM tbltemp"

DoCmd.SetWarnings True

Me.Filter = "[COD_7DOR]<>3"

Me.FilterOn = True

DoCmd.Requery

End If

 

سيتم نقل جميع الموظفين مع عدم عرض المنتدبين

 

و بالتوفيق

مشكور استاذي ابويوسف وانا آسف لأني مافهمت الطريقة ( مع اني طبقت طريقتك لكن ماراح تبين النتائج الا بعد يوم , لكن ماشاءالله عليك الحل 100% ) واذا ممكن استاذ ابويوسف ابي طريقة الغاء الحالة ( مثلاً اذا انتهت فترة الاجازة للموظف ان يعود اسمه الى نموذج التحضير  ) .

الله يرحم والديك اخي ابويوسف ويرفع قدرك يارب..

اذا غيرت حالة الموظف سيظهر تلقائيا  فى النموذج