نجوم المشاركات

جرب هذا الكود Private Sub Form_Current() If Me.CurrentRecord = 1 Then MsgBox "First Record" ElseIf Me.CurrentRecord = DCount("*", "M1") Then MsgBox "Last Record" End If End Sub

طيب وانت زعلان ليه كده اتفضل يا سيدى فى استعلام اهون Split Full Name (2).mdb

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

عدل تنسيق العمود فقط اولا حدد العمود ثم زر الماوس الايمن format cellule انظر الصورة علامات.xlsx

جرب المرفق ادخل الفترة في الخلية b3 ثم اضغط الزر متابعة الاقتطاع الشهري.xlsm

نعم! جميعها قد أُسس لها إجراء، لكن بدأت فيها بالأسهل في التطبيق! أرجو أن تتحقق من مواضع البيانات وعناوينها لأن الأخيران فيهما انحراف! Import Data from oracle Report.zip

عليكم السلام والرحمة استاذ Ahmed kashoob تفضل هذه المحاولة ارجو ان تكون موفقة ملاحظة: تم انشاء زر امر لاجراء الاختبار بعد اضافة رقم الدورة والرقم الوظيفي وبداية ونهاية الدورة يمكن تبديل مكان الكود بعد التحديث لتاريخ الدورة مثلا سجل دورات الموظفين-2.rar

لنفرض أن لديك جدولان اللأول به بيانات الموظف ، و منها كود البلد و الثاني به الكود و الاسم للبلاد المختلفة كيف تجعل تسجيل البيانات فى الجدول الاول تم بالاختيار من بيانات الجدول الثاني؟ من وضع تصميم الجدول فى حقل كود البلد في جدول الموظف نختار ال tab المسماة Lookup و في خانة ال row source نختار من خلال المعالج ( الزر ذو الثلاث نقاط الذي يظهر عند الوقوف فى الخانة ) نختار تشغيل المعالج ثم show table و نختار الجدول الثاني و منه نختار حقلي الكود و اسم البلد فيتم بذلك تسجيل القيمة التالية فى خانة ال row source SELECT Table2.ContID, Table2.Contry FROM Table2; و بذلك فى وضع فتح الجدول العادي يمكن تسجيل و تعديل حقل كود البلد فى جدول الموظفين عن طريق الاختيار بين أسماء الدول و أيضا تستمر هذه الخاصية فى حالة ادراج الحقل فى نموذج أو تقرير المثال TableLook.zip

اعرض الملف تحديد الأوزان النسبية و التقييم + تطبيق بالإكسيل عند مقارنة خيارات متعددة وفقا لمعايير محددة ، يتم أولا تحديد وزن نسبي لكل من هذه المعايير حتى نستطيع الوصول الى قرار و هنا سنعرض لطريقة تحديد الأوزان النسبية ، و من ثم عمل التقييم و طبعا اشهر تطبيق لذلك عند المقارنة بين المتقدمين لمناقصة معينة وفقا لعدة معايير و هنا يشتمل المثال على المقارنة بين عدة أنواع افتراضية من السيارات وفقا لمجموعة من المعايير مثل السعر و الصيانة و درجة الرفاهية و درجة الأمان ، و بناء على ذلك سنتعلم كيف نضع أوزان نسبية لكل من المعايير ، و بناء على ذلك تتم عملية المفاضلة ومرفق مثال بالاكسيل يحوي أتمتة كاملة لتطبيق الطريقة التي تم شرحها فى العرض التقديمي ، يحوى دالتين بالكود تم استخدامهما فى المقارنةو المثال معد بواسطة اكسيل 2007 صاحب الملف محمد طاهر تمت الاضافه 27 مار, 2010 الاقسام Project Management  

جزاكم الله خيرا .. @ابا جودى لكني أريد التقسيم في الاستعلام وليس النموذج .

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

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

جرب نسخة 2003 من المرجح أنها تعمل! Import Data from oracle Report.zip

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

