الاختيار من القائمة المنسدلة فقط

[ام ناصر]

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

تحية طيبة للاساتذة المشرفين ولجميع الاعضاء 

لدي قوائم منسدلة فيها قيم مأخوذة من جدول معين اريد ان أُلزم المستخدم بالاختيار من القائمة المنسدلة فقط .. فقمت بتغيير خصائص الـ(List) في الـ property sheet  الخاصة بالـ combo box  او الـ List  وذلك بجعل

الـ Limit to list = yes  و الـ Allow value list edit =No هذا في حال عدم السماح للمستخدم للاضافة للقائمة المنسدلة والاختيار فقط من القيم الموجودة, احياناً قد يقوم المستخدم بتغيير احدى القيم المدخلة فتظهر مسج باللغة الانكليزية كيف يمكنني من جعل المسج يظهر باللغة العربية ؟

كذلك هو الحال عند جعل هذه القائمة قابلة الاضافة وبتعريب المسج التي تشير لخيار اضافة القيمة المدخلة في القائمة المنسدلة او الغائها  كما هو مبين في الصورتين المرفقة ادناه .. ان كان هنالك حل آخر اكون شاكرة لكل من يشارك الموضوع .

دمتم بود .

قائمة منسدلة.rar

[jjafferr]

وعليكم السلام

 

اهم شيء في الموضوع هو اصطياد رقم رسالة الخطأ ، ومنها نستطيع عمل ما نريد

ولعمل هذا ، استعملي "حدث خطأ النموذج" ، هكذا:

Private Sub Form_Error(DataErr As Integer, Response As Integer)

    MsgBox DataErr
End Sub

 

جعفر

[Shivan Kurdi]

استأذنك استاذ جعفر
تريدي ان تختار من الاختيارات اللي في كومبوبوكس وما تريد ان تضيف شي اخر
اليكي هذا
في حدث نوت ان ليست للكومبوبوكس
 

Private Sub CoreHereke_NotInList(NewData As String, Response As Integer)
    Response = acDataErrContinue
End Sub

 

[jjafferr]

 

طريقة اصطياد النقطة الاولى:

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

 

 

جعفر

[ام ناصر]

شكراً جزيلاً لتفضلكما بالرد استاذي jjafferr و Shivan Rekany  

الطريقتين فعالتين وأدتـا النتيجة المطلوبة جزيتما خيراً 

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

3 ساعات مضت, jjafferr said:

وعليكم السلام

 

اهم شيء في الموضوع هو اصطياد رقم رسالة الخطأ ، ومنها نستطيع عمل ما نريد

ولعمل هذا ، استعملي "حدث خطأ النموذج" ، هكذا:

Private Sub Form_Error(DataErr As Integer, Response As Integer)

    MsgBox DataErr
End Sub

 

جعفر

 

[jjafferr]

حياك الله

[Amr Ashraf]

ماشاء الله استاذنا @jjafferr معلومة مفيدة جدا وحفظتها فى مكتبتى 

تم تعديل نوفمبر 20, 2017 بواسطه Amr Ashraf