محدود کردن کاربر در ثبت رکورد

[azadich]

باسلام خدمت دوستان، کدی می خواستم که کاربر مثلا بیش از 5رکورد نتونه ثبت کنه،فقط 5رکورد بتونه ثبت کنه و بعد از آن پیغام فارسی بیاید که این برنامه آزمایشی است

[payman_xxp]

باسلام خدمت دوستان، کدی می خواستم که کاربر مثلا بیش از 5رکورد نتونه ثبت کنه،فقط 5رکورد بتونه ثبت کنه و بعد از آن پیغام فارسی بیاید که این برنامه آزمایشی است
سلام
قبل از ذخیره اطلاعات رکورد جدید( مثلا در رویداد باتون ذخیره) باید چک کنید آیا تعداد رکوردهای موجود در جدول از 5 کمتر هست یا خیر...
یه چیزی شبیه این:

Dim db As Database
Dim Rst As Recordset

Set db = CurrentDB()
Set Rst = db.OpenRecordset("tableName")
Rst.MoveLast

If Rst.RecordCount >= 5 Then
MsgBox "امکان ثبت بیش از 5 رکورد در نسخه آزمایشی ندارید"
End If

اگه کمتر بود روال ذخیره رو ادامه بدید.
موفق باشید.

[مهدی قربانی]

سلام
نمونه ای دیگر

[royasaz_bam]

با تشکر واقعا نمونه ارائه شده در تفهیم موضوع کمک بسزائی مینماید ادامه این روش باعث کمک بسزائی در حل موضوعات می شود آقای قربانی ممنون