محتويات الموضوع : ما هو الأكسس مستويات إستخدام الأكسس الأكسس و قواعد البيانات العلائقية Relational Database مفهوم أن ما تراه هو ما تحصل عليه (WYSIWYG) بعض الملحوظات علي تحميل الاكسس 2002 التعامل مع الاكسس لأول مرة لماذا نستخدم قواعد البيانات ما هو الأكسس الأكسس هو نظام لادارة قواعد البيانات Database Management System : DBMS و بمعني آخر يقوم بتخزين البيانات ، و استرجاعها و عرضها بعدة طرق و بأكثر من أسلوب و من خلال الأكسس يمكن اعداد نماذج ادخال سهلة التناول و الاستخدام ، يتم من خلالها ادخال المعلومات. و تلك المعلومات يمكن استرجاعها و عرضها بعدة طرق مختلفة . و أهم ميزاته أنه يمكن توفير الكثير من المهام المتكررة بمجرد اعداد نموذج العرض أو التقرير المناسب و الذي يستقي بياناته تلقائيا من خلال المعلومة التي أدخلت أو حدثت و كل ماعلي المستخدم بعد ذلك هو فتح نموذج العرض أو التقرير و عرضه أو طباعته أي أن المعلومة تدخل مرة و احدة ويؤثر ذلك فى محتويات كل نماذج العرض و التقارير الموجودة بدون أن يبذل المستخدم أي مجهود بجانب الاعداد الاولي للبرنامج و ادخل البيانات . و سيتضح ذلك بالتفصيل لاحقا نتيجة لوجود تقنية ال Object Linking and Embedding : OLE يمكن لاكسس احتواء أي عمل معد بواسطة باقي عائلة الاوفيس مثل الوورد ، الاكسل ، والباور بوينت كما يمكنك الاكسس من ربط البرنامج ببيانات متنوعة موجودة علي جهاز خادم (سيرفر) أو علي نفس الجهاز ، و أيضا بالعديد من الأنواع مثل البيانات الموجودة فى اكسيل مثلا بالاضافة الي الفورم و التقارير أيضا هناك تطوير كبير فى تقنية صفحات الاكسس Access Pages و التي أصبحت تمكنك من اعداد نماذج قابلة للعرض و تعديل البيانات من خلال شبكة داخلية او حتي من خلال الانترنت ، كما سنري لاحقا ، و قد كانت هذه التقنية فى اكسس 2000 لا تتناسب سوي مع متصفح الاكسبلورر 5 أما الآن فهي أعم و أشمل مستويات إستخدام الأكسس يتضح من الرسم أعلاه أن برنامج أكسس يصلح للاستخدام بعدة مستويات : المستوي الاول : أبسط استخدام و هو التعامل مع كائنات الاكسس الاساسية الجداول الاستعلامات النماذج التقارير المستوي الثاتي : و هو استخدام الدوال الجاهزة و التعبيرات المستوي الثالث : الماكروهات الجاهزة المستوي الرابع : استخدام فيجوال بيزيك التطبيقات ، مما يمكنك من بناء تطبيقات معقدة المستوي الخامس و الأعلي : هو استخدام دوال API : Application Programming Interface و التي بواستطعها يمكن استدعاء دوال أو ملفات DLL مبنية بلغات أخري حيث DLL هو اختصار Dynamic Link Library و كل من المستويات الخمسة يسمح ببناء تطبيق و لكن المستوي يختلف :yess: الأكسس و قواعد البيانات العلائقية Relational Database يقدم الاكسس نموذجا رائعا لادارة قواعد البيانات العلائقية ، بمعني القدرة علي إدارة أكثر من جدول داخل ملف واحد بحيث ترتبط هذه الجداول بعلاقات متعددة تسمح بالتعامل مع البيانات الموجودة فى هذه الجداول من خلال نموذج واحد فمثلا اذا كان هناك جدول يحتوي علي بيانات مجموعة من الأفراد، و هناك بيانات متعددة تخص الادارات التي يعملون بها فبدلا من تضمين جميع بيانات الادارة أمام كل موظف فى الجدول ، يتم تخزين بيانات الادارات داخل جدول منفصل و يكتفي باضافة كود الادارة امام كل سجل فى جدول الموظفين ، و في هذا وفر كبير لنفرض ان بيانات الادارة مكونة من عدد 10 أنواع من البيانات فلو كان لدينا 1000 موظف و أردنا تسجيل بيانات الادارة كاملة مع بيانات كلموظف لتكررت بيانات الادارات (العشر أنواع ) 1000 مرة بدلا من تكرارها 5 مرات فقط فى جدول الادارات (بعدد الادارات) بالاضافة الي حقل واحد فقط فى جدول الموظفين و هو رقم الادارة هو الذي سيتواجد بعدد 1000 مرة أي أن كل موظف نضع مع بياناته كود ادارته فقط و نسجل بيانات الادارات الخمسة فى جدول منفصل و بربط جدولي الموظفين و الادارات نستطيع الحصول علي جميع البيانات مع التوفير فى حجم البيانات ، مما يوفر سرعة أكبر فى التعامل مع البيانات أيضا حقل رقم الادارة سيكون عادة رقم ، و هو بذلك يكون أسهل فى البحث و الترتيب من العشر بيانات الخاصة بالادارة و منها بالطبع أسماء. و الآن لنتوقف قليلا امام بعض المصطلحات التي استخدمناها ، لعلها تكون جديدة علي بعض الأخوة ، و سنعرض لها علي عجالة و سيأتي تفصيلها لاحقا : الجداول هي مكان تخزين البيانات فى أكسس ، و يتكون كل جدول من عدة حقول أو أماكن لتخزين البيانات يتم تخزين بيان معين فى كل منها ، فمثلا رقم الموظف و اسمه و عمره اذا يصير لدينا 3 حقول فى جدول اسمه الموظفين . و اذا أدخلنا هذه البيانات لعدد 100 موظف أي مائة سطر يصبح لدينا عدد مائة سطر ( أي مائة سجل ) و هذا تعريف الجدول و الحقل و السجل علي عجالة مؤقتة مفهوم أن ما تراه هو ما تحصل عليه (WYSIWYG) What you See Is What You Get WYSIWYG تشترك النماذج و التقارير فى هذه الخاصية أي أنك يمكنك تنسيق الكائنات فيها كما تراها علي الشاشة ثم تشاهد كيف سيكون المنتجة النهائي بالضغط علي زر . بعض الملحوظات علي تحميل الاكسس 2002 الحد الأدني المطلوب لمواصفات الجهاز ( نظريا) : PIII 350 MB , 64MB RAM و للاستخدام المريح : 128 MB RAM التحويل بين الاصدارات المختلفة لأكسس أكسس 2002 يوفر الدعم الكامل لملفات اكسس 2000 ، مما يتيح اامستخدم العمل علي أي من الاصدارين ، و لكن بالطبع عدم استخدام نظام ملفات 2002 سيحرم المستخدم من بعض الاضافات الجديدة و النظام الافتراضي هو 2000 مما يناسب من يوجد لديه مستخدمين يعملون علي اكسس 2000 ، و لتغيير النظام الافتراضي : Tools , options, Advanced , Default File Format و أكسس 2002 يقبل التحويل من الاصدارات رقم 2و95و2000 الي 2002 التعامل مع الاكسس لأول مرة مكونات قاعدة البيانات : تتكون قاعدة البيانات من مما يلي : الجداول : لتخزين البيانات الاستعلامات : لاسترجاع البيانات المطلوبة و ايضا لأداء بعد الافعال مثل التحديث و الحذف و الالغاء و تكوين جدول جديد النماذج : واجهة استخدام للاضافة و التحديث و الحذف علي البيانات الموجودة فى الجداول ( شاشات تعامل مع البرنامج) التقارير : لتحليل أو لطباعة البيانات بشكل معين. صفحات الاكسس : للعرض و التحديث و لتحليل البيانات المخزنة فى الجداول من خلال شبكة الانترنت أو من خلال شبكة محلية بالاضافة الي الماكروهات و الموديول و هنا نؤكد ثانية علي الميزة الاساسية فى استخدام قواعد البيانات وهي أنك تخزن البيانات فى الجداول مرة واحدة و عندما تحدثها ، يتم تحديثها بصورة آلية فى جميع الأجزاء التي تظهر و تؤثر فيها هذه المعلومة آليــــــــــــــــــاً موضوع الحوار حول هذه الحلقة من هنا و هو مفتوح للحوار من 5-7-03 حتي 11-7-03 بإذن الله

