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

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

مرفق مثال علي تغيير قيمة قناع الادخال بالكود من الازرار أو بالاختيار من مربع تحرير و سرد ( combo ) و الكود المستخدم هو التالي : If Me.Combo4.Value = "Password Mask" Then Me.Text0.InputMask = "Password" ElseIf Me.Combo4.Value = "Phone Mask" Then Me.Text0.InputMask = "(###) ###-####" Else Me.Text0.InputMask = "No Mask" End If مع تحياتي ChangeInputMask.rar

ربما توجد مساحة كافية ، و لكن ليس علي البارتشين الذي به ملفات البرنامج أو ملفات الويندوز المؤقتة ( ال c مثلا ) او بحسب ما لديك

جرب استيراد الملف الي الاكسيس اولا ، ثم منه الي الاوتلوك

و عليكم السلام و رحمة الله و بركاته الهدف منها هو الاعلان عن مدي اهمية الرسالة و يمكن استخدامها فى الترتيب داخل صندوق الوارد أو التصنيف بها الي مجلد محدد من قواعد استقبال الراسائل Message rules

اذا كانت الصور ضمن صفحة جرب النسخ و اللصق الي الرسالة

من View All Headers و سيظهر ال BCC

أولا شكرا للأخ محمد علي الاشارةالي قواعد المشاركة ثانيا : بعد تجربة اقتراح الاخ محمد ، جرب اسبدال الملفات داخل المجلد بالملفات الموجودة داخل المجلد فى المسار السابق اذا كانت موجودة

قم يتصديرها الي الصيغة التي تناسبك من قائمة ملف تصدير/ استيراد و استردادها يكون بنفس الاسلوب

رد للأخ فهد بارك الله في الجميع . أخي أبو هادي .. أخي مهند .. أظن أن الدالة لا تتعامل مع التاء المربوطة (ةه) فالرسالة تخرج ( الكلمة غير متطابقة ) إذا كتبت في الأعلى ( فاطمه) وفي الحقل الأسفل ( فاطمة) أما بالنسبة للياء ( ي ى ) فهي تعمل كما هو الحال مع الهمزة يعني مظبوطة . تحياتي ..

رد للأخ مهند : أشكر الأخ أبو هادي على تفهمه لنواياي ومقاصدي اقتباس الدالة تخرج القيمة صفر ومطلوب تفاديه . 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

رد للأخ أبو هادي : السلام عليكم أشكر تفهمك وقبولك ملاحظاتي وأود أن أعقب بالتالي : اقتباس 2 - أنا عندي عمل الكود بستعمال Like ... ولكن الأخ فهد أكد أن الكود باستعمال Like لم يعمل المشكلة كانت تكمن في تجاهل الهمزة لأحد طرفي المقارنة مع ترك الآخر والذي من المحتمل أن يحتوي على همزات كذلك ، هذه المشكلة فقط . اقتباس 3 - أظن أن الموضوع لا يحتاج إلى مناقشات .. أي واحد يجرّب في قاعدة تحتوي على أكثر من 1000 سجل يجرب البحث بالأسلوبين ويرى فرق التوقيت يعني أن هذه النتيجة غير موثقة وإنما اكتسبتها من واقع التجربة ، فلذلك كان الموضوع يستحق المناقشة والتأكد ، فكم منا دعته الظروف أن يقوم بمقارنة بين العاملين لألف سجل . اقتباس 6- بدون تعليق الدالة تخرج القيمة صفر ومطلوب تفاديه . اقتباس 8 - معاذ الله أخي أبو هادي أن أكون صغير التفكير .. وما كان أملي أن يكون ظنك فيّ هكذا !! ظني بك خيرا إن شاء الله ولكن أنا أحتاط أن لا أخسرك وأن أبقي عليك معينا وعضيدا . تحياتي .

رد للأخ مهند : في البداية أشكر أخي أبو هادي على متابعته الدؤوبة 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- اقتباس آمل ردي هذا أن لا يمنعك من مواصلة المساهمة في برنامج مشروع القرآن الكريم معاذ الله أخي أبو هادي أن أكون صغير التفكير .. وما كان أملي أن يكون ظنك فيّ هكذا !! تحياتي للجميع

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

مرفق مثال يعتمد علي تغيير مصدر بيانات النموذج الفرعي FiltreByCombo.rar

السلام عليكم أخي جمال المنتدي الجديد المخصص لهذا الغرض يجوي قسمين http://www.officena.net/League الاول للمناقشة التفصيلية للفوائد العائدة من التجمع ، و بلورتها بعد اتاحة الفرصة لعرض جميع وجهات النظر و الثاني للتسجيل بصفة مبدئية للمهتمين بوجود تجمع واقعي

