استعلام خاص جداً

السلام عليكم

إذا كنت تقصد ترقيم السجلات الناتجة عن الأستعلام فهذا يختلف إن كانت السجلات تظهر في النموذج أو التقرير ..

في التقرير بسيطة : ضع مربع نص وأجعل مصدر البيانات له =1 .. ومجموع تراكمي ( شامل )

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

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

والسلام .

السلام عليكم ..

لنفتض أن لديك سجلات عدده ( 10 ) .. وكل سجل يأخذ رقم من 1 - 10

وقمت بحذف السجل رقم ( 5 ) ... بعد حذف السجل يكون ترتيب السجلات كالآتي :

1

2

3

4

6

7

8

9

10

لاحظ أن رقم ( 5 ) غير موجود ..

لأعادة ترتيب السجلات من جديد .. أستخدم هذا الكود :

Dim db As database

Dim rst As Recordset

Dim num As Long

Set db = Application.CurrentDb

Set rst = db.openrecordset("جدول1", dbopentable)

num = 1

Do Until rst.EOF

rst.Edit

rst![م] = num

rst.Update

num = num + 1

rst.MoveNext

Loop

ملاحظة 1 - اسم الجدول ( جدول1 ) واسم حقل الرقم في الجدول ( م ) ونوعه رقم ( وليس ترقيم تلقائي )

ملاحظة 2 - الكود يحتاج إلى مرجع DAO

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

نعم اخي فتى الوادى

ردك الثاني هو المطلوب بالضبط

بارك الله فيك

ساجرب الكود وارد عليك ان شاء الله

السلام عليكم

ما أقول الا بارك الله فيك

الكود تمام

ولكن هل يمكن تشغيله وفق معيار معين

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

شكرا لك