الكود Dim mytable As ADODB.Recordset Set mytable = New ADODB.Recordset mytable.Open "TABLE1", ActiveConnection, adOpenDynamic mytable.AddNew mytable!Name = [Forms]![UnboundForm]![Name] mytable!Salary = [Forms]![UnboundForm]![Salary] mytable!Birthday = [Forms]![UnboundForm]![Birthday] mytable.Update mytable.Close مرفق المثال UnboundADO.zip

الكود : Dim mydb As database, mytable As Recordset Set mydb = CurrentDb Set mytable = mydb.OpenRecordset("table1", DB_OPEN_TABLE) mytable.AddNew mytable!Name = [Forms]![UnboundForm]![Name] mytable!Salary = [Forms]![UnboundForm]![Salary] mytable!Birthday = [Forms]![UnboundForm]![Birthday] mytable.Update mytable.Close Set mydb = Nothing مرفق المثال UnboundDAO.zip

بارك الله في جهدك و وقتك وزادك علما

الكود DoCmd.RunSQL "INSERT INTO Table1 ( Name, Salary, Birthday ) select [Forms]![UnboundForm]![Name] as exp1, [Forms]![UnboundForm]![Salary] as exp2, [Forms]![UnboundForm]![Birthday] as exp3;" مرفق المثال UnboundSQL.zip

السبب استخدامك للحروف العربية في الكود مع الابقاء على المسافات الخالية مثال2.accdb

وعليكم السلام - تفضل

انا عاوز اشكرك حضرتك على المعادلة الرائعة لانها فعلا حلت مشكلة كبيرة فى شغل الموردين -- جزاك الله كل خير

الاخ الكريم مع انك لم ترفع ملف فيه شرح كافي لما تريد اليك المرفق test2021.xlsm

رافقكم السلام جميعا. آمل أن يزدهر كل شخص هنا ويحظى بحياة رائعة في المستقبل. نحن جميعًا مسافرون في هذا العالم وآمل أن تتمكن دائمًا من رؤية الخير في الآخرين. لا يهم ما هو التحدي الذي قد نواجهه ، تذكر دائمًا أن هناك سببًا لكل شيء ، وعلينا جميعًا أن نكافح من أجل ما هو حقيقي وصحيح. تذكر أن الحقيقة يجب أن تسود دائمًا في حياتنا ، وهذا يعني أنه يتعين علينا البقاء في الكفاح والحفاظ على الإيمان للسنوات القادمة مع تقدمنا في العمر.

أنا متأكد من أن الكثير من الناس يمكنهم استخدام خدماتك. أعتقد أن معرفة اللغة التركية يمكن أن يساعد كثيرًا خاصة هنا. يمكنك حقًا الحصول على المزيد من العمل على المدى الطويل. فقط تأكد من التحلي بالصبر الكافي لأنه في بعض الأحيان هناك عملاء معينون يطلبون الكثير من وقتك وجهدك على المدى الطويل. أتمنى لك كل التوفيق والتوفيق في عملك آمل أن تجد وظيفة رائعة هناك وأن تحصل على بعض العملاء الجيدين أيضًا. نرجو أن تنعم بالعديد من الأشياء في الحياة وتزدهر أيضًا.

جرب : اعمل قاعدة بيانات جديدة على 2016 ثم اجلب اليها الكائنات من المثال السابق .

الاخ الفاضل السلام عليكم جزاكم الله كل خير برجاء ارسال نسخة على ahmadkaddy@gmail.com وشكرا

السلام عليكم salahhellel@yahoo.fr شكرا.

السلام عليكم بارك الله بكم وبجهودكم المبذوله ارجو ارسال الملف على الايميل nazarco2000@gmail.com