يبدو أن المشكلة ليست فى الدالة المطبقة في مشروع القرآن أو فى موضوع البحث هنا http://www.officena.net/ib/index.php?showtopic=1912 http://www.officena.net/ib/index.php?showtopic=857 و الامثلة يتم فيها فعلا تجاهل موضوع الهمزة ايضا المثال الذي أضافه الأخ مهند يعمل تماما جرب اعادة ترتيب المراجع الموجودة فى المثال عندك أيضا جرب استبدال الحروف العربية فى الكود ، بال asci code المناظر كما فى الموضوع المشار اليه عاليا فاحيانا مع بعض النسخ يحدث مشاكل مع وجود حروف عربية وسط الكود احيانا يفي اعادة الترتيب للمراجع فى الاكسيس بحل بعض مشاكل شبيه و لكن اذا كانت مشكلة مراجع ، فسيتوقف الكود عند الدالة المعنية اذا عملت Debug فجرب عمل debug أولا ثم اعادة الترتيب و اذا لم يتم عمل الكود بعد هذا كله فجرب تحميل فيجوال بيزيك الاصدار السادس علي الجهاز ، فأحيانا تكون بعض المكتبات فى حاجة الي تحديث و يقوم تحميل الفيجوال بيزيك الاصدار السادس بحل هذه المشاكل

اذا كانت المعادلة فى الخلية A4 مثلا =IF(MOD(A4,INT(A4))=0,TEXT(INT(A4),"0"),TEXT(A4,"0.00")) مع مراعاة موضوع الفاصلة و الفاصلة المنقوطة بحسب الاعدادات لديك

هل تقصد ISO في هذه الحالة نسخها الي سي دي يتوقف علي نوع برنامج النسخ الذي تستخدمه فمثلا لو النيرو تختار Burn image to disk

يرجي مراجعة قواعد المشاركة ( سؤالين فى موضوع ) بالنسبة للسؤال الاول أعتقد أن هذا صعب فى الاكسيل و الحل الاسهل له أن تربط ملف الاكسيل الي الاكسيس كجدول مرتبط ثم تعد تقرير فى الاكسيس مبني علي هذا الجدول و يوجد شرح فى قسم التقارير فى خلاصة مشاركات الاكسيس عن كيفية عمل مجموع الصفحة و ان واجهتك مشكلة فى ذلك فيرجي طرحها فى قسم الاكسيس اما عن عمله فى الاكسيل فمازال ممكنا ـ و لكن ما يخطر ببالي من حل ، لا أراه حل محترف ، و هو أن تعرف أولا كم صف تحوي الصفحة مثلا 20 صف ثم تدرج بالكود صف خالي بالكامل و تضيف اليه معادلة تجمع ال 20 صف التي تسبقها بالكود ثم نضيف فاصل صفحة بالكود فى الخلية التي تليها و هكذا .. ثم فى النهاية تضيف مجموع لهذه المجاميع بالكود أيضا أسفل التقرير و ما لا يعجبني هنا هو تثبيت عدد الخلايا، مما قد لا يتناسب مع عدم ثبات ارتفاع الصفوف، و الافضل و الذي لا أعرفه حاليا هو استنتاج الصف الذي يقع فى نهاية كل صفحة بالكود ، و بناء عليه التعامل مع الموضوع و سأحاول بحث الموضوع بإذن الله بالنسبة للسؤال الثاني ، يرجي طرحه فى موضوع منفصل لتعم الفائدة مع توضيح أكثر للمقصود ، و لندع هذا الموضوع لمناقشة السؤال الاول

أيضا هذا موضوع مرتبط بخصوص دقة الاراقام المنقولة فى حالة وجود معادلات فى مصدر البيانات فى الاكسيل تقريب الارقام فى ناتج الدمج البريدي من وورد لاكسيل http://www.officena.net/ib/index.php?showtopic=3221

السلام عليكم جميل جدا بالنسبة للفاصلة و النقطة ، هذا يعتمد علي اعدادات لوحة التحكم فى الجهاز مع تحياتي

وجدتها :d لنفرض أن المعادلة المحسوبة فى الاكسيل التي تريد دمجها موجودة ىف الخلية D3 قم باضافة عمود جديد فى الاكسيل لتحويل القيمة الي نص =TEXT(D3,"0.00") ثم ادمج القيمة الجديدة الي الوورد و ليس الاصلية

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

لنفرض أنك تريد تسجيل تاريخ اليوم فى العمود 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