ضع كل اسم فى سجل منفصل
بالنسبة لاعادة الترتيب عند الضغط اكثر من مرة
يمكنك مسح الحقول فى نهاية الكود
أريد إزاحة العام 2008 مكان 2007 وحذف عام 2007
لا يا أخي الكريم أنت ما فهمتني
أنا أقصد عند إضافة العام مثلاً 2015 والترتيب كان 90 لو ضغطت مرة أخرى على الزر سوف ينتقل الترتيب للعام الذي يليه وهو العام 2014 ويكون الترتيب 90
ولو استمريت في الضغط سوف ينتقل الترتيب للعام السابق وهكذا .
هنا المشكلة أنا أريده يكون الترتيب ثابت مع العام .
وبالنسبة ما فهمت عليك كيف سجل منفصل . أرجو أن توضح لي .
بارك الله لك في مالك وعلمك وذريتك .
متتاز جداً جداً جداً
بارك الله فيك وفي ذريتك ورزقك من حيث لا تحتسب
الله يجعل الجنة مثواك ويبارك لك في مالك وولدك .
أخي هناك مشكلة بسيطة وهي إنه لا يتوقف عند خمس سنوات بل مع كل ضغطة زر يضيف للخانة التالية بمعنى أنه قد يجعلها كلها لنفس العام ( يعنى مثلاً كلها يجعلها 2012 )
أما الكود السابق فكان يحدد خمس سنوات فقط كما هو مطلوب .
أخي الكريم أنا آسف أتعبتك معي ولكن ما أقول إلا ( فرج الله عنك كربة من كرب يوم القيامة وأسعدك في الدارين الدنيا والآخرة ) .
إذا كنت مشغول فلك كل العذر . وأرجو أن تسامحني .
أخي الكريم أنا أريد الكود يحسب فقط خمس سنوات .
آسف على الإطالة وعلى ثقل الدم .
لك مني كل الود والتقدير والإحترام .
دمت في حفظ الرحمن .
اليك اخى هذا التعديل
استبدل الكود بالنموذج بهذا الكود
If Len(Me.name1 & "") = 0 Then Exit Sub
If Len(Me.y & "") = 0 Or Len(Me.t & "") = 0 Then Exit Sub
If Me.y <= Me.year5 Then Exit Sub
Dim I As Integer
For I = 1 To 5
If I < 5 Then
Me.Controls("tartib" & I) = Me.Controls("tartib" & I + 1)
Me.Controls("year" & I) = Me.Controls("year" & I + 1)
Else
Me.Controls("tartib" & I) = Me.t
Me.Controls("year" & I) = Me.y
End If
Next
Me.y = Null
Me.t = Nullألف ألف مليووووووووووووووووووون شكر
بارك الله في علمك وعملك ومالك وصحتك وذريتك
رحم الله والديك .
دمت في حفظ الرحمن .
تم تعديل هذه المشاركة بواسطة أبو عبير 2005 في 18 يوليو 2011 في 01:26
أخي العزيز أبو يوسف
هل ممكن تعدل لي على البرنامج
لأنني غيرت بدل المصدر جدول خليته استعلام
وعند إضافة عام جديد وترتيب جديد تطلع الرسالة التالية :
مجموعة السجلات هذه غير قابلة للتحديث .
أخي العزيز أبو يوسف
هل ممكن تعدل لي على البرنامج
لأنني غيرت بدل المصدر جدول خليته استعلام
وعند إضافة عام جديد وترتيب جديد تطلع الرسالة التالية :
مجموعة السجلات هذه غير قابلة للتحديث .
أخي الكريم
بارك الله فيك وفي علمك .
لكن صارت المشكلة في ظهور سجل واحد فقط .
أما باقي السجلات ما تطلع .
حاول وأضف أسماء من النموذج A1 فلن ترى أسماء مدخلة في النموذج A2
أخي الكريم أنا آسف لكثرة طلباتي .
ولكن والله كل ما أردته هو أن أفيد وأستفيد .
أخي سامحني على كثرة أسئلتي .
أرجو أن يسامحني كل من ساعدني .
تم تعديل هذه المشاركة بواسطة أبو عبير 2005 في 23 يوليو 2011 في 19:00
الله يكرمك ويزيدك من فضله
تم حل المشكلة .
بارك الله فيك أستاذنا أبويوسف..
هل يمكن الإضافة لجميع السجلات دفعة واحدة؟..
اللهم لك الحمد كما ينبغى لجلال وجهك وعظيم سلطانك .. لا إله إلا أنت سبحانك أنى كنت من الظالمين
نعم اخى ممكن
و لكن ستحتاج الى استعلام تحديث
او الى كود للمرور على جميع السجلات و تديثها
ممكن مداخلة بعد اذن المشاركين ؟ 
عندي حل سهل يسهل كل هذه الأمور ويحل على الأقل 90% من هذه المشاكل ، لماذا لا يكون جدولين أحدهما للطلاب عبارة عن حقلين والثاني لبيانات الدرجات في العام ويكون من ثلاث حقول مثلا لعمل كل هذه الأمور ؟ 
فبعد تحليلي المتواضع للمشكلة فأنت تحتاج في جدول الطلاب إلى حقل رقم للطالب واسم للطالب وممكن تضيف حقول لباقي البيانات عن الطالب حسب الحاجة ويربط بين الجدولين بواسطة رقم الطالب. 
ومن خلال متابعة الاقتراحات التي وجدتها حضرتني هذه الفكرة وقررت أن ارفع لكم الملف الذي طبقت عليه هذا الحل وأتمنى أن يكون فعلا على المستوى المطلوب فأرجو من الجميع وخصوصا صاحب الموضوع إبداء الرأي عليه. 
أستاذ أبويوسف هل أطمع فى التنفيذ باستعلام تحديث على مثال الأخ أبو عبير.. ولك جزيل الشكر
اللهم لك الحمد كما ينبغى لجلال وجهك وعظيم سلطانك .. لا إله إلا أنت سبحانك أنى كنت من الظالمين
أستاذ أبويوسف هل أطمع فى التنفيذ باستعلام تحديث على مثال الأخ أبو عبير.. ولك جزيل الشكر
اللهم لك الحمد كما ينبغى لجلال وجهك وعظيم سلطانك .. لا إله إلا أنت سبحانك أنى كنت من الظالمين
جرب اخى هذا الاستعلام (بدل الكود الموجود )
CurrentDb.Execute "UPDATE tab SET tab.year1 = [tab].[year2], tab.year2 = [tab].[year3], tab.year3 = [tab].[year4], tab.year4 = [tab].[year5], tab.year5 = '" & Me.y & "', tab.tartib1 = [tab].[tartib2], tab.tartib2 = [tab].[tartib3], tab.tartib3 = [tab].[tartib4], tab.tartib4 = [tab].[tartib5], tab.tartib5 = '" & Me.t & "';"
بارك الله فيك أستاذنا أبويوسف زادك الله علما..
اللهم لك الحمد كما ينبغى لجلال وجهك وعظيم سلطانك .. لا إله إلا أنت سبحانك أنى كنت من الظالمين