هل استطيع جعل قاعدة البيانات تتوقف عن العمل بعدة فترة زمنية انا احددها

[ابو ياسين المشولي]

احب اشارك معكم 

وهذة طريقه

في حدث عند الفتح

On Error Resume Next
Dim x As String
If date > #6/6/2018# Then
x = MsgBox(" تـم انـتـهـاء فـــــــــــترة الـصـلاحــيـة للـبـرنـامـج الـرجـاء الاتـصـال بـالـمـصـمـم", vbInformation, " انـتـهـاء فـــــــــــترة الـبـرنـامـج")
DoCmd.Quit
Else
x = MsgBox(" الـفـتـرة الـمـتـبـقـي " & Str(#6/6/2018# - date) & "  يـوم    هـل تـريـد الاسـتـمـرار", vbYesNo, " الـفـتـرة الـمـتـبـقـي عـلـى الـبـرنامـج ")
If x = vbNo Then
 DoCmd.Quit
End If
End If

 

تم تعديل يونيو 5, 2018 بواسطه ابو ياسين المشولي

[عبد اللطيف سلوم]

السلام عليكم 

حصلت على حل لموضوع مفتاح الشفت 

الشكر لله اولا ثم لصديقي المهندس هاني مجدي / مصر

الرقم السري 0000

بعد تحميل الملف تدخل عليه بواسطة مفتاح الشفت

بدحل الرقم السري 0000

ثم تنسخ المديوول والنموذج وتنقلهم على برنامجك

وتفعل خيار الغاء مفتاح الشفت 

انا جربتها وزبطت 

هيك لا احد يستطيع التعديل على شغلك الا اذا عر ف الرقم السري 

الغاء الشفت.accdb

55 دقائق مضت, ابو ياسين المشولي said:

احب اشارك معكم 

وهذة طريقه

في حدث عند الفتح

On Error Resume Next
If Date > #10/23/2018# Then
x = MsgBox(" تـم انـتـهـاء فـــــــــــترة الـصـلاحــيـة للـبـرنـامـج الـرجـاء الاتـصـال بـالـمـصـمـم", vbInformation, " انـتـهـاء فـــــــــــترة الـبـرنـامـج")
DoCmd.Quit
Else
x = MsgBox(" الـفـتـرة الـمـتـبـقـي " & Str(#6/11/2018# - Date) & "  يـوم    هـل تـريـد الاسـتـمـرار", vbYesNo, " الـفـتـرة الـمـتـبـقـي عـلـى الـبـرنامـج ")
If x = vbNo Then
 DoCmd.Quit
End If
End If

 

اذا تاريخ اليوم 5/6/2018 واريد اعطاءه ثلاث ايام فقط 

كيف تصبح التواريخ في المثال اعلاه ؟؟

في ٤‏/٦‏/٢٠١٨ at 17:34, محمد سلامة said:

اخي الكريم هل لديك مثال عملي علي ذلك؟ 

وهنا اقصد اغلاق الشيفت بكلمة مرور 

شوف اخر مشاركة 

 

تم تعديل يونيو 5, 2018 بواسطه عبد اللطيف سلوم
اضافة معلومات

[ابو ياسين المشولي]

20 دقائق مضت, عبد اللطيف سلوم said:

 

اذا تاريخ اليوم 5/6/2018 واريد اعطاءه ثلاث ايام فقط 

كيف تصبح التواريخ في المثال اعلاه ؟؟

On Error Resume Next
Dim x As String
If date > #6/6/2018# Then
x = MsgBox(" تـم انـتـهـاء فـــــــــــترة الـصـلاحــيـة للـبـرنـامـج الـرجـاء الاتـصـال بـالـمـصـمـم", vbInformation, " انـتـهـاء فـــــــــــترة الـبـرنـامـج")
DoCmd.Quit
Else
x = MsgBox(" الـفـتـرة الـمـتـبـقـي " & Str(#6/22/2018# - date) & "  يـوم    هـل تـريـد الاسـتـمـرار", vbYesNo, " الـفـتـرة الـمـتـبـقـي عـلـى الـبـرنامـج ")
If x = vbNo Then
 DoCmd.Quit
End If
End If
شوف اخر مشاركة 

هكذا يعطيك 17 يوم

وانت غير التاريخ كما تشاء

 

تم تعديل يونيو 5, 2018 بواسطه ابو ياسين المشولي

[Barna]

أخي @عبد اللطيف سلوم جربت المثال مغ برامج الغاء الشفت عمل من دون كلمة السر

أخي @ابو ياسين المشولي كيف العمل لو المستخدم تلاعب بتاريخ الجهاز 

[عبد اللطيف سلوم]

1 دقيقه مضت, Barna said:

أخي @عبد اللطيف سلوم جربت المثال مغ برامج الغاء الشفت عمل من دون كلمة السر

أخي @ابو ياسين المشولي كيف العمل لو المستخدم تلاعب بتاريخ الجهاز 

يمكن انا خربطت ورفعته بدون كلمة سر

5 دقائق مضت, ابو ياسين المشولي said:

 

طيب اذا تلاعب بتاريخ الكمبيوتر هل يستطيع ان يخدع هذا الكود ؟؟

8 دقائق مضت, ابو ياسين المشولي said:

 

طيب اذا تلاعب بتاريخ الكمبيوتر وقام بارجاعه هل يستطيع ان يخدع هذا الكود ؟؟

[Barna]

أخي @عبد اللطيف سلوم أقصد ارجاع تاريخ الجهاز الى 

6/6/2018

 

[عبد اللطيف سلوم]

1 دقيقه مضت, Barna said:

أخي @عبد اللطيف سلوم أقصد ارجاع تاريخ الجهاز الى 

6/6/2018

 

اخي @Barna

مش فاهم عليك ؟؟

[Barna]

8 دقائق مضت, عبد اللطيف سلوم said:

 

طيب اذا تلاعب بتاريخ الكمبيوتر هل يستطيع ان يخدع هذا الكود ؟؟

 

نعم للاسف يمكن خداع الكود ......

[عبد اللطيف سلوم]

1 دقيقه مضت, Barna said:

نعم للاسف يمكن خداع الكود ......

هيك ما زبطت 

بدنا طريقة ما تتأثر بالتاريخ 

مثلا تشغيل البرنامج 10 مرات 

حتى لو بنفس اليوم بعد فتحه عشر مرات يوقف عن العمل 

[kanory]

في ٤‏/٦‏/٢٠١٨ at 03:49, kanory said:

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

 

وفي الاكسس عموما ليست هناك حماية مطلقة ... ولكن نضع عقبات عديدة لمنع النسخ أو الاطلاع على البيانات الموجودة بها فمثلا :للتعداد وليس الحصر :

 

 

هذه الخلاصة ..... لكن أعتقد أني شاهدت مثال للسيد جعفر حول حماية البرنامج بالتاريخ وحتى لو قام المستخدم بالتلاعب بالتاريخ يستطيع البرنامج اكتشافة

[kanory]

أخي @عبد اللطيف سلوم وجدت مثالا أكوادة مأخوذه من مثال أخي جعفر والله أعلم ... 

البرنامج مفعل حسب الكود ليومين ... حاول ارجاع أو زيادة تاريخ جهازك وشاهد..

 

Database.mdb

[عبد اللطيف سلوم]

58 دقائق مضت, kanory said:

أخي @عبد اللطيف سلوم وجدت مثالا أكوادة مأخوذه من مثال أخي جعفر والله أعلم ... 

البرنامج مفعل حسب الكود ليومين ... حاول ارجاع أو زيادة تاريخ جهازك وشاهد..

 

Database.mdb

للاسف صديقي 

يتم خداع الكود عند ارجاع التاريخ

وعدني احد الاصدقاء ان يزودني بطريقة اخرى

تعتمد على عدد مرات فتح البرنامج 

هيك اضمن 

[kanory]

معليش اخي ... قم بتجربة البرنامج مرة اخرى ... وارجع التاريخ ... هناك لبس في الموضوع

[عبد اللطيف سلوم]

ان شاء الله

[kanory]

أخي أشكرك لسعة صدرك