اذهب الي المحتوي
أوفيسنا
بحث مخصص من جوجل فى أوفيسنا
Custom Search

الردود الموصى بها

قام بنشر

Private Sub Form_Load()
Dim xdate As Date
Dim Ndate As String
Dim mssg As String
xdate = #12/23/2014#
If xdate <= Date Then
MsgBox "انتهت الفترة التجريبية فضلا اتصل على 123456789"
Quit
Else
Ndate = CStr(xdate - Date)
mssg = "المدة المتبقية" & " " & Ndate & " " & "يوم"
MsgBox mssg
DoCmd.Close
End If
End Sub
  • Like 1
  • Thanks 1
قام بنشر

 


Private Sub Form_Load()
Dim xdate As Date
Dim Ndate As String
Dim mssg As String
xdate = #12/23/2014#
If xdate <= Date Then
MsgBox "انتهت الفترة التجريبية فضلا اتصل على 123456789"
Quit
Else
Ndate = CStr(xdate - Date)
mssg = "المدة المتبقية" & " " & Ndate & " " & "يوم"
MsgBox mssg
DoCmd.Close
End If
End Sub

 

أخي بارك الله فيك

كود رائع ولكن تبقى مشكلة ان المستخدم اذا قام بتغيير وقت الجهاز سيعمل البرنامج

قام بنشر

 


Private Sub Form_Load()
Dim xdate As Date
Dim Ndate As String
Dim mssg As String
xdate = #12/23/2014#
If xdate <= Date Then
MsgBox "انتهت الفترة التجريبية فضلا اتصل على 123456789"
Quit
Else
Ndate = CStr(xdate - Date)
mssg = "المدة المتبقية" & " " & Ndate & " " & "يوم"
MsgBox mssg
DoCmd.Close
End If
End Sub

 

السلام عليكم استاذ ابو خليل أين يوضع الكود

قام بنشر

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

وهذا كود اخر لا علاقه له بالتاريخ , وانما يعتمد على عدد مرات فتح البرنامج وبعد انتهاء العدد المسموح به تخرج رساله تنبهك بشراء البرنامج . 

بالضبط كالبرامج التي تباع بالانترنيت تستطيع فتحها لمدة مرتين فقط . 

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

Private Sub Form_Current()
retvalue = GetSetting("A", "0", "Runcount")
GD$ = Val(retvalue) + 1
SaveSetting "A", "0", "RunCount", GD$
If GD$ > 100 Then
MsgBox ("انتهت مدة تشغيل البرنامج عليك بشراء البرنامج او الاتصال بالمطور"), , ("AZHAR ALIraqy")
DoCmd.Quit
End If

End Sub

  • Like 1
  • Thanks 1
قام بنشر

 

السلام عليكم استاذ ابو خليل أين يوضع الكود

 

 

 كما هو ظاهر يوضع  في حدث  عند تحميل النموذج  ( نموذج بداية التشغيل )

  • 3 weeks later...
قام بنشر

السلام عليكم 

اريد انه لما تنتهي الصلاحية او قبل و لما نضغط على زر اخر يستدعي فورم اخر لتسجيل النسخة ما هو الكود  شكر azhar

  • 1 year later...
  • 6 months later...
  • 2 years later...
قام بنشر

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

  • 8 months later...
قام بنشر

اخي الكريم يوضع الكود كاملاً في النموذج = حدث في الحالي

 

الكود فقط



retvalue = GetSetting("A", "0", "Runcount")
GD$ = Val(retvalue) + 1
SaveSetting "A", "0", "RunCount", GD$
If GD$ > 100 Then
MsgBox ("انتهت مدة تشغيل البرنامج عليك بشراء البرنامج او الاتصال بالمطور"), , ("AZHAR ALIraqy")
DoCmd.Quit
End If

الحدث فقط


Private Sub Form_Current()
' هنا يتم كتابة الاكود

End Sub

تحياتي

  • تمت الإجابة
قام بنشر

عطل السطر الثاني هكذا

Option Compare Database
'Option Explicit

Private Sub Form_Current()
retvalue = GetSetting("A", "0", "Runcount")
GD$ = Val(retvalue) + 1
SaveSetting "A", "0", "RunCount", GD$
If GD$ > 100 Then
MsgBox ("انتهت مدة تشغيل البرنامج عليك بشراء البرنامج او الاتصال بالمطور"), , ("AZHAR ALIraqy")
DoCmd.Quit
End If

End Sub

تحياتي

  • Like 2

انشئ حساب جديد او قم بتسجيل دخولك لتتمكن من اضافه تعليق جديد

يجب ان تكون عضوا لدينا لتتمكن من التعليق

انشئ حساب جديد

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

سجل حساب جديد

تسجيل دخول

هل تمتلك حساب بالفعل ؟ سجل دخولك من هنا.

سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information