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

السلام عليكم فتحت الملف و اخترت وضع اظهار الكود فسأل عن كلمة السر فكتبتها 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

الرد المشار اليه : للاخ فهد : أولا وقبل كل شيئ أعمل الآتي من خلال خصائص النموذج (حدث) إذهب إلى (مفتاح العرض التمهيدي) وجعل خاصيته (نعم) ثم إذهب إلى (عند مفتاح للأسفل) واستخدم الكود هذا الرقم 116 في الكود يمثل الزر F5 If KeyCode = 116 And Shift = 0 Then الكود المطلوب END IF

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

نفس الشيء ضع فى المعيار الخاص بحقل التاريخ فى مصدر بيانات التقرير Between [Forms]![FormName]![DateFrom] And [Forms]![FormName]![DateTo] حيث DateFrom و DateTo هي أسماء مربعات النص التي تحوي التاريخ مرفق مثال أعتقد أنه للاخ ابن مسقط Date_from_to.rar

السلام عليكم أهلا بك فى المنتدي و نرجو مراجعة قواعد المشاركة فى المنتدي ( العنوان - و تعدد الاسئلة ) بالنسبة للسؤال الاول راجع هذه المواضيع استخدام الدالة dmax لعمل ترقيم مسلسل (الصفحات 1 2 3 ) http://www.officena.net/ib/index.php?showtopic=1049 بديء الترقيم التقائي مع كل سنة جديدة تطبيق لاستخدام Dmax فى الترقيم http://www.officena.net/ib/index.php?showtopic=1034 بالنسبة للتاريخ ، ضع فى مصدر بيانات مربع النص =date() او اذا اردت الوقت ايضا =now() بالنسبة للربط ، ستضع فى جدول الصادر ، حقل لرقم الوارد المناظر و فى جدول الوارد حقل لرقم الصادر المناظر هذا اذا كنت تستخدم جدولين منفصلين للصادر و الوارد اما اذا كان جدول واحد يشمل كل الحركات (صادر ووارد ) فستضع فيه حقل لرقم المستند الاصلي الذي يرد عليه هذا المستند

درجات الطلاب واستخراج التقدير التلقائي لكل طالب http://www.officena.net/ib/index.php?showtopic=808 تسجيل ترتيب الطلاب كتابة بحسب الدرجات الأول ، الثاني ، الثالث ،.. http://www.officena.net/ib/index.php?showtopic=1004

تنفيذ أمر بضغط مفتاح من أي مكان Autokeys Macro http://www.officena.net/ib/index.php?showtopic=85&hl= استخدام مفاتيح الكي بورد لتنفيذ امر محدد-Send Keys http://www.officena.net/ib/index.php?showt...97&hl=key+press

جزاكم الله خيرا