تغيير قيمة مربع نص بناء على قيمة مربع تحرير وسرد

[Hassanshami]

السلام عليكم ورحمة الله وبركاته

كيف لي بالاكسس عند النقر على كلمة موقف تتحول  خانة اخرى بقيمة 0

نرجو المساعدة للاهمية  

 

 

seyon.accdbFetching info...

تم تعديل يناير 19, 2022 بواسطه ابو جودي
تعديل العنوان

[Barna]

انت سألت في هذا الموضوع وتم رد الزملاء على سؤالك ولم ترد عليهم .... لم كررت السؤال مرة اخرى

  في 18‏/1‏/2022 at 18:50, Hassanshami said:

السلام عليكم ورحمة الله وبركاته

كيف لي بالاكسس عند النقر على كلمة موقف تتحول  خانة اخرى بقيمة 0

نرجو المساعدة للاهمية  

 

 

Expand  

 

[Barna]

استخدم هذا الكود في حدث بعد التحديث في مربع التحرير والسرد للحالة ...

Private Sub الحالة_AfterUpdate()
If Me.الحالة = "موقف" Then
Me.الراتب = "0"
End If
End Sub

 

[Eng.Qassim]

تفضل..

وعدل على الكود براحتك في حال الغياب

seyon.accdbFetching info...

[Hassanshami]

شكرا لكم

الله يحفظكم 

 

[Hassanshami]

طيب كيف ارجع القيمة ذاتها اذا سوينا كلمة مباشر 

 

[ابو جودي]

اعتقد الحل موجود بإجابة الباش مهندس @Eng.Qassim  فى المرفق الذى رفعه بمشاركته

    Select Case State
        Case Is = "موقف": Me.S1 = "0"
        Case Is = "غياب": Me.S1 = Me.الراتب - (Me.الراتب * 0.2)
        Case Is = "مباشر": Me.S1 = Me.الراتب
    End Select