مساء الخير جميعا: طريقة فلترة كومبوبوكس بناء على قيم ثابته فى كومبوبوكس اخر

[safaa salem5]

عندى فورم اسمه 

reservation_frm

 فيه اتنين كومبوبوكس

الاول اسمه

account

مصدره قيم ثابته

فى 

row source 

وهى القيم التاليه

"فردي";"تعاقد";"مجاني";"مختبر خارجى"

والتانى اسمه 

contract

مصدره هيكون متغير بناء على الكومبوبوكس الاول

وعندي فيلد اسمه

discount

بالمختصر عايزه عند اختياركلمة(تعاقد) من الكومبوبكس الاول

قيم الكومبوبوكس الثانى تأتى من جدول التعاقدات اللى اسمه

contract_price_tbl

contract_price_tbl

code	contract	discount
1	نقابة الصياده	20
2	نقابة الاطباء	15

للاختيار منها وعند اختيار اى قيمه منها

فى الحاله دى الخصم الموجود فى الفورم= الخصم فى الجدول 

discount=discount

وبعدها يتم عدم تمكين فيلد الخصم فى الفورم لعدم التعديل عليه

----------------------------------------------------------------------------------------

فى الحاله التانيه عند اختياركلمة(مختبر خارجى) من الكومبوبوكس الاول

مصدر بيانات الكومبوبوكس الثانى يأتى من جدول اخر اسمه

out_tbl

code	out
1	معمل رويال
2	معمل العصافره

----------------------------------------------------------------------------------

وعند اختيار كلمة (مجانى)

فى الحاله دى عايزه كلمة بدون تعاقد تظهر فى الكومبوبوكس الثانى

100= ويكون الخصم فى الفورم 

وبعدها يتم تمكين فيلد الخصم فى الفورم لاحتمالية التعديل عليه

 

------------------------------------------------------------------------------

(عند اختيار  كلمة (فردى

فى الحاله دى عايزه كلمة بدون تعاقد تظهر فى الكومبوبوكس الثانى

0= ويكون الخصم فى الفورم 

وبعدها يتم تمكين فيلد الخصم فى الفورم لاحتمالية التعديل عليه

2 combobox.rar

تم تعديل نوفمبر 26, 2023 بواسطه safaa salem5

[عمر ضاحى]

اتفضلى ما تريدين 

2 combobox.rar

 

Private Sub account_AfterUpdate()
    Dim strSQL As String
    Select Case Me.account.Value
        Case "فردي"
'            contract.RowSource = ""
            contract.RowSourceType = "قائمة القيم"
            contract.RowSource = "بدون تعاقد;بدون تعاقد"
            contract.Value = "بدون تعاقد"
            discount.Value = "0"
            discount.Enabled = True
        Case "تعاقد"
            strSQL = "SELECT contract_price_tbl.code, contract_price_tbl.contract, contract_price_tbl.discount FROM contract_price_tbl;"
            contract.RowSourceType = "Table/Query"
            contract.RowSource = strSQL
            discount = contract.Column(2)
            discount.Enabled = False
        Case "مجاني"
'            contract.RowSource = ""
            contract.RowSourceType = "قائمة القيم"
            contract.RowSource = "بدون تعاقد;بدون تعاقد"
            contract.Value = "بدون تعاقد"
            discount.Value = "100"
            discount.Enabled = True
        Case "مختبر خارجى"
            strSQL = "SELECT out_tbl.code, out_tbl.out FROM out_tbl;"
            contract.RowSourceType = "Table/Query"
            contract.RowSource = strSQL
    End Select
    
    contract.Requery
End Sub

 

[safaa salem5]

3 hours ago, عمر ضاحى said:

اتفضلى ما تريدين 

2 combobox.rar 85.8 kB · 1 download

 

Private Sub account_AfterUpdate()
    Dim strSQL As String
    Select Case Me.account.Value
        Case "فردي"
'            contract.RowSource = ""
            contract.RowSourceType = "قائمة القيم"
            contract.RowSource = "بدون تعاقد;بدون تعاقد"
            contract.Value = "بدون تعاقد"
            discount.Value = "0"
            discount.Enabled = True
        Case "تعاقد"
            strSQL = "SELECT contract_price_tbl.code, contract_price_tbl.contract, contract_price_tbl.discount FROM contract_price_tbl;"
            contract.RowSourceType = "Table/Query"
            contract.RowSource = strSQL
            discount = contract.Column(2)
            discount.Enabled = False
        Case "مجاني"
'            contract.RowSource = ""
            contract.RowSourceType = "قائمة القيم"
            contract.RowSource = "بدون تعاقد;بدون تعاقد"
            contract.Value = "بدون تعاقد"
            discount.Value = "100"
            discount.Enabled = True
        Case "مختبر خارجى"
            strSQL = "SELECT out_tbl.code, out_tbl.out FROM out_tbl;"
            contract.RowSourceType = "Table/Query"
            contract.RowSource = strSQL
    End Select
    
    contract.Requery
End Sub

 

تسلم ايدك يا اباشمهندس  عمر

الكود شغال تمام 

بس فى حاجه بسيطه مش بتحصل 

فى حالة اختيار فردى او مجانى 

عايزه كلمة بدون تعاقد تظهر فى الكومبوبوكس التانى

انا شايفاك عاملها فى الكود بس مش شغاله

[safaa salem5]

[عمر ضاحى]

2 ساعات مضت, safaa salem5 said:

تسلم ايدك يا اباشمهندس  عمر

الكود شغال تمام 

بس فى حاجه بسيطه مش بتحصل 

فى حالة اختيار فردى او مجانى 

عايزه كلمة بدون تعاقد تظهر فى الكومبوبوكس التانى

انا شايفاك عاملها فى الكود بس مش شغاله

امممممم

ممكن بسبب ان النسخه عندك انجليزي 

جربي تغيري فى الكود السطرين ال مكتوب فيهم 

 

5 ساعات مضت, عمر ضاحى said:

 contract.RowSourceType = "قائمة القيم"

 

الى 

contract.RowSourceType = "Value List"

 

[safaa salem5]

تمام اشتغلت

[عمر ضاحى]

17 دقائق مضت, safaa salem5 said:

تمام اشتغلت

طيب الحمد لله

 

[safaa salem5]

8 minutes ago, عمر ضاحى said:

طيب الحمد لله

 

استاذ عمر هو كدا لو حد عنده الأوفيس عربى هيبقى فى مشكله ازاى احلها

[عمر ضاحى]

ان شاء الله مش هيكون فى مشكله 

لما بتكون بالانجليزي الاكسيس هيعرف يتعامل معها بدون مشاكل 
فلا تشيلى هما (اعتبريه خطأ مني)