السلام عليكم لو سمحت على الايميل tarek_f26180@hotmail.com لو امكن ممكن يكون فيه صادر عادي وصادر سري ووارد عادي ووارد سري

تم تحديث الملف بإضافة الاصدار الربع فى مكتبة الموقع اضغط هنا Press here to Download revision 4.0 Analytic Hierarchy Process AHP This version allows to define relative weights for 15 criteria vs 9 only in previous version due to the large number of cells with dropdown list adn to avoid possible entry errors i developed a code to help filling the list (click here) , but no need to used it as this file already have the dropdown lists ready for use تحديد الأوزان النسبية للمعاير المختلفة هذا الإصدار يتيح حساب الأوزان النسبية لعدد 15 معاير مقابل 9 فقط في الإصدارات السابقة و لصعوبة اضافة بيانات القوائم المنسدلة لهذا العدد الكبير من الخلايا دون خطأ يدويا تم اعداد كود خاص للمساعدة فى اعداد الملف (يمكن الاطلاع عليه من هنا) و لكن لا حاجة للكود لاستخدام هذا التطبيق فالملف جاهز للاستخدام فقط تأكد من تفعيل الاكواد To use the file , start by listing the criteria you want to evaluate and define the relative weights for or use for evaluation الخطوة الأولى هي تسجيل قائمة الخيارات التي تود حساب أوزانها النسبية أو استخدامها فى التقييم it will be automatically listed in the comparison matrix as shown in this picture ستجد أن الخيارات قد تم اضافتها بالفعل إلى مصفوفة التقييم Evaluate the relative weights of each 2 items by choosing the appropriate value in the corresponding cell when comparing option A withoption B: then AAAA means major preference towards A compared to B AAA means medium preference AA means minor preference A means slight preference AB means both options have equal preference You need only to complete one half of the matrix , either the upper or lower half once done you will see the relative weights ready قم بتقييم الأهمية النسبية لكل خيارين على حدة عند مقارنة الخيار (A) و (B) فان الاختبار بكون كالتالي اذا كانت أهمية الخيار A كبيرة جدا مقارنة بالخيار B فيكون التقييم AAAA و تقل حتي تصل فارق بسيط فى الاهمية فى صالح الخيار أ فنعطي تقييم أ واحدة A و اذا تساوت الأهمية يكون الاختيار AB قم بتعبئة النصف العلوي او السفلي فقط من المصفوفة و ليس كامل المصفوفة فمجرد الانتهاء يمكنك الحصول على الأهمية النسبية لكل عنصر in the file you can go one additional step and evaluate difference alternatives based on the weighted criteria using the last section i the file all you have to do is to rate each option against the existing criteria using any fixed scale . 1 to 5 for example و الان يمكنك أيضا استخدام نفس الملف لعمل تقييم للبدائل المتاحة باستخدام المعايير و أوزانها النسبية و ذلك فى الجزء الأخير من الملف قم بتسجيل البدائل مثلا نوعين من السيارات أو ثلاثة ثم قم بتقييم كل نوع بحسب المعايير باستخدام مسطرة تقييم ثابتة (من 1 - 5 على سبيل المثال) The file will show the final evaluation scores and you can now make your decision in this case you should choose Model #2 ستجد قيمة التقييم النهائي لكل خيار موجودة فى الملف ، فقط قم باتخاذ القرار فى هذه الحالة سنختار الموديل #2 The previous versions of this file were used successfully in making many types of informed decisions by many of my friends and colleagues. for example choosing a car, comparing job offers , choosing a candidate for a job, ........ and and mainly tender evaluation الإصدارات السابقة من هذا التطبيق استخدمها العديد من زملائي و أصدقائي بنجاح لاتخاذ قرارات هامة بطريقة عملية و مهجية من صمن الأمثلة التي وردتني و العهدة على من أخبرني 😅: اختيار سيارة، اختيار مرشح لوظيفة، مقارنة وظيفة ممكنة بوظيفة حالية...، و أشياء أخرى، ... و أكثر الاستخدام كان فى تقييم المناقصات ملاحظة: أضفت المحتوى باللغة الانجليزية ايضا لدراسة تأثير ذلك على انتشار المشاركة

اعمل حقل في تذييل النموذج ثم في عرض التصميم الصق فيه هذه العبارة =Count("*") عدد السجلات.accdb

جزاكم الله خيرا ، اسال الله عز وجل ان يبارك لك أستاذ محمد

عليكم السلام تفضل يا اخى تقييم الطلاب.xlsx

