كيف جعل البرنامج ديموا

اخي الكريم

فكرة جعل برنامج ديمو ( ليس لها علاقة، فيما اذا كان البرنامج سوف يكون على شبكة ام لا)

الفكرة : تعتمد بالسماح للزبون بادخال عدد محدد من السجلات ( بناء على رغبتك) وعند تجاوز العدد، تمنعه من الاستمرار بادخال المزيد، وتظهر له رسالة بان البرنامج عبارة عن نسخة ديمو

ارفق لك مثال معمول على اكسس 2007 ( يوضح لك الفكرة) وهو يعتمد على ادخال 4 ذاتيات فقط

ارجو الاستفادة

والسلام عليكم

x.rar

اخوي kafi

يعيطك العافيه ممكن تشرح لي وين احط الاكواد الموجوده والطريقة

الله لا يهينك

اخي الكريم

تضع الكود في حدث قبل الادراج

Private Sub Form_BeforeInsert(Cancel As Integer)
 Dim stDocName As String
 Dim stLinkCriteria As String

stDocName = "Caution_Capacity"

If exceed_Limit Then
	Hide_Objects Me
	Cancel = True
	DoCmd.OpenForm stDocName, , , stLinkCriteria
End If

End Sub

حاول تتبع المثال، فهو قد جعلته بسيط للغاية ... يمكن ببساطة تتبعه

والسلام عليكم