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

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

قام بنشر

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

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

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

وشكرا

قام بنشر

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

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

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

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.

  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information