أهلا بك.. أعتذر إليك إن كنت أحزنتك. في هذه المشاركة سوف أحاول مع من يتبرع من الزملاء من قراءة واستخلاص البيانات من الملفات النصية، وكيف يمكن وضع المحددات التي تساعد على ذلك.. الملف النصي: IAS_Out_Cs_Detail.txt * من الممكن جعل البيانات في جدول واحد.. يخض هذا الإجراء لصاحب العلاقة..! لكني لا أشجع عليهلكونه يتسبب في وجود كم كبير من البيانات المتكررة! - يتكون هذا الملف من ثالث طبقات من البيانات وكل طبقة منها يمكن أن تكون في جدول خاص، وهذا من الناحية الفنية أرتب لكنه مكلف من ناحية الشفرة! -- الطبقة الأولي: بيانات مركز التكلفة. -- الطبقة الثانية: بيانات أوامر الصرف. -- الطبقة الثالثة: بيانات بنود أوامر الصرف. * كيف يمكن استخلاص البانات؟ - بما أننا سنذهب إلى تقسيم البيانات إلى ثالث طبقات، فسوف نقوم بعمل التالي. -- إيجاد محدد فريد لكل طبقة (وليس للبيانات) -- تحويل البيانات في كل طبقة إلى مصفوفة بيانات وفقاً لمنط تكراري منتضم؛ إن أمكن (المصفوفة تسهل ضبط البيانات،لكن ليست شرطاً في المعالجة) -- إرسال البيانات إلى جدول البيانات * قراءة البيانات من الملف النصي هناك العديد من الطرق لقراءة البيانات من الملف النصي، من أسهلها التعليمة التالية Sub IAS_Out_Cs_Detail() Dim i As Integer Dim row, cols, col '-- open text file Open App_Path & "IAS_Out_Cs_Detail.txt" For Input As #1 '-- read data from text file Do Until EOF(1) '-- read text file line by line Line Input #1, row Loop Close #1 End Sub - أرجو التكرم يالذهاب لملف تعليمات VBA لمعرفة مدلولات هذه التعليمة *معالجة البيانات ستكون معالجة البيانات كما في الشفرة التالية Sub IAS_Out_Cs_Detail() Dim i As Integer Dim row, cols, col '-- open text file Open App_Path & "IAS_Out_Cs_Detail.txt" For Input As #1 '-- read data from text file Do Until EOF(1) '-- read line by line Line Input #1, row '-- make condition for each layer '-- first layer If row Like "مركز*" Then cols = Split(row, ":") For Each col In cols Debug.Print col Next Debug.Print String(100, "+") ElseIf row Like "الحساب*" Then cols = Split(row, ":") For Each col In cols Debug.Print col Next Debug.Print String(100, "=") Else cols = Split(row, vbTab) For Each col In cols Debug.Print col Next Debug.Print String(100, "-") End If Loop Close #1 End Sub - يوجد في هذا الملف بيانات خارجة عن الصف، سأتطرق لطريقة معالجتها عند رفع المثال * نقل البيانات للجداول التعليمات الخاصة بتقل البيانات للجداول سأشير إليها عند رفع المثال

السلام عليكم ورحمة الله ضع المعادلة التالية فى اول خلية ثم اضغط Ctrl + Shift + Enter ثم اسحب المعادلة افقيا و رأسيا =IFERROR(INDEX(البيانات!$B$686:$I$712;MATCH(($B2&"*?");البيانات!$B$686:$B$712&البيانات!C$686:C$712;0);COLUMN()-1);"")

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله في أحد الموضوعات لأحد الأخوة الأعضاء كان قد طلب كيفية إرسال رسالة بريد إلكتروني (إيميل Email) باستخدام ملف إكسيل واليوم أقدم لكم الطريقة بالتفصيل من الألف إلى الياء ... وإن شاء الله تكون الطريقة ناجحة ومفيدة للجميع الخطوات اللازمة لعمل المطلوب : فتح حساب جديد على الـ Gmail إذا لم يكن لديك حساب وكيفية إنشاء حساب جديد مشروحة بالصور : نقوم بفتح برنامج الـ Outlook من قائمة Start ثم All Programs وندخل بيانات الحساب الذي أنشيء على الـ Gmail .. بهذا الشكل : وأخيراً وبعد عملية إنشاء الحساب وربط برنامج الـ Outlook بحساب الـ Gmail .. نقوم بفتح ملف إكسيل وفي العمود الأول ندخل الإيميلات المراد إرسال بريد إلكتروني لها .. وفي العمود الثاني نكتب اسم صاحب الايميل (اختياري) وفي العمود الثالث نكتب محتوى الرسالة المراد إرسالها .. وهذا هو الكود الذي سيقوم بمهمة إرسال رسائل البريد الالكتروني دفعة واحدة لكل الإيميلات المسجلة لديك .. ملحوظة مهمة جداً : من خلال محرر الأكواد يتم إضافة المكتبة التالية Microsoft Outlook Object Library من القائمة Tools ثم References .. Sub Mail_To_Friends() Dim SendTo As String Dim ToMSg As String Dim I As Integer For I = 2 To Cells(Rows.Count, 1).End(xlUp).Row SendTo = ThisWorkbook.Sheets(1).Cells(I, 1) If SendTo <> "" Then ToMSg = ThisWorkbook.Sheets(1).Cells(I, 3) Send_Mail SendTo, ToMSg End If Next I MsgBox "Done ...", 64 End Sub Sub Send_Mail(SendTo As String, ToMSg As String) Dim OutlookApp As Object Dim OutlookMail As Object Set OutlookApp = CreateObject("Outlook.Application") Set OutlookMail = OutlookApp.CreateItem(0) With OutlookMail .To = SendTo .CC = "" .BCC = "" .Subject = "Hello Officena" .Body = ToMSg .Send End With Set OutlookMail = Nothing Set OutlookApp = Nothing End Sub وأخيراً إليكم الملف المرفق مطبق فيه الكود وفيه نموذج لشكل ورقة العمل .. ويوجد زر أمر لعملية الإرسال .. وهذا هو الملف تقبلوا وافر تقديري واحترامي كان معكم أخوكم أبو البراء من منتدى أوفيسنا Send Mass Emails Through Outlook Using Excel VBA YasserKhalil Officena.rar

