طريقة الإضافة إلى قائمة منسدلة ComboBox

[الطـاير]

السلام عليكم : اخواني

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

المطلوب هنا : يوجد طريقة للإضافة جنسية ضمن القائمة مع العلم ان هذه الجنسية غير موجودة ضمن القائمة وهذا بدون الدخول للتصميم

وشكرا

[امير عاطف]

اجعل مصدر صف Record Source للكومبو بوكس هو جدول به الجنسيات

[الطـاير]

طيب وبعدين انا عاوز المستخدم هو اللي يضيف اي جنسية جديدة بعد ما اسلم البرنامج وكمان يلغي جنسية ملهاش لزمة

يا رب تكون فهمتني

[امير عاطف]

نعم ذلك سوف يحقق المطلوب إن شاء الله

بحيث تجعل صلاحية المستخذم لاضافة وحذف سجلات الجنسيات التي بجدول الجنسيات

ومثال مبسط لذلك مع المرفقات

nationality.rar

[yr_20]

اليك اخى الحل التالى وعذرا لانه مع الشرح فقد تحلاحظ أنه ممل

أولا : صمم الجداول التالية :

1) جدول بيانات اللاعبين يحتوى على الحقول

الحقول : كود اللاعب _ اسم اللاعب _ تاريخ الميلاد _ كود الجنسية

نوع البيانات : ترقيم تلقائى _ نص _ تاريخ/وقت _ رقم

المميزات : مفتاح أساسى

2) جدول الجنسيات يحتوى على الحقول

الحقول : كود الجنسية _ اسم الجنسية

نوع البيانات : ترقيم تلقائى _ نص

المميزات : مفتاح أساسى

اربط جدول الجنسيات بجدول بيانات اللاعبين بعلاقة رأس بأطرافف

أولا : صمم النماذج التالية :

1) قم بتصميم نموذج من النوع العمودى على جدول الجنسيات

2) قم بتصميم نموذج من النوع العمودى مبنى على جدول بيانات اللاعبين

3) قم بحذف كود الجنسية من النموذج السابق تصميمه بالخطوة 2 وضع بدلا منه مربع تحرير وسرد مبنى على جدول الجنسيات

4) قم بلصق الكود التالى بالحدث عند عدم الوجود بالقائمة لمربع التحرير والسرد

Dim strsql As String, x As Integer

x = MsgBox("هذه الجنسية غير موجود بالقائمة هل تريد اضافتها", vbYesNo)

If x = vbYes Then

strsql = "Insert Into الجنسيات ([كود الجنسية]) values ('" & NewData & "')"

CurrentDb.Execute strsql

Response = acDataErrAdded

Else

Response = acDataErrContinue

[الطـاير]

جزاك الله خير اخي yr 20