طريقة تحديث كومبوبوكس بناء قيم من كومبوبوكس اخر

[safaa salem5]

عندى اتنين كومبوبوكس

Ptitle

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

والكومبو الاخر 

Gender

يحتوى اختيارين فقط

male ,female

 

عايزه عند الاختيار من 

ptitle

 القيم اللى تحتوى على حرف  (ه) او (ة) فى اخر الكلمه

زى السيده

الدكتورة

المهندسه

المعلمه

يتم ملأ  كومبوبكس الاخر 

female

واذا لم تحتوى على ه.ة

فى اخرها يتم ملأ الكومبو الاخر

male

 

[kanory]

تفضلي <><><><><><>

Private Sub ComboBox1_Change()
    Dim lastChar As String
    lastChar = Right(ComboBox1.Text, 1)
    
    If lastChar = "ه" Or lastChar = "ة" Then
      ComboBox2.SetFocus: ComboBox2.Text = "female"
    Else
        ComboBox2.SetFocus: ComboBox2.Text = "male"
    End If
End Sub

 

[safaa salem5]

40 minutes ago, kanory said:

تفضلي <><><><><><>

Private Sub ComboBox1_Change()
    Dim lastChar As String
    lastChar = Right(ComboBox1.Text, 1)
    
    If lastChar = "ه" Or lastChar = "ة" Then
      ComboBox2.SetFocus: ComboBox2.Text = "female"
    Else
        ComboBox2.SetFocus: ComboBox2.Text = "male"
    End If
End Sub

 

عايزه اضيف

مدام

للكود دى لو تكرمت

kanory

تم تعديل فبراير 4 بواسطه safaa salem5

[kanory]

منذ ساعه, safaa salem5 said:

ايزه اضيف

مدام

للكود دى لو تكرمت

طيب <><><><><><>

اكيد مع عمل البرنامج تظهر عبارات اخرى ..... على العموم اضفت مصفوفة يمكن من خلالها اضافة عبارات اخرى 

Private Sub ComboBox1_Change()
    Dim lastChar As String
    lastChar = Right(ComboBox1.Text, 1)
myT = Array("مدام", "عبارة1", "عبارة2")
    For Each t In myT
        If t = ComboBox1.Value Then
            TT = t: Exit For
        End If
    Next t
    If ComboBox1.Value = TT Or lastChar = "ه" Or lastChar = "ة" Then
          ComboBox2.SetFocus: ComboBox2.Text = "female"
    Else
        ComboBox2.SetFocus: ComboBox2.Text = "male"
End If
End Sub

 

[safaa salem5]

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

[kanory]

1 ساعه مضت, safaa salem5 said:

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

امين واياك ....