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

رفع

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

اخي sweety78

اي مثال مشابه يفي بالغرض

بالنموذج الرئيسي - الذي يفتح عند بداية البرنامج - ضع هذا الكود عند الفتح

'If Dir("c:\csq.386") = "" Then
'DoCmd.CancelEvent
'DoCmd.Quit
'End If

لزراعة الملف - نتبع الاتي :

من START - اختار Programs ثم Accessories ثم C:\Acommand Prompt ، حسب الصورة

ثم بالضغط علي C:\Acommand Prompt تفتح شاشة سوداء اكتب فيها C:\>EDIT CSQ.386 ، حسب الصورة

ثم انتر فتظهر لك شاشة زرقاء اكتب فيها 2001.125 - مش عارف ليه - ، حسب الصورة

ثم اختارSAVE من FILE - ثم اختار EXIT من FILE فترجع للشاشة السواء اكتب فيها EXIT ، حسب الصورة

ثم انتر فيتم الاغلاق والخروج ، خلاص

الان عندما تريد ان تفتح النموذج اذا لم يجد الملف - الذى تم زرعة - لن يفتح

ارجو التجربة واخبارنا

بالتوفيق

استاذي الكريم المحاسب الجديد

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

بالفعل الكود رائع وبسيط ويفي بالغرض

استفسار لمن يمتلك المعلومة

من خلال متابعاتي لبعض المواضيع في المنتدى... اتضح لي ان هناك بعض الاختلافات بين الاصدارين من اكسس 2003 و 2007.

هل هذا الكود يعمل على الاصدارات : 2003 و 2007 و 2010؟

مع خالص تحيااااتي

عزيزي..

جربت كلا المثالين 2007 و 2003 وعمل الكود 2007 تماما في بيئة اوفيس 2010 ومن اجلك عزيزي جربته على 3 اجهزة كل جهاز به نسخة مختلفة

تكمن القصة في ان الكود في البرنامج 2003 يختلف عن الكود في 2007 لان 2007 لا يتعامل مع دالة FileSearch

كالتالي..

كود 2007

Public Sub legal()
Dim Sec As String

Dim s As Integer
DoCmd.Restore
Sec = Dir("c:\Windows\System32\ss.txt")
If Len(Sec) = 0 Then
DoCmd.Close
s = MsgBox("Êã äÓÎ Ãæ ÊæÒíÚ åÐÇ ÇáÈÑäÇãÌ ÈÕæÑÉ ÛíÑ ÞÇäæäíÉ" & vbCrLf & " ÇÊÕá ÈÇáãÈÑãÌ: åãÇã ãÍãÏ ÃÈæÚÑÞæÈ ÝÞØ" & vbCrLf & " :ááÍÕæá Úáì äÓÎÊß ÇáÞÇäæäíÉ ãä ÇáÈÑäÇãÌ ÇÊÕá Úáì" & vbCrLf & "0599-870-264", vbCritical + vbMsgBoxRight, "ÊÍÐíÑ ÞÇäæäí")
 DoCmd.Quit
End If
End Sub

كود 2003

Public Sub legal()
Dim s As Integer

DoCmd.Restore

With Application.FileSearch
.NewSearch
.LookIn = "D:\WINDOWS\"
.LookIn = "C:\WINDOWS\"
.fileName = "Security.txt"
.SearchSubFolders = False
.Execute
If .FoundFiles.Count = 0 Then

  DoCmd.Close
  s = MsgBox("Êã äÓÎ Ãæ ÊæÒíÚ åÐÇ ÇáÈÑäÇãÌ ÈÕæÑÉ ÛíÑ ÞÇäæäíÉ" & vbCrLf & " ÇÊÕá ÈÇáãÈÑãÌ: åãÇã ãÍãÏ ÃÈæÚÑÞæÈ ÝÞØ" & vbCrLf & " :ááÍÕæá Úáì äÓÎÊß ÇáÞÇäæäíÉ ãä ÇáÈÑäÇãÌ ÇÊÕá Úáì" & vbCrLf & "0599-الفريق العربي للبرمجة", vbCritical + vbMsgBoxRight, "ÊÍÐíÑ ÞÇäæäí")
  DoCmd.Quit

 End If

End With
End Sub

لاحظ الفرق....في 2007 كود 2003 يعطي خطا... اما في 2010 فيعمل فقط 2007 ...

السلام عليكم

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

اقدر جهدك وجهد الاعضاء الكرام

مع جزيل شكري وخالص تحيااااتي