كود اضافة

[علي كعبي]

اريد كود بستخدم دالة if 

لدي جدولين وفورم واحد يتكون من نموذج رئيسي ونموذج فرعي النموذج الرئيسي من الجدول الاساسي والنموذج الفرعي من الجدول الثاني

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

mm.rar

[Shivan Rekany]

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

اريد كود بستخدم دالة if 

 

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

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

انا استخدمت هذا الكود بعد تحديث الاسم 
اي اذا كان لا يوجد اي حرف في الاسم سيكون حالة شاغر واذا كان هناك حروف اي اسم فيه سيكون الحالة مشغول
اليك الكود

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

جربه

mm.rar

[علي كعبي]

في ٢٣‏/١٠‏/٢٠١٧ at 18:55, Shivan Rekany said:

 

انا استخدمت هذا الكود بعد تحديث الاسم 
اي اذا كان لا يوجد اي حرف في الاسم سيكون حالة شاغر واذا كان هناك حروف اي اسم فيه سيكون الحالة مشغول
اليك الكود

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

جربه

mm.rar

اخي اريد يتم تطبيق الشرط في حقل الاسم في النموذج الفرعي ليتم تغيير حالة الوظيفة في النموذج الرئيسي

[Shivan Rekany]

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

اخي اريد يتم تطبيق الشرط في حقل الاسم في النموذج الفرعي ليتم تغيير حالة الوظيفة في النموذج الرئيسي

وضح مطلبك اكثر

[علي كعبي]

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

وضح مطلبك اكثر

طلبي في الفورم (form_ss) نموذج رئيسي ونموذج فرعي النموذج الرئيسي ثابت ليتم التغير في بياناته بينما عند تعيين موظف على الوظيفة في النموذج الرئيسي وذلك من خلال النموذج الفرعي فان حالة الوظيفة يتم تغييره الى مشغول واذا تم حذف الموظف فان حالة الوظيفة تكون شاغر

[Shivan Rekany]

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

طلبي في الفورم (form_ss) نموذج رئيسي ونموذج فرعي النموذج الرئيسي ثابت ليتم التغير في بياناته بينما عند تعيين موظف على الوظيفة في النموذج الرئيسي وذلك من خلال النموذج الفرعي فان حالة الوظيفة يتم تغييره الى مشغول واذا تم حذف الموظف فان حالة الوظيفة تكون شاغر

اتفضل تم استخدام هذا الكود

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

 

mm.rar

[علي كعبي]

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

اتفضل تم استخدام هذا الكود

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

 

mm.rar

شكراً استاذي هذا هو المطلوب  الجزاء الثاني من السؤال هو كيف يمكن اعادة حالة الوظيفة في حال حذف الموظف من خلال فورم اخر

يوجد مثال من خلال شاشة ss3 الخاصة بحذف الموظف يتم ارجاع حالة الوظيفة الى شاغر في حال حذف الموظف

mm.rar

تم تعديل أكتوبر 23, 2017 بواسطه علي كعبي
اضافة مرفق لتعديل علية

[علي كعبي]

هل من مجيب

[Shivan Rekany]

1 ساعه مضت, علي كعبي said:

هل من مجيب

نعم

 

mm.rar

[علي كعبي]

في ٢٤‏/١٠‏/٢٠١٧ at 01:06, Shivan Rekany said:

نعم

 

mm.rar

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

[علي كعبي]

هل من مجيب يااخوان

[علي كعبي]

هل من مساعدة

[علي كعبي]

وين المساعدة يااستذه

[علي كعبي]

مافي احدى معبرنا للاجابة على السؤال

[علي كعبي]

هل من مساعدة

[Shivan Rekany]

في ٢٤‏/١٠‏/٢٠١٧ at 17:28, علي كعبي said:

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

كيف عملت الحذف ... ماذا تريد بالضبط
اشرح لي ماتريد بالضبط واعطيني اسماء النماذج لكل عملية لكي اعطيك كود المناسب

[علي كعبي]

اسم النموذج ss3 عند الظغط على مفتاح حذف يتم اعادة الوظيفة من مشغول الى شاغر

[Shivan Rekany]

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

اسم النموذج ss3 عند الظغط على مفتاح حذف يتم اعادة الوظيفة من مشغول الى شاغر

هو بیعمل جیدا
ولیس ھناک خلل

[علي كعبي]

في ٣٠‏/١٠‏/٢٠١٧ at 18:25, Shivan Rekany said:

هو بیعمل جیدا
ولیس ھناک خلل

اخي عند حذف الموظف من على الوظيفة لايتم اعادة الحالة الوظيفة الى شاغر وهذا هو المثال

mm.rar

[Shivan Rekany]

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

اخي عند حذف الموظف من على الوظيفة لايتم اعادة الحالة الوظيفة الى شاغر وهذا هو المثال

mm.rar

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

[علي كعبي]

في ٣٠‏/١٠‏/٢٠١٧ at 18:47, Shivan Rekany said:

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

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

 

[علي كعبي]

مافية اجابة

في ٣٠‏/١٠‏/٢٠١٧ at 18:47, Shivan Rekany said:

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

وين المساعدة استاذي

[علي كعبي]

وين الرد

[علي كعبي]

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

كيف عملت الحذف ... ماذا تريد بالضبط
اشرح لي ماتريد بالضبط واعطيني اسماء النماذج لكل عملية لكي اعطيك كود المناسب

اخي شيفان رد علي واعطني الحل

[Shivan Rekany]

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

اخي شيفان رد علي واعطني الحل

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

في ٣٠‏/١٠‏/٢٠١٧ at 18:47, Shivan Rekany said:

قم بتنزيل اخر قاعدة بيانات في مشاركتي وجربه

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

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

في ٢٤‏/١٠‏/٢٠١٧ at 01:06, Shivan Rekany said:

نعم

mm.rar