ضبط الفورم والكود الموجود بالموديول

[أبوبسمله]

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

اخوانى الكرام ارجو مساعدتكم فى ضبط الموديول

طريقة العمل بختار الشهر وبكتب المبلغ المراد الاستعلام عن رسومه واضغط تنفيذ يعطينى قيمة الرسوم

مثلا شهر يناير قيمة المبلغ المراد الاستعلام عنه 999 الرسوم هتكون 5.25

ارجو ان اكون قد شرحت المطلوب بشكل سليم

تقبلوا تحياتى

استعلام رسوم التصفيه.rar

[ياسر خليل أبو البراء]

أخي الغالي أحمد

جرب التعديل على الدالة بهذا الشكل

Function Reswm(salary, shahr) As Variant
    If IsEmpty(salary) And IsEmpty(shahr) Then
        Reswm = ""
    ElseIf shahr = "يناير" And salary < 1000 Then
        Reswm = 5.25
    ElseIf shahr = "يناير" And (salary >= 1000 And salary < 5000) Then
        Reswm = 17.5
    End If
End Function

 

وفي حدث الفورم جرب الكود بهذا الشكل لعله يكون المطلوب

Private Sub CommandButton1_Click()
    If Not IsEmpty(ComboBox1.Value) And Not IsEmpty(TextBox1.Value) Then
        TextBox2.Value = Reswm(TextBox1.Value, ComboBox1.Value)
    End If
End Sub

تقبل تحياتي

[أبوبسمله]

جزاك الله كل خير يا ابو البراء

سوف اعدل واعود اليك بالنتيجه ياغالى

تقبل تحياتى لو فاضى رن او كلمنى على الفيس

تمام يا ابو البراء

هكمل بقا اضافة باقى البيانات لانتهى منه لتسليمه لزمايلى بالشغل لتسهيل العمل

جزاك الله كل خير ياغالى

[ياسر خليل أبو البراء]

وجزيت خيراً أخي الغالي أحمد بمثل ما دعوت لي وزيادة

وإن شاء الله يضبط معك التعديل

تقبل تحياتي

[أبوبسمله]

الحمد لله تم بفضل الله ثم بمساعدتك يا ابوالبراء

جزاك الله كل خير

[ياسر خليل أبو البراء]

وجزيت خيراً بمثل ما دعوت لي

والحمد لله أولاً وأخيراً والحمد لله الذي بنعمته تتم الصالحات .. كل هذا بفضل الله وبرحمته وكرمه وواسع فضله

قل الحمد لله لعلها تكتب في صحيفتي مع صحيفتك