السلام عليكم ورحمة الله ..
تحية طيبة للاساتذة المشرفين ولجميع الاعضاء
لدي قوائم منسدلة فيها قيم مأخوذة من جدول معين اريد ان أُلزم المستخدم بالاختيار من القائمة المنسدلة فقط .. فقمت بتغيير خصائص الـ(List) في الـ property sheet الخاصة بالـ combo box او الـ List وذلك بجعل
الـ Limit to list = yes و الـ Allow value list edit =No هذا في حال عدم السماح للمستخدم للاضافة للقائمة المنسدلة والاختيار فقط من القيم الموجودة, احياناً قد يقوم المستخدم بتغيير احدى القيم المدخلة فتظهر مسج بالل
طريقة اصطياد النقطة الاولى:
Private Sub Form_Error(DataErr As Integer, Response As Integer)
Dim Msg, Style, Title
If DataErr = 2237 Then
Msg = "رجاء كتابة او اختيار مادة من القائمة"
Style = vbYes
Title = "اختار من القائمة فقط"
MsgBox Msg, Style, Title
Response = acDataErrContinue
End If
End Sub
جعفر