Aliko

تحياتي لك استاذ شفان على المجهود 

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

مشكور على سعة صدرك 

اخوك 

علي

On 6/11/2017 at 2:23 AM, Shivan Rekany said:

ارفق نسخة مصغرة من قاعدتک لعمل علیها

م.2018.شفان ريكاني

 @Shivan Rekanyمن رخصتك اخي شيفان 

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

لكن اذا تقدر تعدل على هذا الش البسيط

مثال اخفاء شاشة الاكسس.rar

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

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

سؤال لدي احاول ان افهم كود الحماية فوصلت الى ان اتعرف الى عدد من الرموز داخل المعادله ماذا يعني لنا 

aa3 

كما موضح بالصوره المرفقه ؟

شكرا جزيلا

On 3/29/2017 at 5:33 PM, Shivan Rekany said:

* ملحوظة : انا خذت الكود في موقع اجنبي 

في البداية اريد اقول سنحتاج مكتبة Microsoft WMI Scripting v2.1 library

الصق هذا الكود في وحدة نمطية

Option Compare Database
Option Explicit
Const Arr = 2
Public Function GetPcSnCpuAndMotherboard()
' Microsoft WMI Scripting v2.1 library ستحتاج مكتبة
DoCmd.Hourglass True
  Dim SWbemSet(Arr) As SWbemObjectSet
  Dim SWbemObj As SWbemObject
  Dim varObjectToId(Arr) As String
  Dim varSerial(Arr) As String
  Dim i, j As Integer
  Dim fld As String
  
  On Error Resume Next
  varObjectToId(1) = "Win32_BaseBoard,SerialNumber"
  varObjectToId(2) = "Win32_Processor,ProcessorId"
  For i = 1 To Arr
    Set SWbemSet(i) = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf(Split(varObjectToId(i), ",")(0))
    varSerial(i) = ""
    For Each SWbemObj In SWbemSet(i)
      varSerial(i) = SWbemObj.Properties_(Split(varObjectToId(i), ",")(1)) 'Property value
      varSerial(i) = Trim(varSerial(i))
      If Len(varSerial(i)) < 1 Then varSerial(i) = "Unknown value"
    Next
        fld = "Text" & i
        Forms("FORM2")(fld) = varSerial(i) ' غير اسم فورم 2 الى اسم الفورم عندك
  Next
  DoCmd.Hourglass False
End Function

وفي النموذج في اي حدث تريد 
مثلا عند تحميل او عند الضغط على كليك مثلا 
اكتب في محرر فيجوال هذا

Call GetPcSnCpuAndMotherboard

ويجب ان يكون عندك مربعين نصيين واسمهما بيكون text1 والاخر بيكون text2 على الرغم اننا نكدر نغيره الى مانريد في وحده‌ نمطية

===============

واذا تريد ان توصل الى احد من سريالات وبدون استخدام وحدة النمطية
اليك هذا
 

Private Sub Form_Load()
' Microsoft WMI Scripting v2.1 library ستحتاج مكتبة
  Dim varObjectToId As String
  Dim varSerial As String
  On Error Resume Next
  varObjectToId = "Win32_BaseBoard,SerialNumber"
' اذا تريد ان تبحث عن معالج اكتب الصدر الادناه بدل السطر اعلاه
  'varObjectToId = "Win32_Processor,ProcessorId"
    Set SWbemSet = GetObject("winmgmts:{impersonationLevel=impersonate}").InstancesOf(Split(varObjectToId, ",")(0))
    varSerial = ""
    For Each SWbemObj In SWbemSet
      varSerial = SWbemObj.Properties_(Split(varObjectToId, ",")(1))
      varSerial = Trim(varSerial)
      If Len(varSerial) < 1 Then varSerial = "Unknown value"
    Next
             Me.Text1 = varSerial
End Sub

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

 

لمعرفة سريال نمبر المعالج واللوحة الأم.rar

استاذ شفان @Shivan Rekany تحياتي لك والله ابداع الله يحفظك

سؤال هل يمكن ان احصل على رقم المذربورد فقط من دون حروف انكليزية  ؟

Just now, محمد احمد لطفى said:

لا أجدها بتاتا

يجب ان تفتح قاعدة البيانات بوضع التصميم اخي

22 hours ago, صالح حمادي said:

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

تقبل الله منا و منكم الصلاة و الصيام و القيام

إخوتي في هذا المنتدى الغالي آسف جدا لتأخري في الرد لكثرة إنشغالاتي هذه الفترة من مرض الوالد إلى ضغط العمل المهم:

لقد قمت بإضافة الملاحظات التي أشار إليها الإخوة إلى البرنامج و هي كالتالي:

1- ملاحظة الأستاذ @Shivan Rekany التي تخص مشكلة تقديم التاريخ قمت بالتعديل على المرفق بحيث إذا كانت المدة بين تاريخ اليوم و آخر إستعمال للبرنامج أكبر من 7 أيام يظهر البرنامج رسالة للتأكد من أن تاريخ الجهاز صحيح.

2- ملاحظة الأستاذ @sandanet التي تخص عدم التفعيل إذا كان البرنامج مفعل. الآن أصبح البرنامج يرفض التفعيل إذا كانت المدة المتبقية أكبر من 15 يوما.

3- ملاحظة الأخ @Aliko في ما يخص استعمال رقم الهارديسك. رقم النسخة الآن غير ثابت فهو يتغير من جهاز إلى آخر حسب رقم الهارديسك.

و هذا هو المرفق:‫‫فترة تجريبية2003.rar

‫‫فترة تجريبية.rar

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

حذف المجلدات من الرجستري.rar

 

 

أهلين أخي ابا جودى تقبل الله صيامك

لا يتم تفعيل النسخة بنفس الرقم السابق جرب المرفق الأخير

نعم. و  سوف أعدل على الكود في الأيام القادمة إن وجدت بعض الوقت من أجل أن يبقى التفعيل صالحا حتى بعد الفورمات إن شاء الله

 

لاحظ الكود الموجود في المرفق فأنا استعملت نفس الكود

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

جاري التجربه على الخير ان شاء الله 

شكرا لاستجابتك استاذي الفاضل

2 hours ago, Shivan Rekany said:

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

م.2017.شفان ريكاني

 بالنسبة للكود الاول حاول ان تراه بعينك استاذ شفان وتشاهد ماذا يحدث للتقارير والاستعلامات 

ففي الكود الاول عند وضع 

HideAccess 

فان جميع الاستعلامات والتقارير لاتعمل وعملت كل ما اوصيت به ولكن نفس النتيجه ضهرت لدي 

شكرا لمجهودك الرائع استاذ @Shivan Rekany

 وسأحاول ان ابحث عن طريقه اخرى 

كل التقدير والاحترام لك وللاستاذ ابو خليل 

اخوكم 

علي

On 5/29/2017 at 3:13 AM, محمد احمد لطفى said:

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

test200.rar

من الفايل ثم اوبشن ثم انقر على قاعدة البيانات الحالية في تظهر لك صفحه فيها مستطيلين في الاول اسم قاعدة البيانات ثم في الثاني صوره لها 

تحياتي لك

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

 لدي قاعدة  بيانات وبعد البحث داخل المنتدى ومساعدة البعض بطريقه جميله اعجبتني وهي ان نتائج البحث تظهر بنفس داخل النموذج هل توجد اي طريقه مضبوطه ان اعمل فلتره بين تاريخين او اترك هذا الموضوع لان النموذج الذي عملته مسبقا توجد فيه عدة اخطاء من اهمها انه يشابه بينالتواريخ ويخلط بين السهر واليوم بعض الاحيان ماهو الحل اساتذتي ؟

شكرا جزيلا مقدما لجميع المهتمين

اخوكم 

علي

21 hours ago, Shivan Rekany said:

استأذن من استاذنا ابوخليل

اليك هذا الرابط

م.2008.شفان ريكاني

في اي حل حتى اقدر ان اظهر الاستعلام استاذ @Shivan Rekany ؟ او ما رأيك هل توجد طريقة اخرى ؟

تحياتي لك ولاستاذ ابو خليل

12 hours ago, Shivan Rekany said:

