السلام عليكم ورحمة الله وبركاته
لدي مشكل في اعادة تصفير عدد السجلات عند دخول عام جديد
فمثلا في العام الماضي توقف عدد السجلات عند 2530/2010
عند دخول العام الجديد أريد أن يعيد العد من 0001/2011 ويكمل
هذا الكود الذي أستعمله أرجو التعديل عليه لم استطع رفع العمل لأنه كبير
no.Text = Val(rs.RecordCount) + 1
no.Text = no.Text & "/" & Format(Date, "YYYY")
جازاكم الله كل الخير
تم تعديل هذه المشاركة بواسطة toyoki في 3 يناير 2011 في 19:40
هنا استخدمت (عدد السجلات)+1 ليكون رقم السجل الجديد , للبدأ برقم جديد عند قدوم سنة جديدة استخدم :
(عدد سجلات السنة الحالية)+1 ليكون رقم السجل الجديد .
اي إذا كنت تستخدم الإستعلام التالي :
Select * From MyTable
إستبدله بالإستعلام :
Select * From MyTable Where MyYear='2011'
حيث MyYear هي سنة إضافة البيان
هكذا عندما تبدأ سنة 2011 وكانت عدد السجلات 5000 سجل لسنة 2010 يسيكون رقم السجل الجديد = ( عدد سجلات سنة 2011 )+1
وطبعاً لا يوجد سجلات لـ 2011 فسيبدأ من 1
طبعاً انا اعطيتك الفكرة فقط وعليك تنفيذها على مشروعك ... بالتوفيق ...
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer
شكرا أخي على الرد
لكن ألا توجد طريقة أخرى دون اضافة حقل MyYear
مثلا أن يقوم بالبحث بالنظر الى /2011 ويتجاهل ما قبلها
ليس من الضروري وجود حقل MyYear المهم وجود حقل للتاريخ , فهو ضروري .. انا اعطيك مثال فقط لإيضاح الفكرة ,,
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer
قم بإرفاق الكود الخاص بالترقيم بالكامل وضع اسامي الحقول في الجدول وانواعها لأتمكن من مســــاعدتك
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer
مشكوووووووور أخي على المتابعة زادك الله من علمه
اسم قاعدة البيانات db1
اسم الجدول kadia
اسم حقل التاريخ datet
اسم حقل الترقيم id
كود الترقيم
اخي الكريم :
اقتباسقم بإرفاق الكود الخاص بالترقيم بالكامل وضع اسامي الحقول في الجدول وانواعها لأتمكن من مســــاعدتك
على العموم , يجب ان يكون حقل التاريخ من النوع DateTime وحقل الترقيم من النوع Text
ثم استخدم الكود التالي لإنشاء رقم جديد يبدأ من الرقم 1 ببداية كل سنة :
If RS.State = adStateOpen Then RS.Close RS.Open "Select * From kadia Where Year(datet)=" & Year(Date), DB, adOpenDynamic, adLockOptimistic no.Text = Val(RS.RecordCount) + 1 no.Text = no.Text & "/" & Format(Date, "YYYY")
هنا اضفنا فقط إستعلام بعدد السجلات والتي تم إضافتها في السنة الحالية , لذا مع بداية كل سنة سيبدأ الترقيم من الرقم 1 ...
بالتوفيق ,,,
It does not matter what they know about you, but what you can do, so let your work speak of you
mmghv VB6 Programmer
المتواجدون خلال آخر دقيقتين · يتحدّث كل ٣٠ ثانية
جارٍ التحقق من المتواجدين…