محمد طاهر عرفه

هذا المثال يختبر وجود ملف فى المسار c:\officena.txt فاذا لم يجده يغلق القاعدة و يظهر رسالة و اذا وجده يقوم باظهار رسائل بالمكتوب داخل الملف و يتم اضافته فى حدث form load للنموذج الافتتاحي للبرنامج Private Sub Form_Load() On Error GoTo ERROR_SUB Open "c:\officena.txt" For Input As #1 Do While Not EOF(1) Line Input #1, xx MsgBox Trim(xx) Loop Close #1 Exit Sub ERROR_SUB: If Err.Number = 53 Then MsgBox " No Autorization - This Program Is Not Authorized ! " + Chr(13) + Chr(10) + "Do not do this Again !!", vbCritical, "Alert Message " Close #1 DoCmd.Quit End If End Sub

97 يعمل علي 2000 و 2000 يمكنك تحويله الي 97 شريطة كون الملفات mdb و ليس mde

ايضا راجع هذا الموضوع حماية وأمن قواعد البيانات, مستوى متقدم http://www.officena.net/ib/index.php?showtopic=177

مثال رقم 2 للاخ visitor-om mbserial2_visitorOM.zip

مع الردود السابقة من المفترض انك ستذهب الي العميل لاعادة تفعيل الحماية بعد الفورمات و هذا لن يمكنك تجاهله تماما ، فاي قطعة من الجهاز عرضة للاستبدال ، و حينئذ ستضطر للذهاب بل ان الجهاز كله عرضة للاستبدال و لتقليل ذلك ، يمكنك استخدام الحل البديل و هو الذي بدأت تستخدمه شركات كثيرة ، الاو هو قرائة رقم اي من المعدات المتاحة + أي ممواصفة مثل مساحة الهارد مثلا ثم اجراء عمليات حسابية عليها كارقام ، و تكوين معادلة بناء علي هذا الرقم وارسالها اليها بالبريد او بالتليفون و يقومون بدورهم بادخالها فى برنامج يجري عليها بعض الحسابات ، و يعود برقم جديد و يرسله للمستخدم ليدخله كرقم تفعيل و بذلك يتم التفعيل بعد الفورمات من جديد بخصوص البايوس سارفق بعض الملفات جربها GetMemAddress.rar

جرب الحل الموجود هنا لديك مشكلة في OLE Server or ActiveX control http://www.officena.net/ib/index.php?showt...&hl=لوحة+التحكم

يمكنك عمل ذلك باستعلام حذف ، يكون فيه شرط التاريخ الذي تريد أو يمكنك تنفيذ الامر المناظر بالكود مثل DoCmd.RunSQL "DELETE Table1.date2 FROM Table1s WHERE (((Table1.date2)<#1/1/2004#));" للمزيد حول استعلامات الحذف راجع هنا فهرس دورة الأكسس http://www.officena.net/ib/index.php?showtopic=228

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

