محدودیت ایجاد کردن در استفاده از برنامه با شمارش رکوردهای جداول اکسس

شاید برای شما کاربران اکسس پیش آمده باشد که بخواید دسترسی کاربر را به محصول اکسستون را محدود کنید و اختیاراتی را از کاربر بگیرید.در این مطلب ما گام به گام له شما توضیح خواهیم داد

شمارش رکوردهای جداول اکسس

البته دقیق تر بگم شمارش رکوردهای یکی از جداول و یا کوئری های اکسس به چه صورت امکان پذیره؟ شکل کلی به صورت زیر هست:

Dcount(“tbl_test”,”test_name”)

کد بالا بدون در نظر گرفتن شرط خاصی تعداد رکوردهای موجود توی جدول تست و فیلد test_name رو شمارش میکنه . حالا اگر ما یه متغیر تعریف کنیم و مقدار متغیر رو برابر کد بالا قرار بدیم . میتونیم به اکسس بگیم اگر نتیجه اون متغیر بالای یک عددی شد دیگه به کاربر اجازه ادامه دادن نده . ببینید:

Dime Rcount As Variant

Rcount=Dcount(“tbl_test”,”test_name”)

If Rcount>5 Then

   MsgBox “فقط 5 رکورد می توانستید وارد کنید “

   Cancel=True

Else

End if

توضیح کد بالا :

در خط اول و دوم متغیر تعریف کردیم و مقدارش رو برابر با نتیجه شمارش تعداد رکوردها قرار دادیم .

خطهای بعدی گفتیم اگر نتیجه متغیر (یعنی تعداد رکوردهای موجود تو جدول تست) بزرگتر از 5 شد عملیات رو کنسل کن و در غیر اینصورت ادامه بده .

یه جای دیگه که میتونه این کد خیلی کاربرد داشته تو محدود کردن تعداد کاربران یک برنامه هست . فرض کنید شما یک برنامه تحت اکسس نوشتید ولی نمیخواید که بیشتر از 5 کاربر بشه توی نرم افزار تعریف کرد . خب خیلی راحت از کدهای بالا استفاده میکنید و فقط نام جدول و فیلد رو باید عوض کنید . یا مثلا اگر بخواید توی هر روز فقط تعداد مشخصی رکورد وارد بشه میتونید برای Dcount شرط تاریخ بذارید که اگر تعداد رکوردهایی که نام فیلد تستشون دارای مقدار و تاریخشون برابر امروز هست بالاتر از یه عددی شد ، اجازه ادامه به کاربر نده.

اگر توضیحات متنی کافی نبود میتونید ویدیوی زیر رو ببینید.