اضافة بيانات في حقل بناء على معادلة في حقلين اخرين

[pingo22]

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

الاخوة الاعزاء اعمل على برنامج يحتوي على 3 حقول (نظام التعاقد - المهلة - التكاليف)

حقل (نظام التعاقد) يحتوي على 3 اختيارات (ايجار - ايجار تمليكي - تمليك) وحقل (المهلة بالشهر) يكتب فيه عدد الاشهر المطلوبة مثل (1 او 2 او 3 ............الى اخره)

المطلوب ان يتم احتساب حقل (التكاليف) بشكل تلقائي اي عند الاختيار في حقل (نظام التعاقد) ايجار تحسب ب 300 - واختيار ايجار تمليكي او تمليك تحسب ب 500 ويتم ضرب الناتج سواء 300 او 500 في حقل (المهلة بالشهر) سواء كان 1 او 2 او 3 حسب المكتوب

اسف على الاطالة ولكم جزيل الشكر 

برنامج.accdb

[Foksh]

53 دقائق مضت, pingo22 said:

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

الاخوة الاعزاء اعمل على برنامج يحتوي على 3 حقول (نظام التعاقد - المهلة - التكاليف)

حقل (نظام التعاقد) يحتوي على 3 اختيارات (ايجار - ايجار تمليكي - تمليك) وحقل (المهلة بالشهر) يكتب فيه عدد الاشهر المطلوبة مثل (1 او 2 او 3 ............الى اخره)

المطلوب ان يتم احتساب حقل (التكاليف) بشكل تلقائي اي عند الاختيار في حقل (نظام التعاقد) ايجار تحسب ب 300 - واختيار ايجار تمليكي او تمليك تحسب ب 500 ويتم ضرب الناتج سواء 300 او 500 في حقل (المهلة بالشهر) سواء كان 1 او 2 او 3 حسب المكتوب

اسف على الاطالة ولكم جزيل الشكر 

برنامج.accdb 596 kB · 0 downloads

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

تم انشاء الدالة حساب التكاليف :-

Private Sub CalculateTkalef()
    Dim contractType As String
    Dim months As Integer
    Dim costPerMonth As Currency
    Dim totalCost As Currency
    contractType = Me.elt3qod.Value
    months = Nz(Me.elmohla.Value, 0)
    Select Case contractType
        Case "ايجار"
            costPerMonth = 300
        Case "ايجار تمليكي", "تمليك"
            costPerMonth = 500
        Case Else
            costPerMonth = 0
    End Select
    totalCost = costPerMonth * months
    Me.eltkalef.Value = totalCost
End Sub

واستدعائها في حدثي بعد التحديث لـلكومبوبوكس (elt3qod) ومربع النص (elmohla) .

 

برنامج.accdb

تم تعديل يوليو 21, 2024 بواسطه Foksh

[pingo22]

الاخ الغااااالي Foksh خااااالص شكري وتقديري تماااام هو المطلوب

جزاك الله كل الخير وزادك من العلم