الاخوة الاعزاء
فى الترقيم التلقائي كيف يمكن الغاء كلمة ترقيم تلقائي فى النموذج و لاتظهر فى النموذج الا عند اضافة البيانات يظهر الرقم
(وَمِنَ النَّاسِ وَالدَّوَابِّ وَالْأَنْعَامِ مُخْتَلِفٌ أَلْوَانُهُ كَذَلِكَ إِنَّمَا يَخْشَى اللَّهَ مِنْ عِبَادِهِ الْعُلَمَاء إِنَّ اللَّهَ عَزِيزٌ غَفُورٌ) (فاطر : 28 )
اخي الفاضل
السلام عليكم ورحمة الله وبركاته
طبعا لا يمكن اخفاء الترقيم التلقائي المصاحب لازرة التنقل في اسفل النموذج ولكن يمكن الاستغناء عن الترقيم التلقائي في الجدول والنموذج بهذه الطريقة
1. قم بتغيير حقل الترقيم التلقائي في الجدول الى رقم
الان سوف نستخدم الدالة DMAX التي تقوم مقام هذا الترقيم التلقائي حسب الطريقة التالية
DMax function
صيغتها
DMax ( expression, domain, [criteria] )
تستخدم هذه الدالة في المجال التجميعي ويكون الكود الخاص بزيادة رقم عن السابق كما في الترقيم التلقائي على النحو التالي
في حدث قبل الادراج للنموذج نضع هذا الكود
Private Sub Form_BeforeInsert(Cancel As Integer)
Me!ID = Nz(DMax("[ID]", "[Table]"), 0) + 1
End Subحيث الحقل [iD] في الجدول Table عبارة عن حقل رقمي وليس ترقيم تلقائي
وهذا مثال تطبيقي على الدالة جرب بنفسك وشوف النتيجة
اختكم
زهره
بارك الله فيك ... ولكن هل من الممكن أن أحصل على المثال بنسق قاعدة بينات أكسس 2000 :unsure:
أي شخص يقدر يغير نسق المثال يا ريت مايبخل علي :rolleyes:
تبقى مشكلة الحذف قائمة
اي بحذف سجل يتم حذف رقمه ويكون مكانه ناقصا
وَمِنَ النَّاسِ مَن يُعْجِبُكَ قَوْلُهُ فِي الْحَيَاةِ الدُّنْيَا وَيُشْهِدُ الله عَلَى مَا فِي قَلْبِهِ وَهُوَ أَلَدُّ الْخِصَامِ
يا أخوان مشكلة أن المعلومات تحفظ مباشرة وبالتالي يتم اخذ رقم جديد
المطلوب : في حالة كيفية التراجع عن الحفظ أو الخروج بدون حفظ وبالتالي التراجع عن أخذ رقم جديد
اخي الفاضل همام ابوعرقوب
اخي الفاضل احمد الرحمني
راجعوا هذا الرابط اذا كان الامر يتعلق بمشكلة حذف سجل واعادة الترقيم مباشرة
هذا الموضوع مغلق.
