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

[ابو عبد الرحمن اشرف]

اخواني الاحباء

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

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

والذي اريده هو ان تعمل تلك القاعدة على جهازين مختلفين فيكون الحدث رقم كذا او كذا فهل هذا ممكن ؟!

وهذا سطر الحدث المذكور فيه الرقم

'If Hex$(GetSerialNumber(Drive)) <> "48f63d0f" Then

ارجو الافاده اخواني

[ابو عبد الرحمن اشرف]

اخواني الاحباء

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

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

[ابوخليل]

عجيب ! انت تضع رقم القرص الصلب بنفسك ، والمتبع ان أكسس هو من يستخرج هذا الرقم

ولاجابتك حسب سؤالك سيكون الامر هكذا ى:

'

If Hex$(GetSerialNumber(Drive)) <> "48f63d0f" OR  "00000000" Then

وان اردت اشمل من ذلك ففي هذا الموضوع مثال للتوضيح

http://www.officena....showtopic=29928

[ابو عبد الرحمن اشرف]

اخي الحبيب

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

انا اولا شاكر لحضرتك اهتمامك وردك على سؤالى

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

ثالثا الامر اللي حضرتك ذكرته اعطاني رسالة الخطأ التالية

ren_time error 13

type mismatch

اخي الغالي

البرنامج يعمل عليه 2 مستخدمين احدهما مكمل للاخر ويريد من حين لاخر نسخ البرنامج من جهازه الى جهاز الاخر فلذلك احتجت الى مثل هذا الامر

فما السبيل

وجزاك الله كل خير وكل عام وانتم جميعا بالف خير وصحه وسعاده

[ابو عبد الرحمن اشرف]

وهذا هو الملف اخي الفاضل

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

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

تم تعديل نوفمبر 10, 2011 بواسطه شبوكشي

[ابوخليل]

كلامك مقبول

لكن نفرض ان العميل في بلد آخر وسترسل البرنامج عبر الايميل وبرنامجك محمي ؟

واعذرني كان الكود ناقصا شيئا ما وهذا هو التصحيح :

جرب ووافني بالنتيجة

 

If Hex$(GetSerialNumber(Drive)) <> "48f63d0f" Or Hex$(GetSerialNumber(Drive)) <> "f034ad8b" Then

[ابو عبد الرحمن اشرف]

اخي الفاضل الكريم ابو خليل

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

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

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

مع العلم ان الاوفيس عندي على d وليس c

والى حضرتك صورة رسالة الخطأ مرفقة بالمشاركة

فالان اريد فضلا وتكرما منك اخي لا امرا

حل بالمعادلة الاولي في قاعدة اف

حل في برنامج الحماية الخاص بحضرتك

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

[ابوخليل]

موقع الاوفيس ليس له تأثير

وواضح انك لا تكتب اسم القرص ضمن الكود فهذه الكلمة بين القوسين (Drive) يكتب بدلها القرص المراد اظهار رقمه ليصبح الكود هكذا :

 

