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

راجع هذا الموضوع: حساب معدل العائد الداخلي IRR

مرفق مثال مع تحياتي GradeTitle.rar

وين الطريقتين الثانيين :)

شكرا علي التوضيح :d

مرفق ملف اكسيل به 3 ماكروهات الاول لاظهار مربع حوار فتح ملف ثم الفتح الثاني لاظهار مربع حوار حفظ ملف ثم الحفظ الثالث لاختيار الالوان و تطبيق الاختيار علي الخلايا المختارة لتشغيل الماكرو من قائمة tools Macros أو ALT+F8 Dialogs.rar

ما هو الكود المكتوب فى زر أمر الفتح ؟؟ و ما هي الاكواد فى أحداث الفتح و التحميل للمنوذج ان وجدت؟؟

يتم ذلك بدوال ال API و تحديدا دالة GetSaveFileName ولكن لتشغيلها فى الاكسيل ، تحتاج الي تعديلات بخلاف الاكسس و البيزيك و هي تعديلات طفيفة مثل تحويل app الي application وحذف أو تعديل بعض الخواص التي لا تناسب الاكسيل بالاضافة الي ضافة استقبال الناتج ليناسب الاكسيل سأحاول تجهيز مثال بإذن الله

قمت بتعديل المثال السابق و قسمته الي 3 دوال الاولي تقرب الرقم بدرجة تقريب محددة و الثانية تقريب الرقم الي الاعلي دائما أيضا بدرجة تقريب محددة و الاخيرة تقرب الكسور الي الاعلي فقط اخي ابو هادي ، هل ممكن تفصل الطريق التي شرحتها فى المشاركة السابقة شوية زيادة :d

تم تعديل المثال ( تعديل الدالة ) التقريب بدرجة محددة و اضافة التقريب الي الاعلي فقط بدرجة محددة و تقريب الكسور الي الأعلي و يلاحظ أن الارقام السالبة نعتبر قيمة التقريب لها أيضا بالسالب Myround2.rar

الدالة نفسها تمكنك من البحث بين قيمتين ، و ذلك بتحديد ما تريد فى الجزء الخاص بالشرط ( الجزء الثالث ) يوجد فى قسم الدوال شرح و أمثلة http://www.officena.net/ib/index.php?s=&act=SF&f=30 و يوجد فى هذا الموضوع تطبيق علي المعيار فى صورة مجال ( بين قيمتين ) بالكود http://www.officena.net/ib/index.php?showtopic=916 و تكون الصورة كالتالي للجزء الخاص بال Criteria بين تاريخين بالكود ( كما فى المثال أعلاه ) mycond = "(([EmpID] = " & Me.Semp & ") And ([date] Between #" & Me.Dfrom & "# And #" & Me.Dto & "#))" و للتطبيق للاستخدام المباشر بدون كود علي بين تاريخين : مثال ل Dcount DCount("[fld]", "Tbl", "[MyDate] Between #" & Format((Me.[From]), "mm/dd/YY") & "# AND #" & Format(( Me.[To]), "mm/dd/YY") & "#") مع ملاحظة أن ال # تستخدم فقط مع التواريخ و مع الارقام لا نضع شيء و مع النصوص نضع ' مثال علي التعامل مع الشرط النصي و الشرط الرقمي : في حالة حقل الشرط رقمي DLookUp("[FieldName]","TableName","[FieldName] = " & [Forms]![MainFormName]![SubFormName]![controlName]) فى حالة حقل الشرط نصي DLookUp("[FieldName]","TableName","[FieldName] = '" & [Forms]![MainFormName]![SubFormName]![controlName] & "'") و يمكنك أيضا بالاضافة الي Between استخدام معاملات And OR فى الجزء الخاص بال Criteria أو الشرط مثل DLookUp("[FieldName]","TableName","[FieldName] = 5 or [FieldName]=7") DLookUp("[FieldName]","TableName","[FieldName] = " & [Forms]![MainFormName]![SubFormName]![controlName] & " or [FieldName] = " & [Forms]![MainFormName]![SubFormName]![controlName2] )

مثال قوي :yess:

تم تعديل الملف باضافة عملية استبدال القيم الخالية بالكود ، مثل الموجودة فى مثال المجلد حيث أنه أثناء تطبيقه فى موضوع آخر اتضح أن دالة ال API أحيانا تعيد قيمة Null فى نهاية المسار لذا تم تعديل المثال OpenDialog3.rar

مرفق المثال و لتجربته قم بنقل الجدولين Table1,Table2 الي القاعدة التي تنوي تصدير البيانات اليها و لتكن DB3 مثلا في أي مسار تريد ثم تفتح البرنامج و من النموذج تختار القاعدة DB3 و سيتم تصدير كل بيانات الجداولين اليها و لاضافة مزيد من الجداول قم بكتابة اسمها فقط فى الجدول المسمي E_LIST و اعطها أي ترقيم ، و تأكد من وجودها و تماثلها فى القاعدتين مع تحياتي AppendSelective.rar

قبل الاجراء DoCmd.SetWarnings False و لا تنسي اعادة تفعيله بعد الاجراء فقد تحتاجه فى مكان آخر DoCmd.SetWarnings True

Private Sub Worksheet_Change(ByVal Target As Range) If Not IsNull(Range("a3")) Then Range("b3") = Now() End Sub

أخي أبو هادي هذا الرابط يمكن تنزيل برنامج منه يحوي كل دوال ال api مع أمثلة لها http://www.mentalis.org و تحديدا من هنا http://www.mentalis.org/agnet/apiguide.shtml و قد أضفته اليوم الي رابط المواقع المفيدة المثبت أخي زكوان و لماذا تريد عمل فاصل زمني بين الاستيراد ؟

موقع ALL API الرابط : http://www.mentalis.org التعليق : موقع يحوي كل ما تريد عن ال api و يوجد برنامج به شرح و أمثلة يمكنك تنزيله و الاستفادة منه http://www.mentalis.org/agnet/apiguide.shtml

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

قم بوضع الجزء التالي أولا أعلي صفحة الكود قبل أي روتين أو دالة Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long) ثم فى المكان الذي تريد فى الكود تضع الجملة التالية Sleep 1000 حيث 1000 هي زمن التوقف بالمللي ثانية أي أن ال 1000 = ثانية

أنا لست معتادا علي هذه الطريقة فى الحماية و بالتالي ليست لي خبرة فيها و لكن سأحاول لاحظ أن \\Pc1 تعني وصلة الجهاز باسمه ال شبكة يعني لو الجهاز اسمه Taher ستكون الوصلة لفتح الجهاز من المتصفح هي \\Taher و للتأكد من الاسم اكتبه فى المتصفح لتري هل ستصل الي جهاز أم لا لاحظت فى ردك وجود علامة / كثيرا فجرب استبدالها ب \ أي تصبح الوصة التي ذكرها الأخ المزيني كالتالي C:\Program Files\Microsoft Office\Office\Msaccess.exe \\Taher\Data \MyDb.mde /wrkgrp \\Taher\Data\MyWrkgrp.mdw أو قم بعمل Map Network Drive للمجلدين باسم y مثلا فتكون الجملة "C:\Program Files\Microsoft Office\Office\Msaccess.exe" "y:\MyDb.mde" /wrkgrp "y:\MyWrkgrp.mdw" مع تحياتي

أيضا هذا مثال لاختيار ملفات و ليس مجلدات مع حفظ المسار فى جدول تم تعديل الملف فى مشاركة لاحقة

بدأت فى اعداد ما تريد و ستجده هنا قريبا بإذن الله

ضع فى خانة القيمة الافتراضية لمربع النص d1 = Format(now(); "ddd")

موضوع ذو صلة و ان كان لا علاقة له بالسؤال التعرف علي اللغة الحالية و تغييرها و التحكم فيها

لتغيير اللغة المختارة اما نبدل بالماوس بين AR,En من أقصي اليمين الاسفل للشاشة أو نستخدم ALT+SHIFT و هذا المثال يظهر اللغة الحالية و يمكنك من التغيير عن طريق زر و أيضا يبين كيف نحكم لغة الادخال فى عنصر تحكم محدد فلا نسمح فيه الا بالعربية مثلا Arabic.rar