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

ربما يكون هذا الموضوع مفيدا http://www.officena.net/ib/index.php?showtopic=306

ان الدالة today تقرأ من تاريخ الجهاز ، و تتغير القيمة بتغيره لذا لابد من أن تقوم بعمل copy paste value سواء يدويا أو بماكرو لتحويل الدالة الي قيمة اما الاحتفاظ بها كدالة و عدم تغير القيمة فاعتقد أن هذا غير وارد

المثال لعدد كبير من الدوال موجود هنا التفقيط فى الإكسيل تحويل الأرقام الي حروف http://www.officena.net/ib/index.php?showt...pic=33&hl=تفقيط

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

هذا هو الملف ( لم أجربه ) و ان كنت أنصح باعادة التحميل بالترتيب 97 ثم 2000 97after2000.rar

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

هذا ممكن فى أوفيس 2002 أما فى 2003 فالنسخة التي رأيتها ليست نسختين عربي و انجليزي و انما نسخة انجليزية تدعم اضافة اللغات و فى نسخ أخري توجد اسطوانة اضافية لدعم اللغات اي ان 2003 لم أر لها نسخة عربي و اخري انجليزي

ضافة بسيطة تم وضعها فى مواضيع أخري كسؤال من بعض الاخوة و هو أنهم لا يستطيعون التحويل الي mde فى الاكس بي و الاجابة أنه فى الاكس بي ، لابد من تجويل تنسيق الملف اولا الي تنسيق 2002 ( اكس بي ) ثم بعد ذلك تجويله الي Mde و البعض ينسي هذه الخطوة لان التنسيق الافتراضي فى الاكس بي هو تنسيق 2000

هذه المقارنة من موقع ميكروسوفت http://www.microsoft.com/office/editions/p...fo/compare.mspx و هي ليست مقارنة بالمعني ، و انما الغرض منها اظهار التطورات فى الاوفيس 2003

تأكد من ادراج الدالة فى موديول فى نفس الملف

كما فى المثال الاول الخاص بملف النص نضيف مسار و اسم الملف بعد البرنامج بمسافة Dim ExcelPath ExcelPath= Shell("C:\Program Files\Microsoft Office\Office\EXCEL.EXE d:\layla\layla.xls", 1)

لفتح أي ملف باستخدام تطبيق محدد استخدم الامر shell مثلا لفتح ملف txt بالنوت باد Dim x x = Shell("notepad.exe c:\testfile.txt", 1) حيث الجزء الاول هو الملف التنفيذي للتطبيق و فى حالة البرامج الخارجية عن تطبيقات الويندوز يتم اضافة مسار الملف التنفيذي للبرنامج بالكامل ثم مسافة ثم اسم الملف المطلوب تشغيله أو لتشغيل التطبيق فقط نكتفي بالجزء الاول مثل فتح الالة الحاسبة Dim RetVal RetVal = Shell("C:\WINDOWS\CALC.EXE", 1) ' Run Calculator. مثلا مسار الملف التنفيذي للاكسيل يختلف بحسب الاصدار مثل Dim ExcelPath ExcelPath= Shell("C:\Program Files\Microsoft Office\Office\EXCEL.EXE", 1) or Dim ExcelPath ExcelPath= Shell("D:\Program Files\Microsoft Office\Office10\EXCEL.EXE", 1)

لا نموذج واحد به مربعي نص ، واحد لكل تاريخ و تربط مباشرة المعيار بمربعي النص

مرفق مثال لاحد الأخوة و أرجو ممن يعرف صاحبه أن يذكرنا باسمه mouseWheel.zip

المثال الاصلي الكامل هنا النسخ الاحتياطي / التصدير / تغيير المسار http://www.officena.net/ib/index.php?showtopic=301&hl= و بخصوص كلمة السر جرب التعامل معها بنفس المفهوم هنا http://www.officena.net/ib/index.php?showt...pic=1164&hl=pwd أقصد اضافة ";PWD=123" الي الكود ( لم أجرب ) حيث 123 هي كلمة السر

ايضا ملفات الوورد تصير بطيئة جدا اذا زاد عدد صفحاتها بصورة كبيرة و خصوصا التي تحوي كائنات رسومية و جداول لذا فعلا من الافضل جمعها فى مجلد واحد و عمل ملف جديد يقوم بعمل الفهرس و يحوي وصلات ارتباط تشعبي الي باقي الملفات hyperlinks

موضوع ذو صلة التعرف علي اللغة الحالية و تغييرها و التحكم فيها http://www.officena.net/ib/index.php?showtopic=953

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

اذا أردت اظهار الشرطات المائلة فى الشاشة التي تظهر لكتابة التاريخ فلن يمكنك ذلك فى شاشة الرسالة النمطية التي تظهر و انما عليك باستبدالها بنموذج من تصميمك و استخدام قناع الادخال فى النموذج

مرفق مثال علي تكوين بيانات الجدول الجديد بناء علي عدد السجلات المطلوب الجدول موجود مسبقا باسم Table2 و يتم ملئ بياناته بناء علي بيانات النموذج بالطريقة التي وصفت و يمكنك الاعتماد علي الجدول table2 فى طباعة الملصقات التي تريد ، حيث أن عدد السجلات به هو العدد المطلوب MAKE_TABLE.rar

يمكنك مثلا اصدار النتيجو الكلية بصفر مثلا فى هذه الحالة و هذا يعتمد علي مفهوم الارقام لديك و ذلك بوضع الحقل المستنتج التالي فى الاستعلام aa: IIf([field2]=0;0;[field1]/[field2])

يمكن عمل ذلك بكود طويل و لكن هناك حل بسيط باستخدام الدوس اخرج الي محث الدوس اذهب الي المجلد الذي به الملفات و ليكن C:\pics و ذلك بالامر cd pics ثم اكتب Dir *.*>officena.txt و هذا يعني كتابة كل الاسماء فى ملف نص عد الي الويندوز و افتح الملف بالوورد مثلا و استخدم خاصية الاستبدال لحذف ما تريد من مسار او امتداد لتبقي الاسماء كما تريدها فقط ثم بعد ذلك استورد الملف الي الاكسيس مع تحياتي

ما شاء الله :d ملف جميل جدا (y) هدية جميلة

راجع أنواع بيانات الحقول فربما مثلا تدخل قيمة 40000 فى حقل Integer فلا يقبلها

ايه الحلاوة دي :d ماشاء الله ، مثال جميل جدا دائما متميز كما عودتنا (y)