فتح نموذج

[jo_2010]

الخبراء الافاضل بعد التحية

مرفق نموذج للتعديل مع صورة للمطلوب

JO.accdb

[Eng.Qassim]

السلام عليكم .. هل هذا ماتقصده

 

JO.rar

[jo_2010]

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

[jjafferr]

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

 

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

ثم لتجربة عمل البرنامج ، اعطي قيمة الحقل Serial للحقل key كما هو في الكود التالي ،

وهنا ستحصل على النتيجة الصحيحة 🙂

Private Sub Form_Load()
SerialNumber = CreateObject("Scripting.FileSystemObject").GetDrive("C:\").SerialNumber

    'Me.KEY = ([SerialNumber] - 28170) * 2
    Me.KEY = "-3121277418"

    If Me.Serial = Me.KEY Then

        DoCmd.Close
        DoCmd.OpenForm "password"

    Else
        MsgBox "يجـب  عليـك  تفعيـل  البرنـامـج  بطريقـة  صحيحــة"

    End If

End Sub

 

جعفر

[jo_2010]

استاذى ومعلمى الجليل jjafferr

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

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

 Me.KEY = "-3121277418"

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

JO.accdb

 

تم تعديل يوليو 14, 2021 بواسطه jo_2010

[jjafferr]

2 ساعات مضت, jo_2010 said:

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

انا قلت:

6 ساعات مضت, jjafferr said:

ثم لتجربة عمل البرنامج ، اعطي قيمة الحقل Serial للحقل key كما هو في الكود التالي

 

 

طيب طريقة ثانية للتحقق من طلبك ، جرب :

.

جعفر

[jo_2010]

استاذى ومعلمى الجليل jjafferr

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

[مسفر]

مشاركة معي معلمي جعفر 

جرب هذا على أي جهاز واخبرني بالنتيجة 

Activate.rar

[jo_2010]

استاذنا الخبير الفاضل مسفر

خالص الشكر اكثر من توقعاتى

 

[مسفر]

تحت امرك عزيزي وجميعنا نتعلم من بعضنا البعض 

جرب على عدة أجهزة سيعمل معك حسب الرقم المعطى لك 

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