كود اضافة

[علي كعبي]

في ٣١‏/١٠‏/٢٠١٧ at 19:00, Shivan Rekany said:

اخي الحبيب كما قلت لك سابقا

فقط قم بتنزيل نسخة اخرى في مشاركتي ... لانك قمت بحذف كود في حدث الحالي للفورم
 

Private Sub Form_Current()
    If Len(Form_ss2.الاسم & "") = 0 Then
            Me.حالة_الوظيفة = "شاغر"
        Else
            Me.حالة_الوظيفة = "مشغول"
    End If
End Sub

 

لكن عند جذف الموظف لم يتم ارجاع حالة الوظيفة الى شاغر في الجدول مازالت الحالة مشغول

[Shivan Rekany]

39 دقائق مضت, علي كعبي said:

في الجدول مازالت الحالة مشغول

الان وصلت 
اتفضل
 

mm (1).rar

[علي كعبي]

في ٣١‏/١٠‏/٢٠١٧ at 19:44, Shivan Rekany said:

الان وصلت 
اتفضل
 

mm (1).rar

شكراً استاذي هذا هو المطلوب