اذهب الي المحتوي
أوفيسنا

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


ام ناصر

الردود الموصى بها

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

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

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

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

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

دمتم بود .

1.jpg

2.jpg

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

رابط هذا التعليق
شارك

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

 

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

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

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

    MsgBox DataErr
End Sub

 

جعفر

  • Like 2
رابط هذا التعليق
شارك

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

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

 

  • Like 2
رابط هذا التعليق
شارك

 

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

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

 

 

جعفر

  • Like 3
رابط هذا التعليق
شارك

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

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

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

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

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

 

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

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


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

    MsgBox DataErr
End Sub

 

جعفر

 

رابط هذا التعليق
شارك

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

زائر
اضف رد علي هذا الموضوع....

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

×
×
  • اضف...

Important Information