اضافة ارقام مسلسلة لسجلات معينة

استخدم هذا الكود :

Dim db As Database
Dim rst As Recordset
Dim عدد_السجلات As Integer, I As Integer, O As Integer

Set db = CurrentDb
Set rst = db.OpenRecordset("SELECT [تكرار اربعة أرقام].المجموعة FROM [تكرار اربعة أرقام] " _
& " WHERE ((([تكرار اربعة أرقام].المجموعة) Is Null));")
If rst.RecordCount > 0 Then
rst.MoveLast
عدد_السجلات = CInt(rst.RecordCount / 4)
rst.MoveFirst
For I = 1 To عدد_السجلات
    For O = 3 To 6
        If rst.EOF = False Then
        rst.Edit
        rst![المجموعة] = O
        rst.Update
        rst.MoveNext
        End If
    Next O
Next I
End If
rst.Close
db.Close

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

مع ملاحظة أنه يحتاج مرجع للداو DAO .

ولك تحياتي

شكرا لك اخى الحبيب

على سرعة ردك و على الكود

هل لنا فى تفسير بعض الشئ لهذا الكود حتى يمكننى حُسن استخدامة :o

** أخى الحقيقة لا افهم معنى عبارتك

" مع ملاحظة أنه يحتاج مرجع للداو DAO . " ؟؟

بالطبع ساقوم بنسخة و تجربتة و اخبرك باذن الله

شكرا لك (f)

اخــــBengaـــــوك

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

ولك تحياتي

السلام عليكم

استخدمم الدالة التالية و استدعها فى استعلام

كما فى المثال http://mypage.ayna.com/mtarafa/Renumber.zip

Function renumber(Mynumber)
 Dim x As Long
  x = Mynumber + 4
  renumber = Mynumber Mod 4
  If renumber = 0 Then renumber = 4
  renumber = renumber + 2
End Function

اخى الحبيب / مصراوى

شكرا لك كثيرا

و قد واجهتنى مشكلة وضعتها فى الملف الذى اعددتة هنا و ارسلته لك ارجو ان تراجع بريدك .. :o

مع خالص شكرى و تقديرى (f)

أخـــــــــBengaـــــــوك

مرفق طيه

update Query

لتحديث الحقول الموجودة

و أيضا فورم تمثل كيفية التحديث بعد كتابة اسم جديد

Newnumber : المحسوب فى الاستعلام

Group : القيمة التي سيتم تخزينها فى الجدول بعد كتابة الاسم

http://mypage.ayna.com/mtarafa/Renumber2.zip