(تمت الاجابة) سؤال في الجداول

[ابو البشر]

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

لدي جدول لمواد الطلاب  الحقل F24 يتضمن اسماء الطلاب والحقل F25 لارقام الطلاب وكما هو ملاحظ في الجدول المرفق تحت كل اسم او رقم اربعة ايام تخص الطالب سؤالي :

 

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

 

 

اكرر شكري لك سلفا 

علما أن الجدول مستورد من قاعدة بيانات موقع انترنت بمعنى اني لااستطيع استيرادها الا بالشكل الظاهر في الجدول المرفق للأسف الشديد 

جداول الطلاب.rar

[ابو البشر]

يبدو اني اساءت الادب مع اساتذتي الكرام ... وانا اسف .. فلذلك لم يرد احد على سؤالي ... بارك الله فيكم

[أبو آدم]

ليس من خصائل طلاب العلم سوء الأدب

وما أسأت ولكنكم تستعجلون

 

سيصلك الحلّ مني أو من أحد الزملاء الفضلاء

 

..........

[أبو آدم]

أخي العزيز

إليك الحلّ كما طلبت

خلف زر أمر ضع الكود التالي

 

Dim DB As DAO.Database
Dim Rst As DAO.Recordset
Dim NullReplace As String

Set DB = CurrentDb()
Set Rst = DB.OpenRecordset("tblData")

Do Until Rst.EOF
If IsNull(Rst!F25) = True Then
Rst.Edit
Rst!F25 = NullReplace
Rst.Update
Else
NullReplace = Nz(Rst!F25, "")
End If

Rst.MoveNext
Loop
Rst.Close
Set Rst = Nothing
Set DB = Nothing

فيقوم بتعبئة أرقام الطلاب في الحقول الفارغة

ثم يمكنك إستكمال إستخدام الجدول كما تشاء ، أو يمكنك إنشاء أي جدول بالترتيب و الطريقة التي تريدها من رحم هذا الجدول

 

تم تجربة الكود على نفس القاعدة ولم تنشر الابعد التدقيق

 

والله من وراء القصد

[ابو البشر]

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

ثانيا : اخي أبو آدم ولا يهونوا جميع الاخوان شكرا لك ولا يسعني الا أن اقف لك احتراما أخي أبو آدم , لسعة صدرك وردك الأكثرمن جميل بارك الله فيك وفي وقتك وفي مالك وفي أهل أرجو من الله أن يصلح لك الأهل والذرية وأن يغفر لوالديك .

 

جزاك الله خير  

[أبو آدم]

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

نرجو من الله أن تتم الفائدة ... فهل تمت ؟؟

 

حياك الله أخي العزيز

 

.............

[ابو البشر]

نعم تمت فضل الله ثم بفضلك با اخي ابوآدم ............... شكرا جزيلا