اريد أستعلام يقوم بتوليد السريلات بتسلسل (عنوان معدل)

[ashraf_ali]

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

 

لدي جدول يحتوي على سريلات منتجات معينه ومخزنه في جدول كنظام الرينجات ( من & الى ) كما في الصورة ادناه

مثال :

لدي الصنف X ولكمية 2000 صنف سريلات هذه المنتجات هي من 23000 الى 32999

اريد أستعلام يقوم بتوليد السريلات بالتفصيل مثلا تكون النتيجه كالتالي

23000

23001

23002

23003

.

.

.

32999

مع ذكر اسم الصنف بجانب كل سريل

[محمد أبوعبدالله]

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

تفضل اخي الكريم

    Dim rst As DAO.Recordset
    
    mySQL = "Select * TableName"
    Set rst = CurrentDb.OpenRecordset(mySQL)
    
    For i = Me.Start_Sn To Me.END_SN
    
        rst.AddNew
        rst!Item = Me.Item
        rst!SN = i
        rst.Update
    Next i
    
    rst.Close: Set rst = Nothing
   
        If Me.CurrentRecord = Me.RecordsetClone.RecordCount Then Exit Sub
        DoCmd.GoToRecord acDataForm, Me.Name, acNext

تحياتي

[ashraf_ali]

أخ @محمد ابوعبد الله

في المرفقات مثال 
هل ممكن عمل ما هو مطلوب في المثال

وجزاك الله خير الجزاء

Test.accdb

[محمد أبوعبدالله]

تفضل

Test(2).accdb

 

تم تعديل نوفمبر 21, 2019 بواسطه محمد ابوعبد الله

[ashraf_ali]

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

[محمد أبوعبدالله]

تفضل اخي الكريم

UP-Test(2).accdb

 

تحياتي

تم تعديل نوفمبر 21, 2019 بواسطه محمد ابوعبد الله

[ashraf_ali]

شكرا اخ محمد ابو عبدالله

عمل الكود كما هو مطلوب

[محمد أبوعبدالله]

بالتوفيق اخي الكريم

تحياتي