مراحل العمل فى البرنامج : لعمل لبرنامج بأسلوب علمي هناك ثلاث مراحل متتالية : أولا ً : تحليل النظام : ثانيا : تصميم النظام : ثالثا : التنفيذ ( أو البرمجة ) الكثير من المبرمجين يتعاملون مع أول مرحلتين ، علي أنهما تحصيل حاصل ، و أنه يمكن تجاوزهما بناء علي الفهلوة أو الخبرة – تبعا لنظرية : العلم فى الراس مش فى الكراس. :lol: و لا أخفيكم أني كثيرا ما أفعل هذا ، و لكن لاتباع الاسلوب العلمي فى اعداد البرنامج فوائد جمة، أهمها هو التوثيق و سهولة استرجاع معلومات التصميم سواء من المبرمج نفسه أو من من يكمل العمل بعده فى نفس البرنامج و هذا يقودني الي كلمة طالما تحدثت عنها مع إخوان لكم فى مواقع مماثلة ، و لكن دائما كانت تلقي القبول و ليس لها حظ كبير من التنفيذ ، الا و هي " التوثيـــــــــــــــق " و هذه الكلمة كما لها علاقة بالاكسس و البرمجة ، لها علاقة كبيرة بحياتنا كلها ، لذا أستميحكم عذرا أن أعرض لها علي عجالة قبل أن أكمل التوثيق و تناقل و حفظ الخبرات الفرق الاساسي و الكبير (( من وجهة نظري المتواضعة )) بيننا و بين ما يسمونه دول العالم الاول من ناحية الادارة ، هو النظام الاداري الموثق المتبع فى كل شيء فى العمل ، و عليه فيتم تناقل الخبرات بصورة كبيرة و دائما هناك إكمال للمسيرة و البداية من حيث إتنهي الأخرون و ليس من الصفر فالمؤسسات صغرت أم كبرت ، لديها نظام إداري محكم و مكتوب ، و الجميع يلتزم به و يعرف حقوقه وواجباته ، و المشاكل يتم توثيقها ليستفيد بها الغير . و لكي تتضح الصورة لما أقصد سأضرب لكم مثلين تعرضت لهما شخصيا فى العمل مع الأجانب ، و أثرا في كثيرا. الأول كنت أعمل فى إحدي الدول العربية ، و كنت أتبع أحد الأجانب إداريا. و طلب مني القيام بعمل ما و اطلاعه علي ال Procedure أو وثيقة الاجراءات للعمل الذي سأقوم به قبل البدء. فاستغربته ، و ظننت أني بانجاز العمل مباشرة سأبهره ، و فعلا أعددته بسرعة و عرضته عليه ، فاستغرب جدا ، و قال لي " لا يمكن أن يقوم إنجليزي يعمل فى شركة كبيرة بمثل هذا العمل قبل أن يكون هناك وثيقة مكتوبة لأسلوب العمل " و أصر و أراني وثيقة مماثلة لما يقصد ، و بعد قرائتها و اعداد مثيلة لها علي مضض ، فهمت المغزي من وراء ذلك. هذه الوثيقة تم فيها تحديد المعايير المختلفة لأسلوب العمل ، و تحديد الفرضيات التي يم بناء الحسابات عليها ، باختصار وصف لكل ما كنت سأضطر لشرحه لأي شخص يريد فهم تفاصيل العمل الذي قمت به ، و مع الوقت وفرت علي هذه الوثيقة الكثير من الكلام عند مراجعة هذا العمل مع أشخاص مختلفين ، و عند تسليم هذا العمل لشخص آخر ، و أيضا حينما أعيد إسناد نفس العمل لي فى وقت لاحق . أيضا أثناء مناقشة مشكلة فنية ، تصورت أن المرجع الوحيد للمناقشة هو الخبرة و المنطق ، و بعد فترة من النقاش ، أخرج الأجنبي ملفات و رجع اليها ، ثم قال عندما اتبع هذا الحل فى بلد كذا فى مشروع كذا .. كانت العيوب كذا .. و الحل الآخر .. ميزاته كذا .. و ... ، يعني وجدت خبرة شركته فى جميع أنحاء العالم منذ عشرات السنين موثقة و مكتوبة و متاحة له و لباقي مسئولي الشركة . و هنا أدركت أهمية التوثيق و تناقل الخبرات ، و عرفت أحد أهم أسباب ما قد يسمي بالتقدم الاداري و التخلف الاداري ، الا و هو التوثيق نعود لموضوعنا :) و عليه فان توثيق البرنامج من الأهمية بمكان لك و لغيرك ، فنصيحتي لكم و لنفسي الا نتجاوز المرحلتين الأوليين ، و الا نمر عليهما مرور الكرام ما يلي هو تصورات شخصية ، من الخبرة و بعض الكتب ، و لا يجب اعتباره مرجع علمي ، و انما هي تصوراتي و خبرتي أنقلها اليكم للنقاش حولها : أولاً تحليل النظام : تحليل النظام هو فهمنا للنظام المطلوب انشاؤه و لكي نصل الي هذا الفهم : 1. نفهم قواعد نظام العمل 2. مواصفات احتياجات و متطلبات العميل 3. تخطيط مبدئ لشكل واجهة الاستخدام ( من ناحية طلبات العميل ) أو بمعني آخر هي مرحلة تجميع للبيانات الخاصة بالنظام المطلوب عمل برنامج له و يمكن تصنيف المعلومات الي : 1. المدخلات 2. المخرجات 3. النقاط الواجب مراعاتها 4. وصف عام لعمل البرنامج و مجاله أي ماذا سيغطي و ماذا لن يتطرق اليه هذا البرنامج _ و ما هي النقاط التي تؤثر فيه 5. رسم Flow Chart يمثل آلية نظام العمل • و في نهاية هذه المرحلة يتم اعداد مستند يسمي مستند لتحليل النظام . ثانيا تصميم النظام : بناء علي مستند تحليل النظام تبدأ هذه المرحلة : ملاحظة : أن هذا الكلام كله بعيدا عن التصميم و الجداول و الكائنات و الأكسس ككل ، و انما مجرد وصف و تحليل منطقي للنظام ، و لا يرد ذكر الجداول الا في المرجلة الاخيرة و هي بدء تنفيذ البرنامج ( تصميم الجداول) باختصار ما يتم فى هذه المرحلة هو تصميم البرنامج علي الورق ، أي تصور للبرنامج و امكانياته و هيكله و الاهدافه و قواعده و الحركة داخله ، و العمل اليومي عليه ، و تفاصيل شاشاته و استعلاماته و تقاريره أو بمعني أبسط ، توثيق ما يتخيله المبرمج عن البرنامج قبل أن يبدأ التنفيذ . و فى هذا فائدة عظيمة لأن التوثيق مفيد سواء فى حال الرغبة فى التعديل بعد فترة أو حينما يكمل مبرمج آخر العمل في المشروع كما ذكرنا سابقا. أحيانا أحب أن أسمي هذه المرحلة ( شخبطة البرنامج ) ، فانما هي تنفيذ البرنامج و توثيق الفكر المتبع فيه و لكن علي الورق. أو أيضا بمعني آخر ترجمة و توثيق للمعطيات التي حصل عليها المبرمج ( علي الورق ) و توجد بعض الاساليب العلمية فى التصميم مثل اسلوب علاقات الكائنات Entity relationship diagram ERD و الذي يغني عن الخبرة فى ترجمة التحليل و التصميم الي تنفيذ ( جداول ) ، و سنعرض له فى موضوع منفصل و أحد التصورات عن مرحلة التصميم هي كالتالي 1- الوصف العام للنظام a. وصف ملخص للنظام b. أهداف النظام نقاط محددة توضح فوائد النظام و الخدمات الني يقدمها c. هيكله هيكل تنظيمي Flow Shart يوضح الاجزاء الرئيسية للبرنامج ( من حيث التقسيم و ليس النماذج) أي بمعني أكثر وضوحا الاعمال الرئيسية التي يغطيها البرنامج و التفاصيل التي تندرج تحت كل منها d. القواعد العامة لاستخدامه وصف عام و ليس تفصيلي لشاشات العرض وصف عام لشاشات الادخال اللانتقال بين الحقول و الاختصارات المستخدمة قواعد عامة لكتابة المدخلات قواعد عامة فى النماذج قواعد عامة فى الطباعة و التقارير قواعد تسمية الشاشات قواعد تسمية التقارير أنواع الصلاحيات المختلفة فى البرنامج 2- الحركة داخل النظام فى هذا الجزء ، سيكون هناك شكل للشاشات و التقارير ( كروكي ) بدون تنسيق مصحوب بوصف للبيانات الموجودة فى كل شاشة و بيانات الحركة منها الي الشاشات المختلفة ، و بيان الصلاحيات النختلفة للتعامل مع كل شاشة و كل جزء منها ان وجد . 3- العمل اليومي و الدوري علي البرنامج وصف للعمل اليومي علي البرنامح و ما يقوم به كل من المستخدمين وصف للعمل الدوري علي البرنامح ( المهام التي يقوم بها المستخدم فى نهاية كل فترة أو كل مرحلة من مراحل الاستخدام ) و ما يقوم به كل من المستخدمين ( مثل الجرد مثلا ) 4- ادارة النظام وصف للعمليات الخاصة بالادارة و النقاط الواجب مراعاتها فيها مثل النسخ الاحتياطي ، و التوجيه علي الشبكة ، ... و بعد انتهاء هذا الجزء ، يبدأ الجزء الثاني من المرحلة الثانية و هو ال ERD كما سبق او تخطيها و القفز مباشرة الي تصميم– و هذا الحل سيعتمد علي الخبرة أكثر من الترتيب العلمي للعمل ، و فى حالة الدخول الي التصميم مباشرة يجب الاهتمام بتوثيقه و شرحه شاملا التصميم و العلاقات و كيفية اختيارها ثالثا التنفيذ و هو الذي يبدأ بتحديد الهيكل العام للجداول و العلاقات بعض الملاحظات الخاصة بالتسميات • يجب كون التسميات للحقول و الكائنات بالانجليزية ، و يفضا استخدام نسخة الأكسس ذات واجهة التطبيق اللإنجليزية – و هذا ليس حبا فى الانجليزية و لكن لأن العربية لها مشاكل مع كتابة أكود البيزيك . • يجب وجود نظان ثابت للتسميات بمعني أنه علي سبيل المثال فى البداية كنت أفضل البدايات المختصرة للتسميات مثل : o كل النماذج تبدأ بحرف F – فيكون نموذج الموظفين اسمه FEMP أو F_EMP o كل التقارير تبدأ ب R و الاستعلامات تبدأ ب Q و بعد عدة مناقشات لنظام تسميات طرحه الأخ أبو هاجر استنادا الي موقع ميكروسوفت ، وصل المتناقشين الي قناعة بأن هذا النظام هو الأفضل الا و هو الموجود هنا http://www.officena.net/Tips/Naming.htm هناك بعد الاقتراحات الاضافية : للتسميات ، و هي ليس لها ممرجع و لكن تفضيلات شخصية : o في حالة كون الحقل يعبر عن كود فيكون فى نهايته C مثلا كود العامل EMP_C أو EMP-C أو EMPC مثلا o في حالة كون الحقل يعبر عن اسم فيكون فى نهايته N مثلا كود العامل EMP_N أو EMP-N أو EMPN مثلا o في حالة كون الحقل يعبر عن وصف فيكون فى نهايته D أو DES مثلا كود الحالة STATUS_D أو STATUS -D أو STATUS-DES مثلا موضوع الحوار حول هذه الحلقة من هنا و هو مفتوح للحوار من 5-7-03 حتي 11-7-03 بإذن الله

