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

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

أو حل آخر وقد يروق لك وهو : ضع الكود التالى فى حدث عند عدم الوجود فى القائمة للقائمة المنسدلة .

Private Sub اسم_العميل_NotInList(NewData As String, Response As Integer)
If MsgBox("البند غير موجود بالقائمة ." & vbCrLf & _
"هل ترغب في إضافته الى القائمة ؟", vbYesNo, "بند غير موجود") = vbYes Then
Dim rst As New ADODB.Recordset
rst.Open "[tblcus]", CurrentProject.Connection, _
adOpenStatic, adLockOptimistic
rst.AddNew
rst![cus_name] = NewData
rst.Update
rst.close
Response = acDataErrAdded

Else
Response = acDataErrContinue
End If

End Sub

مع تغيير اسم tblcus الى اسم الجدول عندك .

وتغير cus_name الى اسم الحقل للقائمة المنسدلة .

أشرف خليل

الاخ همام 2000

الرجاء عدم وضع مشاركة داخل مشاركه

========================== فيصل الحربي

الاخ اشرف

شكراً على هذا الحل وساجرب الكود

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

السلام عليكم

الاخ اشرف

لقد جربت الحل الثاني ووضعت الكود في نفس الحدث المذكور ولكن لم يحدث شي وقد طبقة جميع التعليمات التي ذكرت ما لمشكلة ارجوا المساعدة

وبنسبة للحل الاول وهو انا اعمل نموذج يتكون من رقم القسم واسم القسم كيف دالك وهل اعمل جدول خاص بهاذا النموذج ارجوا المساعد ة

لانة ممكن اسم القسم يتغير او يحدف ويضاف قسم جديد وشكراً

الحل الثاني أنا شغال به تما وقد يكون هناك شيء ما عندك لم يضبط .

أما عن الحل الأول وهو إنشاء نموذج . فنعم يعتمد هذا النموذج على جدول به رقم القسم واسم القسم وفى هذه الحالة يتم تغيير وتعديل وحف وخلافة فى الجدول عن طريق النموذج .

أتمنى أن يكون الشرح واضح .

أشرف خليل

السلام عليكم

الاخ أشرف

اشكراً على شرحك الوافي للحل الاول

بنسبة للحل الثاني تم تطبيقة ولم يعمل معي امل منك وضع مثال ليتسنى لي تطبيقة

وشكراً على حسن تعاونك