استأذن من استاذنا ابوخليل

اليك هذا الرابط

م.2008.شفان ريكاني

تحياتي وامتناني لك استاذ شفان 

عندي هذه المعلومه وقمت بتجربتها والحمد لله تجاوزت عقبة عدم ظهور التقارير, ولكن المشكلة الان في الاستعلام حسب معلوماتي لايمكن وضعها منبثقه او مشروطه ماهو الحل برأيك 

شكرا جزيلا لردك حبيبي

On 9/24/2014 at 10:56 PM, ابوخليل said:

الصق هذا السطر في حدث فتح نموذج البداية

DoCmd.RunCommand acCmdAppMinimize

تحياتي لك استاذ @ابوخليل

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

On 6/5/2017 at 11:37 PM, Shivan Rekany said:

اولا تأكد من كود زر الاغلاق النموذج
هناك احتمال ان تستخدم كود اغلاق النموذج بدل اغلاق القاعدة

تأكدت من اكواد الاغلاق كلها تمام

بالاضافة لهذه المشكلة لاحظت بعد تطبيق هذا الكود التقارير لا تفتح معي ولا الاستعلامات ايضا وحين النقر على اي مفتاح تقرير او استعلام تبقى الفورم جامده ولا تستجيب للنقر ويبقى البرنامج مفتوح في الذاكره ماهو الحل الانسب ؟

On 6/6/2017 at 5:21 AM, عبدالرحمن هاشم said:

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

ضع مثال ليرى أساتذتنا الكرام سبب ذلك في الكود

 

تحياتي لك استاذي الفاضل 

ان شاء الله سأرفق مثال في حال استعصت الامور من الحل 

كل الشكر لك ولمرورك الفاضل

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

تحياتي

 اساتاذتي  @صالح حمادي @Shivan Rekany  في حال اردت ان ادخل كود الهارد ديسك فما هي الطريقة من فضلك 

