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

[almhagr]

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

شباب محتاج عمل نموذج تظهر فية عدد مرات التي فتح فها النموذج
واذا وصل الي رقم معين يتوقف عن العد

ارجو مساعدتي في عمل هذا النموذج

ولكم جزيل الشكر

[أبو عبدالله الحلوانى]

اجعل هذا الكود فى حدث عند الفتح للنموذج OnOpen 

'هذا الجزء لحفظ عدد مرات فتح البرنامج بالرجسترى
'-------------------------------------------
Dim m, a
If GetSetting("aa", "bbc", "a") = Empty Then
SaveSetting "aa", "bbc", "a", 1
Else
m = GetSetting("aa", "bbc", "a") + 1
SaveSetting "aa", "bbc", "a", m
End If


'وهذا الجزء لايقاف التشغيل بعد 5 مرات فتح
'---------------------------------------
If GetSetting("aa", "bbc", "a") >= 5 Then
MsgBox "انتهت الفترة التجريبية للبرنامج"
DoCmd.Quit
End If

 

[almhagr]

جزاك الله خير

مثال ممتاز

اذا ممكن استخدام دالة for في المثال

انا ابي اعرف كيف تعمل الدالة في مربع النص

ولك جزيل الشكر

 

[أبو عبدالله الحلوانى]

أرفق مثالا ونحن حاضرين