تصدير قاعدة بيانات التلاميذ من الاكسيل إلى قاعدة البيانات الخاصة بالحكومة الاكترونية الملف في الرابط التالي https://drive.google.com/file/d/1DP739A1BdYCGxTzIN_WYc_EFKYIcKvsq/view?usp=sharing وللاستفسار أنا في الخدمة وسوف أقوم بعمل فيديو لشرح كيفية تسجيل البيانات في الاكسيل ثم رفع على موقع الوزارة دفعة واحدة وذلك في حال طلب ذلك من الاعضاء الكرام إن شاء الله تعالى

السلام عليكم هذا الكود في حدث الورقة في كل الملفات التسلسليه Private Sub Worksheet_Change(ByVal Target As Range) If Not Intersect(Target, [D1]) Is Nothing Then Dim Str_B As String Dim T_A Str_B = "main.xls" If B_A(Str_B) Then If Target.Value = 1 Then Dim S As Worksheet With Workbooks(Str_B) T_A = Target.Offset(0, -1).Text .Activate Set S = .Sheets(1) S.Cells(S.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0).Row, 3) = T_A End With End If Else MsgBox Str_B & " الملف مغلق", vbOKOnly + vbExclamation Exit Sub End If End If End Sub وهذا الكود في مودويل برضه في كل الملفات التسلسليه Public Function B_A(Str_B As String) As Boolean Dim Work As Workbook On Error Resume Next Set Work = Workbooks(Str_B) On Error GoTo 0 If Work Is Nothing Then B_A = False Else B_A = True End If End Function خلينا نشمي حبه حبه اذا ملف main مغلق لاينفذ الكود اذا خلية D1 = 1 ينسخ خلية C1 الى ملف main في العمود C بعد اخر خليه بها بيانات * طيب متى ينفذ الشرط الاخر وهو حذف القيمة السابقة التي في ملف main * هل هو بمجرد كتابة رقم غير 1 يروح يحذف القيمة السابقة من ملف main للملف الحالي فرضا هو 1 ? * وهل مسموح التكرار قيمة من احد ملفات التسلسليه في ملف main ? ارجو الرد