هذا ماوجدته حول استخراج رقم الهارديسك 

 لمعرفة السيريال نمبر الخاص بالهاردسك 
 Dim obj_FSO As Object, obj_Drive As Object
 Set obj_FSO = CreateObject("Scripting.FileSystemObject")
 Set obj_Drive = obj_FSO.GetDrive("c:\")
 'MsgBox obj_Drive.SerialNumber
  SerialNumber = obj_Drive.SerialNumber
 Set obj_FSO = Nothing
 Set obj_Drive = Nothing
End Sub

تحياتي لكم جميعا 

1 hour ago, Shivan Rekany said:

اولا تأكد من كود زر الاغلاق النموذج
هناك احتمال ان تستخدم كود اغلاق النموذج بدل اغلاق القاعدة

شكرا جزيلا لردك اخي الفاضل 

جاري التجربة ,,,

1 minute ago, Amr Ashraf said:

لا ملوش علاقة بمشكلتك المشكلة من الاخفاء

ممكن تجربه عليه وتعطيني رأيك فيه لانه اول ما اشتغلت عليه حدثت معي نفس المشكله وعملت ريستارت للحاسوب وبعدها رجعت شغلت البرنامج من جديد ؟

On 6/2/2017 at 3:09 AM, sandanet said:

تفضل المرفق التالي .. تم اضافة ملف توليد مفتاح التسجيل 

حماية البرنامج عن طريق رقم الهارد والمعالج واللوحة الأم_في حال نقص احدى القطع فان البرنامج يستمر بالعمل.zip

هذا برنامج الحماية والاكواد كامله

4 minutes ago, Amr Ashraf said:

اضغط كليك يمين على شريط المهام اللى فى الاسفل واختار Task Manager وادخل على Processes وهات MS Access واضغط End Process وافتحه تانى هيفتح معاك

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

 

بشكرك على استجابتك لسؤالي 

يعني المشكلة من هذا الكود او من كود الحماية ممكن يعني ؟

سأحاول ان اغيره

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

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

اخوكم 

علي

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

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

اخوكم 

علي

On 6/2/2017 at 0:08 PM, صالح حمادي said:

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

إخوتي الكرام حياكم الله و تقبل الله منا و منكم الصيامكم و القيام

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

خصائص البرنامج:

1- يكتشف إرجاع التاريخ

2- حتى لونزلت نسخة ثانية بعد إنتهاء التفعيل أو إنتهاء النسخة التجريبية فلن تعمل لأن الحماية مخزنة بالرجستري

3- رقم التفعيل يتغير من يوم إلى آخر حسب التاريخ

4- تستطيع تفعيل البرنامج  بعد إنتهاء التفعيل بنفس النسخة

5- يحذف البرنامج الجدول الذي به رقم النسخة و كود الحماية مباشرة بعد أول تشغيل

6- يعطيك في أول تشغيل فترة تجريبية تحددها انت كما تشاء

7- رقم التفعيل مخبأة في مكان بالرجستري لا يمكن الحصول عليه

هذا هو المرفق و أتمنى من الأعضاء أن يقوموا بتجربة المرفق و إعطائنا النتائج و من بعدها نقوم بشرح أكواد البرنامج:

 

 

فترة تجريبية1.rar

استاذ @صالح حمادي اشكرك على ردك اخي الفاضل 

ولكني لست ذو خبره قوية جدا بحيث استطيع ان اضع كود رقم الهارد ديسك بدل رقم النسخة الثابت الموجود ضمن برنامج الحماية الخاص بحضرتك 

كل اللي تمكنت من الحصول عليه هو هذا الكود ولكن لا اعلم ان كان صحيح ام لا 

' لمعرفة السيريال نمبر الخاص بالهاردسك 
 Dim obj_FSO As Object, obj_Drive As Object
 Set obj_FSO = CreateObject("Scripting.FileSystemObject")
 Set obj_Drive = obj_FSO.GetDrive("c:\")
 'MsgBox obj_Drive.SerialNumber
  SerialNumber = obj_Drive.SerialNumber
 Set obj_FSO = Nothing
 Set obj_Drive = Nothing
End Sub

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

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

تحياتي لكم جميعاً اخواني 

5 hours ago, Shivan Rekany said:

اذا تريد اخفاء الشاشة اكتب في نموذج البداية فقط

 

دمت فخرا 

شكرا لردك 

تمت التجربه 

جميل جداً

3 hours ago, Shivan Rekany said:

 

استأذن من استاذنا وصديقنا الحبيب @صالح حمادي 

ما تقدرون ان تتم التفعيل في يوم اخر لان بمرور كل يوم سيتغير رقم التسجيل لان العملية رقم التسجيل مربوطة بتاريخ
ولا تنسون ان الجزء الثاني اي الملف اللي اسمه برامج التفعيل لا يجوز ان يكون بين يدي المستخدم بل سيكون محفوظة عند المبرمج فقط 

هذا والله يعلم

استاذ شيفان العزيز

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

تحياتي لك 

3 hours ago, صالح حمادي said:

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

 تحياتي لك استاذي الفاضل   

نسأل الله الصحة والعافية لك ولوالدك

كيف يمكنني ذلك اخي الفاضل انا جديد على برنامج الاكسس ؟

طريقة حماية رائعه بحق ولكن ينقصها كيفية عمل رقم اللوحة الام لان في رقم الهاردديسك يتشابه حسب ماقرأت في بعض الاسئله ؟

 هل يمكنك شرح الطريقه ببساطه 

عن طريق اللوحة الام او الهاردديسك .

تحياتي لك 

8 hours ago, دهوكى said:

جزاك الله خيرا فكرة جميلة فعلا ,ولكن اذا ما حصل اي شيء للفلاشة فرضا اتلفت بسبب او فقدت ماذا يحصل عندها؟

6 hours ago, عبد الله قدور said:

السلام عليكم

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

 

اتقصد ان اقو بإستيراد فورم ال hi لقاعدة بياناتي 

ام اجعلها هي الاولى ....

سؤال رائع نبهتنا عليه اخي دهوكي 

في هذه الحاله يحتاج العميل الى عمل نسخة احتياطية على الحاسوب كي يتم حفظ البيانات المدخله ؟ ماهي افضل طريقة برأيك استاذ عبد الله ؟

تحياتي وشكرا لردك