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

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

لا أعتقد بامكانية ذلك ، و لكن..... دائما تعودنا علي أن كل شيء له حل ، و لطالما أتت من الاخوة أفكار جديدة لكن .. أعتقد للوهلة الاولي أن الحاجة الي اكثر من 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

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

في حدث بعد التحديث للاسم تستنتج العنوان باستخدام Dlookup و تضع القيمة فى مربع النص الذي يظهر العنوان dim m as str m=DLookUp("[address]","table1","[myname] = " & [Forms]![formname]![subformname]![txtboxname]) me.address=m

فى مصدر بيانات التقرير ضع المعيار التالي في حقل التاريخ Between [أدخل تاريخ البداية من فضلك] And [أدخل تاريخ النهاية من فضلك] و اذا أردت اظهار التاريخين علي التقرير فضع مربعي نص و اجعل وصدرهما التعبيران التاليان [أدخل تاريخ البداية من فضلك] [أدخل تاريخ النهاية من فضلك]

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

لموضوع هو أن هذه الدالة تستخدم لادراج نص متكرر بالعدد الذي تحدده ، و ذلك عند الحاجة لنص لتختبر عليه شيء ، و يكفي ررقم واحد فقط داخل القوس مثال =RAND(3) يكرر الفقرة3 مرات ، و الفقرة تتكون من نفس الجملة 5 مرات و يمكنك تحديد مرات تكرار الجملة داخل الفقرة =RAND(3,10) فتتكرر الفقرة 3 مرات و كل فقرة مكونة من 10 جمل و الفقرة تختلف بحسب النسخة ، ففي نسخة الاكس بي الانجليزية: The quick brown fox jumps over the lazy dog

نرجو مزيد من التوضيح ، هل تريده رقمي شكلا ، أم ماذا ؟؟ و لماذا لو شكلا مثلا فى اي استعلام cc: Format([date2];"ddmmyy")

نعم ممكن و ذلك بتحويل الروتين الي جالة و اجراء بعض التعديلات عليه ثم استدعاء الدالة بناء علي الحقل المطلوب و عدد الحروف المحدد و تم التطبيق علي مثال الاخ اسامة و اضيف اليه جدول و استعلام و موديول به دالة Text_Num5.rar

بعد التحميل لا تحاول فتح الحماية بالطريقة العادية و لكن من خلال الاوامر التي ستضاف الي قائمة Tools أو أدوات

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

أزيلي شرط أن الاسم = محمد من الاستعلام السابق

هذا مثال للاخ مسافر gfx_mosafer.zip

لا توجد مشكلة فى الاضافة ، جربي ثانية و لا توجد مشكلة بالنسبة للاجابة علي السؤال ، هذا يتوقف علي : هل المطلوب هو التقدير المناظر لاخر سجل تم ادخاله ، أم المناظر لاكبر تاريخ ؟؟ فقد اتفقنا سابقا أن التواريخ تدخل بالترتيب فى الجدول فان لم تكن كذلك فسنحتاج لتعديل الاستعلام فبرجاء الافادة عموما للحصول علي التقدير المناظر لاخر سجل تم تسجيله ل محمد ( علي اساس الترتيب الزمني فى التسجيل ) سنضع Last فى كل من حقلي التاريخ و التقدير و للحصول علي التقدير المناظر لاكبر تاريخ فى سجل تم تسجيله لمحمد سنقوم اولا بعمل استعلام تحديد عادي و نرتبه تنازليا بالتاريخ لجعل أكبر تاريخ هو الأخير فى الترتيب ثم بناء علي هذا الاستعلام سنبني الاستعلام الجديد و نستخدم Last مع التاريخ و التقدير

الحل بطريقة أخري ( بالكود ) ضع الدالة التالية فى أي وحدة نمطية Function date2(Mydate) If Mydate <= #12/31/2003# Then date2 = "yes" If Mydate > #12/31/2003# Then date2 = "No" If Mydate = "" Or IsNull(Mydate) Then date2 = "No" End Function ثم استخدمها فى الحقل المستنتج كالتالي kk2: date2([Delivery_Date])