اذهب الي المحتوي
أوفيسنا

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


الردود الموصى بها

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

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

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

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

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

'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 مستخدمين احدهما مكمل للاخر ويريد من حين لاخر نسخ البرنامج من جهازه الى جهاز الاخر فلذلك احتجت الى مثل هذا الامر

فما السبيل

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

رابط هذا التعليق
شارك

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

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

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

تم تعديل بواسطه شبوكشي
رابط هذا التعليق
شارك

كلامك مقبول

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

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

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

 

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

رابط هذا التعليق
شارك

اخي الكريم

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

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

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

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

رابط هذا التعليق
شارك

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

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

لم يفلح ايضا

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

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

رابط هذا التعليق
شارك

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

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

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

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

تم تعديل بواسطه شبوكشي
رابط هذا التعليق
شارك

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

رابط هذا التعليق
شارك

  • 4 weeks later...

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

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

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

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 وترسله اليه مرة اخرى ليفتح بواسطته البرنامج

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

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

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

رابط هذا التعليق
شارك

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

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

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

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

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

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

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

رابط هذا التعليق
شارك

من فضلك سجل دخول لتتمكن من التعليق

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



سجل دخولك الان
  • تصفح هذا الموضوع مؤخراً   0 اعضاء متواجدين الان

    • لايوجد اعضاء مسجلون يتصفحون هذه الصفحه
×
×
  • اضف...

Important Information