كيفية اجبار المستخدم علي الاختيار من الكمبوبوكس

Private Sub Combo1_KeyPress(KeyAscii As Integer)
If KeyAscii > 0 Then KeyAscii = 0
End Sub

الاخ مبرمج مبتدا فهمك خطا

يمكنك ذلك من خلال خاصية Style فى الكومبو

لكن يمكن بطرقتي بنفس الستايل الdufcult

من الخاصية style أخر اختيار

بسم الله الرحمن الرحيم

حاول تجرب خاصيه Container

فمثلا تتاكد ان التكست المدخل هو فعلا داخل الكومبو

combo2.Container

الأخ الفاضل جرب اللى قالك عليه الأستاذ الغالى جدا مونو مع انى اشك انها هتشتغل لأنه اشتغلت مره واحده بس فى تاريخ الفيجوال بيسك مع واحد اسمه امير ولو انت بتملى الكمبو بتاعك ده من قواعد بيانات وكده فانا كنت بواجه نفس الشئ ولكنى عملت دالة تعمل الموضوع ده وهى كالتالى لو هتستخدمها حطها فى التعريفات العامة وهتديها متغيرات :

Public Function shk(tb_nm As ADODB.Recordset, f As String, comb As ComboBox) As String

Dim n As String

On Error Resume Next

tb_nm.MoveFirst

tb_nm.Find "" & f & "='" & comb.Text & "'"

If tb_nm.EOF Then

n ="عفوا الإختيار الذى اخترته ليس ضمن القائمة"

shk=n

comb.Text = ""

End If

End Function

واستخدامها كالتالى

Private Sub Combo2_LostFocus()

Label1.Caption = shk(knd_god_details, "NAME", combo2)

End Sub

وناتج هذا الإجراء انه يأخد اسم الجدول كمدخل اول للدالة واسم الحقل المراد عمل شيك عليه واسم الكمبو الذى تختبره وكل مره انت تكتب هذا السطر القصير فى حدث لوست فوكس وفى ليبل واحد انت هنا ستظهر الرسالة القائلة بانك اخترت اختيار ليس ضمن القامة وممكن تساويه بمسج بوكس وانت حر والله الموفق ارجو ان اكون قد ادتك لا تنسانى من صالح دعائك :rolleyes: