تحديث حقل رقم الاجازة

[ابوصلاح]

السلام عليكم :

باختصار هو طلب بسيط في نموذج agazat  في حقل rakam_ag اريد ان احجز متغير لاخر اجازة +1 ثم تحديث القيمة للحقل 

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

شئون العاملين.rar

[essam rabea]

الأخ ابوصلاح

هل هذا المطلوب؟

شئون العاملين.zip

تم تعديل يونيو 19, 2019 بواسطه essam rabea

[ابوصلاح]

الاستاذ Essam  Rabea شكرا لسرعة الاستجابة

هو صحيح لكن اين الكود البرنامج يعمل

اسف استاذنا essam rabea

وجده في القيمة الافتراضية  

[essam rabea]

انا مش فاهم قصدك ايه ؟

[ابوصلاح]

لا اسف جدا كنت فاكر انك عملت كود ولم اري القيمة الافتراضية 

1. لكن بالنسبة لحجز متغير ووضعه في استعلام التحديث حيث ان الامر ممكن يكون قيمة معينة اريد ان اخذها من حقل معين واضعها في استعلام التحديث الامر دا في الماكرو سهل انك تحجز متغير من نوع [TempVars] في الماكرو وبعدها في استعلام التحديث ياخذ نفس القيمة ويحدثا في الجدول الكلام سهل كيف يتم ذلك في محرر الاكواد vba

[essam rabea]

يمكنك تحويل الماكرو الى VBA لتكون النتيجة كالتالى

 

TempVars.Add "aa", Nz(DFirst("[rakam_ag]", "[اخر_اجازة]")) + 1
    DoCmd.RunCommand acCmdSaveRecord
    DoCmd.OpenQuery "تحديث", acViewNormal, acEdit
    DoCmd.Requery ""