اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر (معدل)

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

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

تم تعديل بواسطه 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

 

قام بنشر
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

 

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

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

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

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

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

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

قام بنشر
2 ساعات مضت, safaa salem5 said:

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

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

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

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

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

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

امممممم

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

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

 

5 ساعات مضت, عمر ضاحى said:
 contract.RowSourceType = "قائمة القيم"

 

الى 

contract.RowSourceType = "Value List"

 

قام بنشر
8 minutes ago, عمر ضاحى said:

طيب الحمد لله

 

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

قام بنشر

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

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

  • Like 1

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information