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

جرب الحل الموجود هنا لديك مشكلة في 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

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

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

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

و يمكنك تعديل المسار كما يلي Dim wrkDefault As Workspace Dim dbsNew As Database Dim prpLoop As Property ' Get default Workspace. Set wrkDefault = DBEngine.Workspaces(0) ' Make sure there isn't already a file with the name of ' the new database. If Dir("c:\NewDB.mdb") <> "" Then Kill "c:\NewDB.mdb" Set dbsNew = wrkDefault.CreateDatabase("c:\NewDB.mdb", _ dbLangGeneral & ";pwd=mm")

هذا الكود من التعليمات ، و اضفت اليه ان كلمة السر تكون mm للقاعدة الجديدة Dim wrkDefault As Workspace Dim dbsNew As Database Dim prpLoop As Property ' Get default Workspace. Set wrkDefault = DBEngine.Workspaces(0) ' Make sure there isn't already a file with the name of ' the new database. If Dir("NewDB.mdb") <> "" Then Kill "NewDB.mdb" Set dbsNew = wrkDefault.CreateDatabase("NewDB.mdb", _ dbLangGeneral & ";pwd=mm") dbsNew.Close مع مالحظة أن المسار للقاعدة الجديدة سيكون فى المسار الافتراضي ( مجلد Mydocuments ) فى الغالب كما يوجد فى الكود سطر لحذف الملف اذا كان موجودا بالفعل فى هذا المسار If Dir("NewDB.mdb") <> "" Then Kill "NewDB.mdb"

هو برنامج لضغط و فك الملفات http://www.rarlabs.com/download.htm