السلام عليكم ورحمة الله وبركاته
المطلوب كما هو موضح بالنموذج
وشاكر تعونكم مقدما
عادل محمد
[ تمت الإجابة ]ما هو الكود المناسب لهذا الطلب
تم تعديل هذه المشاركة بواسطة ايهاب عثمان في 16 مارس 2008 في 12:45
طبتم واهتديتم :)
===================================
إقرأ معي
رابط متجدد لكتاب أقرؤه فشاركني فيه
======
فضائح الرافضة ومخازيهم حين يكتب عنها أحد خصومهم فهذا شيء متوقع ،فإن كتب عنها أحدهم فهو شيء غير مألوف ، وإن كان الكاتب أحد مراجعهم وأخص خواصهم فهذا شيء متناهي الغرابة ، وإن علمت أن الكاتب قد قتل بعد نشر الكتاب فقد حان وقت قراءة الكتاب
الكتاب :
حسين الموسوي - لله تم للتاريخ ، كشف الأسرار وتبرئة الأئمة الأطهار
اضغط على الصورة لتحميل الكتاب
-----------
كتب سابقة
السلام عليكم ورحمة الله وبركاته
شاكر ردك اخي الكريم ايهاب
ولكن اذا كان الشهر السابق هوشهر 1 2008
عند اضافة الشهر الجديد يكون ايضا شهر1 2008
مطلوب ايضا ان يكون عداد اخر الشهر السابق يكون هوعداد اول الشهر الحالي
وشكرا مقدما لتعاونكم
عادل صالح
اخي الفاضل
ضع هذا الكود في حدث الحالي للنموذج
Private Sub Form_Current()
If Me.NewRecord Then
Me.adadfarst = DLast("[adadend]", "ask")
End If
End Subعندما تنتقل الى سجل جديد
سيقوم الكود بأخذ قيمة آخر سجل لعداد آخر ووضعه في عداد اول للشهر الجديد
السلام عليكم الاخت العظيمة زهرة
شاكر حسن تعونكم
وشكرا
عادل صالح
بسم الله الرحمن الرحيم
تمت الإجابة على الموضوع
إدارة الفريق العربي للبرمجة