تحديد عدد السجلات بالجدول أو بالنموذج

[متعلم أكسس]

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

أبحث عن كود يمنع أدخال أكثر من 10 سجلات في الجدول أو من خلال النموذج بحيث يتم التعديل أو الاضافة في هذه السجلات فقط .

تم تعديل ديسمبر 30, 2018 بواسطه متعلم أكسس

[فارس بني هلال]

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

اخي العزيز استخدم دالة Dcount 

او ارفق مثال للتعديل

 

تم تعديل ديسمبر 30, 2018 بواسطه فارس بني هلال

[متعلم أكسس]

أشكرك أخي فارس على ردك السريع وارفق لكم مثال على ذالك .

تحديد عدد السجلات.accdb

[أ / محمد صالح]

مرحبا بأهل عمان الطيبين

أدام الله عليكم المحبة والسلام

بالنسبة للمطلوب غريب قليلا

هل تريد أن يسمح بإضافة سجلات جتى يصل العدد إلى 10 ثم بعد ذلك يتم منع الإضافة؟

وماذا بعد منع الإضافة؟

هل تريد أن يحذف السجل الأول ثم يتم إضافة الجديد مكانه أم بعد الأخير؟؟

المطلوب سهل بإذن الله لكن نحتاج للمزيد من التفاصيل

وفقنا الله جميعا لكل خير

[متعلم أكسس]

أهلين فيك الاستاذ محمد والبركة فيك وجميع الأعضاء ..

هل تريد أن يسمح بإضافة سجلات جتى يصل العدد إلى 10 ثم بعد ذلك يتم منع الإضافة؟ نعم هذا المطلوب .

هل تريد أن يحذف السجل الأول ثم يتم إضافة الجديد مكانه أم بعد الأخير؟؟ نعم أخي العزيز مثل ما تفضل بالسؤال ولك مني جزيل الشكر .

[أ / محمد صالح]

أخي الكريم حتى يسهل عليك كتابة الكود يفضل أن تقوم بتسمية الجداول والحقول بحروف انجليزية

وهي عادة حسنة يتبعها كل المبرمجين والمحترفين

ولذا

ينبغي عليك تسمية الجدول بـ names وحقل المعرف بـ id

ثم أضف هذا الكود في حدث قبل الإدراج

Private Sub Form_BeforeInsert(Cancel As Integer)
If DCount("*", "[names]") >= 10 Then
DoCmd.RunSQL "delete from names where id=" & DMin("id", "[names]")
End If
End Sub

ومعناه كالتالي:

إذا كان عدد السجلات في جدول names يساوي 10

يجري استعلام حذف السجل صاحب رقم id الأصغر

موفق بإذن الله

 

[متعلم أكسس]

أشكرك أستاذي وبارك الله فيك إن شاء الله بعمل بالخطوات  جعله الله في ميزان حسناتك .