اعضاء المنتدى
السلام عليكم
اذا كان يوجد لديه جدول وبه أرقام من 1 الى 20000 مثلا وهناك ارقام مفقودة
كيف اضع معيار في الاستعلام يعطيني الارقام المفقودة فقط
وشكر لكم
سؤال حول معيار في الاستعلام
مغلق
شكرا لك يا أستاذي
الاخ الاستاذ اشرف خليل
السلام عليكم ورحمة الله وبركاته وكل عام وانت بخير وجميع الاعضاء
لقد ارسلت لي كود يقوم بمعرفة الرقم المفقود ولكن لم انجح في عمله في البرنامج الذي عندي .
واليك الملف ويتمثل في جدول ونموذج لتسجيل الورديات متسلسله ومبالغها.
والان لوتكرمت توضع لي الكود وذلك لمعرفة رقم الوردية المفقودة وشكرا جزيلا
جرب هذه بعد التعديل لكن فى حالة الترقيم التلقائي لابد من وجود رقم 1
الاخ اشرف لم يعمل الكود كما يجب ياستاذي
عدلت تعيدل بسيط وعمل الكود معي ولكن هناك يوجد 3 متغيرات الذاكرة ولو كانت الارقام اكثر من ثلاثة ارقام لاياتي الا بالثلاثة فقط حسب متغيرات الذاكرة .
هل هناك معيار في استعلام يحل هذا الاشكال . وشكرا لك
أخى المزيني :
جربت مثالك ولكن جرب أن تضع بيانات جديدة بالنموذج وبعدها اذهب لاستعلام الأرقام المفقودة ستجد نفس الأرقام الجديدة بالنموذج من ضمن الأرقام المفقودة . إلا إذا أنا طبقت خطأ
أخي الحبيب أشرف خليل حفظك الله ورعاك:
إذا كان الرقم الذي أدخلته أكبر من 20فإن كلامك صحيح حيث أن الجدول الذي اسميته irad2 يحتوي على الأررقام من 1 وحتى 20 ويمكنك زيادة الأررقام فيه ليقوم بالمطلوب أما إذا كان الرقم الذي قمت بإدخاله من 1 إلى 20 فإن هناك خطأ ما .
الاخ المزيني
السلام عليكم وكل عام وانت بخير وجميع الاعضاء
الملف الذي قمت بارساله فعلا حل جيد وهو استعلام لايجاد غير المتطابقات لانه مبني على جدولين .
ولكن انا لايوجد عندي الاجدول واحد الذي يمثل الورديات متسلسله فهل هناك لديك حل اخر .
وشكرا لك .
أخي العزيز ألا ترى أن سهولة الحل تستأهل إضافة جدول آخر، ويمكنك تعبئته بالبيانات تلقائياً باستخدام إجراء يقوم بذلك.
السلام عليكم
هذا مثال من تصميم الأستاذ حارث ومشاركتي في استخراج الأسابيع التي لا تحتوي على بيانات وهي شبيهة لفكرة الأستاذ المزيني .
وكالعادة لقد فشلت في العثور عليه من المنتدى .
تحياتي
الأخ العزيز أبو شاهر
السلام عليكم
لدي كود للكشف عن الأرقام غير المستخدمة مهما كان حجمها لكن كيف تريد عن الأرقام المفقودة هل تريد عرضها في تقرير أم نموذج أو تخزينها في جدول
تحياتي
الاخ ابوهاجر
السلام عليكم
طبعا يوجد عندى الجدول وفيه ارقام الورديات متسلسله واريد الكود ان يعرض لي الورديات لم تسجل( الورديات المفقودة التي بين اول رقم واخر رقم في الجدول) وذلك في تقرير .
ولك جزيل الشكر والعرفان.
الاخ العزيز ابو هاجر
السلام عليكم
اشكرك على تفاعلك مع موضوعي ودائم مانستغني عنك انا وجميع الاعضاء .
اخي الجدول الموجود في الملف به ارقام الورديات بداية من 1172الى ؟؟؟؟؟والوردية رقم 1185 مفقودة لم تسجل امل منك التعديل في الكود وارساله لي حيث ان الكود الحالي ياتي بالارقام من واحد ,واعذرني باابوهاجر وشكرا جزيلا
أخي الكريم
السلام عليكم
استبدل الأسطر المناسبة في تعديلي على مثالك السابق بالكود التالي
Dim dbs As Database, rst As Recordset, numnouse As String, maxnum As Long, I As Long, counnouse As Long, minnum As Long
Me.labnumnouse.Visible = True
Me.Repaint
maxnum = DMax("[no_o]", "irad")
minnum = DMin("[no_o]", "irad")
counnouse = 0
Set dbs = CurrentDb
Set rst = dbs.OpenRecordset("SELECT irad.no_o FROM irad order by no_o asc")
For I = minnum To maxnum
If I <> rst!no_o Then
numnouse = numnouse & "- " & I & " "
counnouse = counnouse + 1
Else
rst.MoveNext
End If
Next
rst.Close
Set dbs = Nothing
Set rst = Nothing
Me.labnumnouse.Visible = False
Me.numnouse = numnouseتحياتي
أخوك / أبو هاجر
شكرا لك ياباهاجر لقد جربت الكود وضبط 100% وبارك الله فيك
أحسنتم أخواني
هذا الموضوع مغلق.