السلام عليكم أخي الحبيب تفضل الملف وبه الكود Suppliers2012_2.rar

هذا المثال يوضح كيفية استخدام Sumif Dsum Dcount للحصول علي عدد السجلات المختارة ، و مجموع حقل معين للقيم المختارة فى نموذج به مربع اختيار و التعبيرات المستخدمة كالتالي لعد السجلات : =Sum(IIf([HasLoan]=-1;1;0)) و =DCount("[hasloan]";"Table1";"[hasloan]=-1") و لجمع حقل معين : =Sum(IIf([HasLoan]=-1;[salary];0)) و =DSum("[Salary]";"Table1";"[hasloan]=-1") SumIF.rar

السؤال : كيف يمكن عمل استعلام تكوين جدول Make Table Query بحيث يسأل عن اسم الجدول المطلوب تكوينه و اسم الملف الذي سيتم تكوين الجدول به أثناء التشغيل الإجابة : Private Sub Command16_Click() Dim x As String, y As String, z As String x = Trim(InputBox("Enter the Table name", "Table name", "Table1")) y = Trim(InputBox("Enter the Dbase Path", "Path", "c:\db2.mdb")) If Trim(Right(y, 4)) <> ".mdb" Then y = y & ".mdb" End If z = "SELECT Table1.m, Table1.mm INTO " & x & " IN '" & y & "' FROM Table1;" MsgBox z DoCmd.RunSQL z End Sub make_table_selective.zip

لماذا نستخدم جمل SQL بالرغم من انه يمكن عمل ذلك من خلال نافذة التصميم للاستعلام: اولاً: ان الكثير من مزايا جمل SQL لا يمكن الوصول اليها من نافذة التصميم للاستعلام ... على سبيل المثال لا يوجد طريقة لانشاء استعلام توحيد او استعلام جزئي او استعلام تمرير ولعمل ذلك عليك كتابة جمل SQL مباشرةً ثانياً: لا يمكن استخدام لغة معالجة البيانات (DML) او الـ (DATA MANIBULATION LANGUAGE) من خلال نافذة التصميم للاستعلام ولاستخدام هذه اللغة عليك كتابة جمل SQL مباشرةً