[amer2000]

If Combo9.Text = "saudi" Then
With Combo12
.AddItem ""
.AddItem "ÚÓßÑí"    لاتظهر اللغة العربية هنا في المنتدي التوضيح في الاسفل
.AddItem "ãÏäí"
End With
ElseIf Combo9.Text = "non saudi" Then
With Combo12
.AddItem ""
.AddItem "íãäí ãÞíã"
.AddItem "íãäí ãÌåæá/ÚÇÈÑ"
.AddItem "ÇÎÑì ãÞíã"
.AddItem "ÇËíæÈí ãÌåæá/ÚÇÈÑ"
.AddItem "ÇËíæÈí ãÞíã"

End With
End If



اريد تعديل على الكود في الاعلى ووضعهة في الفورمة بشكل صحيح (الموضوع يتكلم عند اختيار في الكومبو رقم 9 سعودي يظهر في الكومبو 12مثلا موظف او غير موظف
وفي حال اختيار في الكومبو رقم 9  غير سعودي يظهر في الكومبو 12 مثلا موظف شركة او عامل خاص  او غير معروف
...*.*نقطة* عند التعديل في الكومبو9  في نفس الوقت يظهر جميع الاختيارات في كومبو 12......



موضوع اخر

اريد كود او مشروع صغير يتكلم عن pdf لتخزين وجلب الاوراق الPDF>>>وشكرا لكم<<<<