اذهب الي المحتوي
أوفيسنا

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

إدارة الموقع
  • Posts

    8730
  • تاريخ الانضمام

  • تاريخ اخر زياره

  • Days Won

    37

كل منشورات العضو محمد طاهر عرفه

  1. جرب استيراد الملف الي الاكسيس اولا ، ثم منه الي الاوتلوك
  2. و عليكم السلام و رحمة الله و بركاته الهدف منها هو الاعلان عن مدي اهمية الرسالة و يمكن استخدامها فى الترتيب داخل صندوق الوارد أو التصنيف بها الي مجلد محدد من قواعد استقبال الراسائل Message rules
  3. اذا كانت الصور ضمن صفحة جرب النسخ و اللصق الي الرسالة
  4. أولا شكرا للأخ محمد علي الاشارةالي قواعد المشاركة ثانيا : بعد تجربة اقتراح الاخ محمد ، جرب اسبدال الملفات داخل المجلد بالملفات الموجودة داخل المجلد فى المسار السابق اذا كانت موجودة
  5. قم يتصديرها الي الصيغة التي تناسبك من قائمة ملف تصدير/ استيراد و استردادها يكون بنفس الاسلوب
  6. رد للأخ فهد بارك الله في الجميع . أخي أبو هادي .. أخي مهند .. أظن أن الدالة لا تتعامل مع التاء المربوطة (ةه) فالرسالة تخرج ( الكلمة غير متطابقة ) إذا كتبت في الأعلى ( فاطمه) وفي الحقل الأسفل ( فاطمة) أما بالنسبة للياء ( ي ى ) فهي تعمل كما هو الحال مع الهمزة يعني مظبوطة . تحياتي ..
  7. رد للأخ مهند : أشكر الأخ أبو هادي على تفهمه لنواياي ومقاصدي اقتباس الدالة تخرج القيمة صفر ومطلوب تفاديه . Dim Rec2Go As Long DoCmd.GoToRecord , , acLast Randomize Rec2Go = Int(Rnd(-Timer) * Me.Recordset.RecordCount - 1) + 1 DoCmd.GoToRecord , , acGoTo, Rec2Go أنت ترى معي أخي أبو هادي أنني أجمع الرقم واحد إلى Rec2Go لكي أتفادى الصفر .. إلا إذا كان عدد السجلات بالأساس صفر .. وفي هذه الحالة لتلافي حدوث خطأ يجب أن نضع سطر On Error Resume Next
  8. رد للأخ أبو هادي : السلام عليكم أشكر تفهمك وقبولك ملاحظاتي وأود أن أعقب بالتالي : اقتباس 2 - أنا عندي عمل الكود بستعمال Like ... ولكن الأخ فهد أكد أن الكود باستعمال Like لم يعمل المشكلة كانت تكمن في تجاهل الهمزة لأحد طرفي المقارنة مع ترك الآخر والذي من المحتمل أن يحتوي على همزات كذلك ، هذه المشكلة فقط . اقتباس 3 - أظن أن الموضوع لا يحتاج إلى مناقشات .. أي واحد يجرّب في قاعدة تحتوي على أكثر من 1000 سجل يجرب البحث بالأسلوبين ويرى فرق التوقيت يعني أن هذه النتيجة غير موثقة وإنما اكتسبتها من واقع التجربة ، فلذلك كان الموضوع يستحق المناقشة والتأكد ، فكم منا دعته الظروف أن يقوم بمقارنة بين العاملين لألف سجل . اقتباس 6- بدون تعليق الدالة تخرج القيمة صفر ومطلوب تفاديه . اقتباس 8 - معاذ الله أخي أبو هادي أن أكون صغير التفكير .. وما كان أملي أن يكون ظنك فيّ هكذا !! ظني بك خيرا إن شاء الله ولكن أنا أحتاط أن لا أخسرك وأن أبقي عليك معينا وعضيدا . تحياتي .
  9. رد للأخ مهند : في البداية أشكر أخي أبو هادي على متابعته الدؤوبة 1- اقتباس دالة changesearch() لا تحتوي على دالة Trim() : كلامك صحيح .. وأنا كنت غلطان وكنت أظن أني قد وضعتها 2- اقتباس العلة ليست في أداة/عامل Like ولو استبدل الأخ فهد أداة = بأداة Like فسيعمل الكود ولكنك للآن لم تدرك الحل بعد . أنا عندي عمل الكود بستعمال Like ... ولكن الأخ فهد أكد أن الكود باستعمال Like لم يعمل 3- اقتباس لقد قارنت بين أداة Like و (الأسلوب)!!! بدلا من المقارنة بين أداة Like و أداة = معللا أن أداة Like أسرع ونحن نقبل منك إذا دعمته بدليل إن أمكن أظن أن الموضوع لا يحتاج إلى مناقشات .. أي واحد يجرّب في قاعدة تحتوي على أكثر من 1000 سجل يجرب البحث بالأسلوبين ويرى فرق التوقيت 4- اقتباس يوجد بالدالة الثانية دالة InStr() وكان بالإمكان استخدام أداة Like إلا إذا كانت InStr() أسرع ؟ ، آمل التوضيح . التوضيح أني بالأساس مبرمج VB .. لذلك فإن ارتباطي بتعليمة InStr أكثر يعني متعوّد عليها ، كما أنه إذا سلّمنا بوجود مشكلة بعامل Like يغدو استعمال Instr أفضل في هذه الحالة 5- الدالة في القرآن الكريم لم أطّلع عليها بعد 6- بدون تعليق 7- اقتباس لولا طلب الأخ فهد مني التدخل لما تدخلت لما رأيت منك سابقا من حساسية زائدة من تداخلات الآخرين . أخي أبو هادي أنا آسف جداً إذا بدى من ردودي أنني متحسس من تدخلات الآخرين .. إذا كان هذا ما أحسست به فأرجو أن تقبل اعتذاري الشديد لأني - والله على ما أقوله وكيل - ليس عندي أي مشكلة من تدخلات تالآخرين ولا وجود لأي تحسس عندي من أي كان بالعكس فأنا أفرح عند تدخل الآخرين .. لأن كثرة الحوار بها الفائدة 8- اقتباس آمل ردي هذا أن لا يمنعك من مواصلة المساهمة في برنامج مشروع القرآن الكريم معاذ الله أخي أبو هادي أن أكون صغير التفكير .. وما كان أملي أن يكون ظنك فيّ هكذا !! تحياتي للجميع
  10. السلام عليكم عذرا حدثت مشكلة ، و فقدنا بعد المواضيع المضافة حديثا ، و سأرفقها تباعا باذن الله ، و يرجي تنبيهي الي الردود الناقصة ، أو اضافتها ثانية مباشرة ان كانت متاحة
  11. مرفق مثال يعتمد علي تغيير مصدر بيانات النموذج الفرعي FiltreByCombo.rar
  12. السلام عليكم أخي جمال المنتدي الجديد المخصص لهذا الغرض يجوي قسمين http://www.officena.net/League الاول للمناقشة التفصيلية للفوائد العائدة من التجمع ، و بلورتها بعد اتاحة الفرصة لعرض جميع وجهات النظر و الثاني للتسجيل بصفة مبدئية للمهتمين بوجود تجمع واقعي
  13. يبدو أن المشكلة ليست فى الدالة المطبقة في مشروع القرآن أو فى موضوع البحث هنا http://www.officena.net/ib/index.php?showtopic=1912 http://www.officena.net/ib/index.php?showtopic=857 و الامثلة يتم فيها فعلا تجاهل موضوع الهمزة ايضا المثال الذي أضافه الأخ مهند يعمل تماما جرب اعادة ترتيب المراجع الموجودة فى المثال عندك أيضا جرب استبدال الحروف العربية فى الكود ، بال asci code المناظر كما فى الموضوع المشار اليه عاليا فاحيانا مع بعض النسخ يحدث مشاكل مع وجود حروف عربية وسط الكود احيانا يفي اعادة الترتيب للمراجع فى الاكسيس بحل بعض مشاكل شبيه و لكن اذا كانت مشكلة مراجع ، فسيتوقف الكود عند الدالة المعنية اذا عملت Debug فجرب عمل debug أولا ثم اعادة الترتيب و اذا لم يتم عمل الكود بعد هذا كله فجرب تحميل فيجوال بيزيك الاصدار السادس علي الجهاز ، فأحيانا تكون بعض المكتبات فى حاجة الي تحديث و يقوم تحميل الفيجوال بيزيك الاصدار السادس بحل هذه المشاكل
  14. اذا كانت المعادلة فى الخلية A4 مثلا =IF(MOD(A4,INT(A4))=0,TEXT(INT(A4),"0"),TEXT(A4,"0.00")) مع مراعاة موضوع الفاصلة و الفاصلة المنقوطة بحسب الاعدادات لديك
  15. هل تقصد ISO في هذه الحالة نسخها الي سي دي يتوقف علي نوع برنامج النسخ الذي تستخدمه فمثلا لو النيرو تختار Burn image to disk
  16. يرجي مراجعة قواعد المشاركة ( سؤالين فى موضوع ) بالنسبة للسؤال الاول أعتقد أن هذا صعب فى الاكسيل و الحل الاسهل له أن تربط ملف الاكسيل الي الاكسيس كجدول مرتبط ثم تعد تقرير فى الاكسيس مبني علي هذا الجدول و يوجد شرح فى قسم التقارير فى خلاصة مشاركات الاكسيس عن كيفية عمل مجموع الصفحة و ان واجهتك مشكلة فى ذلك فيرجي طرحها فى قسم الاكسيس اما عن عمله فى الاكسيل فمازال ممكنا ـ و لكن ما يخطر ببالي من حل ، لا أراه حل محترف ، و هو أن تعرف أولا كم صف تحوي الصفحة مثلا 20 صف ثم تدرج بالكود صف خالي بالكامل و تضيف اليه معادلة تجمع ال 20 صف التي تسبقها بالكود ثم نضيف فاصل صفحة بالكود فى الخلية التي تليها و هكذا .. ثم فى النهاية تضيف مجموع لهذه المجاميع بالكود أيضا أسفل التقرير و ما لا يعجبني هنا هو تثبيت عدد الخلايا، مما قد لا يتناسب مع عدم ثبات ارتفاع الصفوف، و الافضل و الذي لا أعرفه حاليا هو استنتاج الصف الذي يقع فى نهاية كل صفحة بالكود ، و بناء عليه التعامل مع الموضوع و سأحاول بحث الموضوع بإذن الله بالنسبة للسؤال الثاني ، يرجي طرحه فى موضوع منفصل لتعم الفائدة مع توضيح أكثر للمقصود ، و لندع هذا الموضوع لمناقشة السؤال الاول
  17. أيضا هذا موضوع مرتبط بخصوص دقة الاراقام المنقولة فى حالة وجود معادلات فى مصدر البيانات فى الاكسيل تقريب الارقام فى ناتج الدمج البريدي من وورد لاكسيل http://www.officena.net/ib/index.php?showtopic=3221
  18. السلام عليكم جميل جدا بالنسبة للفاصلة و النقطة ، هذا يعتمد علي اعدادات لوحة التحكم فى الجهاز مع تحياتي
  19. وجدتها :d لنفرض أن المعادلة المحسوبة فى الاكسيل التي تريد دمجها موجودة ىف الخلية D3 قم باضافة عمود جديد فى الاكسيل لتحويل القيمة الي نص =TEXT(D3,"0.00") ثم ادمج القيمة الجديدة الي الوورد و ليس الاصلية
  20. أهلا بك بالنسبة للاشارة لقواعد المشاركة هي موجودة فى توقيعي الشخصي الذي يظهر فى أول مشاركة لي فى أي موضوع بصفة تلقائية و مشاركاتك هذه نموذجية و لا تخالف القواعد :d مع تحياتي
  21. لنفرض أنك تريد تسجيل تاريخ اليوم فى العمود B بعد تعديل أي قيمة فى كل سطر Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 2 Then If Range("B" & Target.Row) <> Now Then Range("B" & Target.Row) = Now End If End Sub adddateToColBonchange.rar
  22. بما أن الخلايا فى الاكسيل معادلات و ليست أرقام ، فجرب الاتي جرب اضافة الدالة round اليها فلو كانت المعادلة مثلا =+C6/D6 فحولها الي =ROUND(C6/D6;2) و استبدل ال 2 بالارقام العشرية التي تريد
  23. كان يوجد خطأ لدي فى التطبيق و هو الاشارة الي ملف net.exe الخاص ب 98 فى جدول ال path بينما أنا فى اكس بي و بتعديل القيمة الي نفس المسار الي الملف الخاص بالاكس بي ظهرت النتيجة سليمة فى ملف النص المسمي MACLIST و لكن الكود يعمل بنجاح و يعطي أسماء الاجهزة ووصفها فى ملف النص و لا تظهر بالنموذج استدراك : و باعادة الكود الي اصله قبل التعديل الاخير ، يعطي النتيجة سليمة (y) ملاحظة بسيطة أنه عند التشغيل للنموذج لاول مرة أعطاني فقط بعض الاجهزة ( عدد 5 فقط من اجمالي يقارب المائة ) ، و لكن بتشغيل النموذج ثانية اعطي كل الاجهزة المفتوحة و لكن لم يحدث ذلك ثانية عند التجربة لمرات لاحقة ، و أعطي النتيجة سليمة من أول مرة كود ممتاز جدا ، مع الشكر و التحية
×
×
  • اضف...

Important Information