الفريق العربي للبرمجةأرشيف المنتديات · 2000 – 2023
نسخة أرشيفية للقراءة فقط — التسجيل والمشاركة مغلقان، والمحتوى محفوظ كما كان.

استفسار حول ايجاد الارقام المفقودة

بدأه صدام الكبيسي في 11 أبريل 2012 · 8 رد · 926 مشاهدة · في قواعد بيانات Microsoft Access
مشاركة: واتساب X فيسبوك تيليجرام
#1 صاحب الموضوع

بسم الله الرحمن الرحيم

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

تحية طيبة الى كافة اعضاء منتدانا الكرام

لدي طلب وهو كالتالي

في قاعدة البيانات المرفقة لدي عامود باسم رقم الاسطوانة ويتم ادخال ارقام فيه بشكل عشوائي

ما اريده هو ان اجد طريقة لاستخراج الارقام التي تقع بين اصغر رقم تم ادخاله واكبر رقم والتي لم يتم ادخالها

مثال للتوضيح

2

5

4

9

10

1

لو افترضنا ان هذه هي الارقام التي ادخلت ولو لاحظنا بان اصغر رقم هو ( 1 ) واكبر رقم (10)

ما اريده الان ان يتم اخراج الارقام التي تقع بين الواحد والعشرة ولم يتم ادخالها مثل

3,6,7,8

وسأكون شاكرا لكم . برنامج اسطونات الغاز.rar

get-3-2008-lc7l01f8y0j.jpg
#2

أخي/ الكبيسي

لو استطعت رفع القاعدة بصيغة 2003

يوجد عندي حل لمشكلتك

أبومحمد

#3

تفضل هذا مثال للارقام المفقودة

بالتوفيق

Serial.rar

1

سيد الاستغفار

{ اللهم أنت ربي لا إله إلا أنت خلقتني وأنا عبدك وأنا على عهدك ووعدك ما استطعت أعوذ بك من شر ما صنعت أبوء لك بنعمتك علي وأبوء لك بذنبي فاغفر لي فإنه لا يغفر الذنوب إلا أنت}

من قالها من النهار موقنا بها فمات من يومه قبل أن يمسي فهو من أهل الجنة ومن قالها من الليل وهو موقن بها فمات قبل أن يصبح فهو من أهل الجنة .رواه البخاري

#4

شكرا أخي مالك وجزاك الله خير

أقترح تعديل السطر التالي :

Dim lastnum As Integer

الى 

Dim lastnum As Double

لان التوصيف Integer لا يقبل الأرقام الكبيرة جرب مثلا الرقم 500000 فلن يعمل الكود حتى تغير التوصيف الى Double

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

تحياتي

1
#5

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

جزيل الشكر للاخ مالك وللاخ ابو محمد وللاخ عدنان على ردودهم السريعة والجميلة واسئل الله ان يوفقكم

ويجزيكم عني خير الجزاء

get-3-2008-lc7l01f8y0j.jpg
#6

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

اخي العزيز مالك لقد بتطبيق المثال والحمد لله لقد نفعني المثال ولكن هناك مشكلة بسيطة وهي ان الكود يقوم بحساب الارقام المفقودة بدءً من 1 الى اكبر رقم تم ادخاله اي انه لو تم ادخال رقم 1000 ورقم 1002 سيقوم البرنامج باضهار الارقام من 1 الى 1001 انا اريد فقط الرقم 1001 اي اني اريده ان يحسب الارقام من اصغر رقم ادخله الى اكبر رقم ادخله ويجد لي الارقام التي تقع بينهما ولم يتم ادخالها

get-3-2008-lc7l01f8y0j.jpg
#7
صدام الكبيسي كتب:

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

اخي العزيز مالك لقد بتطبيق المثال والحمد لله لقد نفعني المثال ولكن هناك مشكلة بسيطة وهي ان الكود يقوم بحساب الارقام المفقودة بدءً من 1 الى اكبر رقم تم ادخاله اي انه لو تم ادخال رقم 1000 ورقم 1002 سيقوم البرنامج باضهار الارقام من 1 الى 1001 انا اريد فقط الرقم 1001 اي اني اريده ان يحسب الارقام من اصغر رقم ادخله الى اكبر رقم ادخله ويجد لي الارقام التي تقع بينهما ولم يتم ادخالها

أخي الكريم تستطيع التحكم ببداية التسلسل من هنا :

lastnum = 1 '!CustNo

هنا يحسب من (1) غير الرقم عندك الى المطلوب فقط هذا كل ما في الأمر

بالتوفيق

#8

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

get-3-2008-lc7l01f8y0j.jpg
#9
صدام الكبيسي كتب:

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

بدل نفس السطر بهذا الكود :

lastnum = Nz(DMin("[Transection_No]", "Serial"))

وبالتوفيق

تم تعديل هذه المشاركة بواسطة adnan94 في 18 أبريل 2012 في 19:19

مواضيع مشابهة