If Hex$(GetSerialNumber("c:\")) <> "E4C09E1F" Or Hex$(GetSerialNumber("c:\")) <> "E4C09E1F" Then

[ابو عبد الرحمن اشرف]

اخي الكريم

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

للاسف اخي لم يفلح هذا الامر ايضا

واعتذر منك لكثرة طلباتي اخي الحبيب

فهل من سبيل اخر

[ابوخليل]

لا ادري ما تقصد بقولك لم يفلح

هذا كودك الذي ارفقت

انظر المثال المرفق فهو يستخرج رقم الهارد

db12.rar

[ابو عبد الرحمن اشرف]

اخي الحبيب اقصد ان الامر الاخير وهو

If Hex$(GetSerialNumber("c:\")) <> "E4C09E1F" Or Hex$(GetSerialNumber("c:\")) <> "E4C09E1F" Then

لم يفلح ايضا

هذا ما قصدت اخي

مع العلم ان الاوفيس عندي 2003

[ابو عبد الرحمن اشرف]

اخي الفاضل الكريم ابو خليل

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

لله الحمد والمنه تم عمل الشرط ممتاز بالصيغة الآتية اخي

If (Hex$(GetSerialNumber(Drive)) <> "48f63d0f") And (Hex$(GetSerialNumber(Drive)) <> "111111") Then

تم تعديل نوفمبر 14, 2011 بواسطه شبوكشي

[ابوخليل]

هذا من فضل الله عليك ان وفقك فحمدا له وشكرا

[ابو عبد الرحمن اشرف]

نعم اخي ومن فضل الله علىًّ ايضا ان وفقني للتعرف على منتداكم الغالي هذا والاهم انتم ايها المراقبون والاداريون ، فاسال الله ان يجمعنا في ظله يوم لا ظل الا ظله يوم القيامه والى اللقاء في سؤال جديد والسلام عليكم ورحمة الله وبركاته

[ابو عبد الرحمن اشرف]

اخي الفاضل / ابو خليل

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

بالنسبة لسطر الامر هذا

If (Hex$(GetSerialNumber(Drive)) <> "48f63d0f") And (Hex$(GetSerialNumber(Drive)) <> "4ca3c5e7") And (Hex$(GetSerialNumber(Drive)) <> "38e7cbeb") And (Hex$(GetSerialNumber(Drive)) <> "98afd007") And (Hex$(GetSerialNumber(Drive)) <> "8c0b76a2") Then

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

هل من طريقة لجعل السطر يكون على سطرين او ثلاث

لاني حاولت وفشلت ويعطيني الرسالة الاتية

[ابو عبد الرحمن اشرف]

اخي الفاضل / ابو خليل

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

بالنسبة لسطر الامر هذا

If (Hex$(GetSerialNumber(Drive)) <> "48f63d0f") And (Hex$(GetSerialNumber(Drive)) <> "4ca3c5e7") And (Hex$(GetSerialNumber(Drive)) <> "38e7cbeb") And (Hex$(GetSerialNumber(Drive)) <> "98afd007") And (Hex$(GetSerialNumber(Drive)) <> "8c0b76a2") Then

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

هل من طريقة لجعل السطر يكون على سطرين او ثلاث

لاني حاولت وفشلت ويعطيني الرسالة الاتية

[ابوخليل]

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

اخي الكريم

أنت الآن تحدد الاجهزة التي سيعمل عليها البرنامج ، بعد ان تقوم باظهار ارقام اقراصها الصلبة

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

فمثلا شبكشي يرسل برنامج الى ابي خليل وعندما يفتح البرنامج يظهر نموذج فيه حقلين الاول يظهر فيه رقم الهارد الخاص بالجهاز واسمه رقم النسخة والحقل الثاني فارغ واسمه رقم التسجيل وكان شبكشي قبل ذلك وضع معادلة كتب فيها : اذا كانت قيمة حقل رقم التسجيل = رقم النسخة + 12 افتح والا اقفل البرنامج

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

ما رأيك ؟ اليس هذا اشمل من حصرك البرنامج على البيت والمكتب وحسن ...

حيث ستضطر عند تشغيل البرنامج على جهاز آخر ان تدخل الى التصميم وتغير في الاكواد ، وهذا لا شك غير متصور

تطبيق هذا الكلام في الرابط الذي ارفقته

[ابو عبد الرحمن اشرف]

اخي الحبيب ابو خليل

احسن الله اليك

لا ادري لماذا كنت انا مصر على الكود الغريب هذا ولم انتبه لما اتحفتنا به من ابداع في ذلك البرنامج الصغير حجما والكبير فائدة

انا استوردت النموذج والجدول على النسخة وتعمل الان بشكل ممتاز جدا

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

والى الملتقى في استفسار جديد اخي الكريم

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

[أبو آدم]

بارك الله في السائل و المجيب

أحسن الله اليكما

( تمت الإجابة )