كيف اجعل قيمة كومبوبوكس مبنية على كومبوبوكس آخر

[abouzak]

 

السلام عليكم 

ارجو منكم المساعدة في ما يلي:

عندي كومبوبوكس  gender يحتوي على male و female

و كومبوبوكس pregnancy  يحتوي على - و no و yes

اريد عند اختيار male  من كومبوبوكس  gender  ان تكون قيمة كومبوبوكس  pregnancy  -

وعند اختيار Female  ان اختار من كومبوبوكس pregnancy  اما no او yes

الملف مرفقز

وشكرا جزيلا

Gender.rar

[Shivan Rekany]

اتفضل

@abouzak

Gender.rar

تم تعديل نوفمبر 13, 2018 بواسطه Shivan Rekany
تم تبديل الملف

[abouzak]

عزيزي Shivan Rekany

يبدو انك اعدت لي نفس الملف قبل التعديل عوضا عن الذي عدلت عليه 

[ابو عارف]

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

حبيت مشاركة تعديل على فكرة مختلفة

Private Sub Gender_AfterUpdate()
Combo7 = ""
If Me.Gender = "Male" Then
Combo7.RowSource = "-"
Else
Combo7.RowSource = Chr(34) & "Yes" & Chr(34) & ";" & Chr(34) & "No" & Chr(34)
Combo7.Requery
End If
End Sub

Gender.rar

[رمهان]

2 ساعات مضت, ابو عارف said:

 

Combo7.RowSource = Chr(34) & "Yes" & Chr(34) & ";" & Chr(34) & "No" & Chr(34)

 

حيا الله الاستاذ الغالي ابا عارف

مش ممكن اختصار السطر اعلاه الى :

combo7.rowsource="yes;no"

تحياتي

تم تعديل نوفمبر 13, 2018 بواسطه رمهان

[رمهان]

وهذه فكره 

Private Sub Gender_AfterUpdate()
Combo7 = ""
Combo7.RowSource = Choose(Gender.ListIndex + 1, "-", "Yes;No")
End Sub

بالتوفيق

[ابو عارف]

يا مرحبا استاذنا الغالي اباجود نورت

5 ساعات مضت, رمهان said:

مش ممكن اختصار السطر اعلاه الى :

combo7.rowsource="yes;no"

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

 

5 ساعات مضت, رمهان said:

Combo7.RowSource = Choose(Gender.ListIndex + 1, "-", "Yes;No")

[abouzak]

شكرا لتعاون الجميع

ربما لم أوصل فكرتي بطريقة صحيحة

اريد عندما اختار الخيار male من الكومبوبوكس  Gender ان يكون الخيار تلقائي" - " في الكومبوبوكس Pregnancy والانتقال مباشرة الى الخانة التي تليها دون التدخل والاختيار شيئ.

ولكن عند اختار female من الكومبوبوكس  Gender ان ينسدل  الكومبوبوكس Pregnancy و يتيح لي الاختيار فقط بين no او yes

Gender.rar

[رمهان]

هذا تعديل على مثال الاستاذ ابو عارف

Private Sub Gender_AfterUpdate()
Combo7 = ""
If Me.Gender = "Male" Then
Combo7.RowSource = "-"
Combo7 = "-"
Else
Combo7.RowSource = Chr(34) & "Yes" & Chr(34) & ";" & Chr(34) & "No" & Chr(34)
Combo7.Requery
Combo7.SetFocus
Combo7.Dropdown
End If
End Sub

بالتوفيق

[ابو عارف]

و هذا دون تغير في مصدر الصف و ترك مصدر الصف كما هو حتى لا يضطر المستخدم تغير اسم عنصر في الكود عند تغير اسم عنصر في القائمة مثلاً استبدال "-" بأي حرف او كلمة اخرى

Gender.rar

[abouzak]

شكرا جزيلا للجميع على مساعدتي