الموضوع ستجد تفاصيل كثيرة له فى قسم الدعم الفني فى منتدي الابداع أو الفريق العربي أو أي منتدي به قسم للدعم الفني و اعتقد من الافضل طرح الموضوع هناك لتأتي المعلومة ممن هم أكثر تخصصا و تحقيقا لمبدأ التخصص :( و هذه بعد المواضيع http://www.arabteam2000.com/ib/index.php?a...indpost&p=41952 http://www.arabteam2000.com/ib/index.php?a...indpost&p=56836 http://www.arabteam2000.com/ib/index.php?a...ndpost&p=110584 http://www.arabteam2000.com/ib/index.php?a...indpost&p=23963 مع تحياتي

ابسط الحلول افتح الجدول فى الاكسس فى وضع العرض انسخ البيانات من الاكسيل اختار العمود بالكامل من الجزء الرصاصي فى الاكسيس ( اعلي العمود) ثم الصق

اضغطي ALT+F11 او من وضع تصميم النموذج او التقرير view codes

و ما المانع ، بان تقومم بعمل فلتر علي رقم الحفلة و تاريخها من جدول الحجوزات

السلام عليكم فتحت الملف و اخترت وضع اظهار الكود فسأل عن كلمة السر فكتبتها 23177 ففتح و لم توجهني مشكلة و عموما هذه نسخة بدون كلمة سر علي الكود من الملف الاول مع تحياتي GetCPUID.rar

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

و هذا مثال آخر ( من موقع أجنبي فى الاغلب ) علي 3 أشياء zoom تكبير و محرر كتابة Calendar نتيجة بسيطة Calculator آلة حاسبة zoom_Calender_Calc.rar

هذا مثال للاخ أبو عقيل به مثال للآلة الحاسبة و آخر لتحويل التاريخ بين الهجري و الميلادي date_calc_abuaqeel2001.zip

هل اضفت SendKeys "{F2 3}" و SendKeys "{F2 2}" فى مواضعها مثلما فعل اخونا ابو هادي ؟؟

التصميم المقترح جدول به تصنيفات الكراسي و اسعارها ( آخر الاسعار) جدول به قائمة الكراسي و يتم من الجدول السابق ترحيل كل حفلة الي ججدول الحجز و يكن جدول الحجز كالتالي مسلسل اليوم رقم الحفلة رقم الكرسي سعر الحجز فى هذا اليوم محجوز أم لا و يتم الترحيل من جدول القائمة الي جدول الحجز لكل حفلة باستعلام الحاق من جدولي القائمة و التصنيفات قبل كل حفلة

المشاركة الاصلية

المقصود مشروح هنا http://www.officena.net/ib/index.php?showtopic=1501 و توجد طريقة أخري لمعرفة مكان المشكلة و هي استيراد الكائنات الواحد تلو الاخر و فى الغالب لن يتم استيراد الكائن الذي به مشكلة اما عن تحديد مكان الخطأ أو العيب فى التصميم ، فيوجد معالج tools analyse و به قائمتان الاولي للجداول و الثانية للاداء ، جربه فربما يكون فيه فائدة

tools options calculation automatic و اذا لم تعمل ففي الاغلب سيكون هناك Circulat reference في معادلة من المعادلات و لاكتشافها Tools Customize Toolbars Cirucular reference و افتح الكومبو لتعرف مكان الخطأ

السلام عليكم معلوماتي عن الموضوع ليست كبيرة و لكن ساعرضا لتكون عرضة للتصحيح أو الاضافة علاقة الاكسيس بالموضوع علي ما أعلم ستكون تطبيق لاستخدام ادوات سيكون عليك الحصول عليها اولا و هذه الادوات مخصصة للاتصال بالهاردوير الخارجي مثل السنترال الداخلي مثلا و هذه الادوات غالبا ما ستكون مصنوعة بالفيجويل بيزيك اذا كانت بسيطة أو بال c اذا كانت معقدة و لكي اوضح ما اقصد راجع هذا الموقع http://www.yes-tele.com/software.html به امثلة لاستخدام الادوات الخاصة بتسجيل بيانات الاتصال و منها مثال للاكسيس و لكن فى البداية و النهاية ستسخدم اداة معينة و هذه الادوات قد تتراوح بين أنها تطبيق لاستخدام دوال ال api الي حد كونها مبرمجة خصيصا لسنترال معين للتعامل معه و تنتجها شركة تصنيع السنترال خصيصا للتعامل مع سنترالاتها اذا فاولا ، لتبحث عن الاداة التي توفي ما تريد ، ثم بعد ذلك يأتي دور تطبيقها فى الاكسيس

نعم فى الغالب ما ذكره الاخ الكريم هو السبب و المقصود هو عمل Compile للكود و الكود يكون اما فى الوحدات النمطية او فى النماذج أو التقارير كالكود المصاحب لزر امر مثلا اضغط alt+f11 أو من وضع تصميم النماذج أو التقارير اختار view code ثم Debug Compile و سيتوقف المعالج عند السطر الذي به الخطأ و فى الغالب سيكون سطر به اشارة الي كائن قد تم مسحه

للحصول علي رقم الهارد Dim fs, s Set fs = CreateObject("Scripting.FileSystemObject") s = fs.GetDrive(fs.GetDriveName(fs.GetSpecialFolder(1))).SerialNumber

جرب اعادة تحميل الاوفيس علي الجهاز و جرب نقل ادوات الحماية الي جهاز آخر ( سواء كانت ملف أو ريجيستري ) و نقل القاعدة اليه ففي كل الاحوال من المفترض اذا كان الملف سليما أن ينجح فك الشيفت من القاعدة الخارجية