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

2222.xlsm

تابع الصورة .... تفصيل التقرير .... لون بديل .. بلا لون

تفضل تعديل على الكود - الترحيل على اساس شروط ثلاث -استثناء بعض الارقام2.xlsm

السلام عليكم ورحمة الله وبركاته السادة الأفاضل الأساتذه الأفاضل أحباء هذا الصرح العظيم أقدم لكم اليوم Microsoft Office Professional Plus 2019 أرجوا أن ينال إجابكم https://officecdn.microsoft.com/pr/492350f6-3a01-4f97-b9c0-c7c6ddf67d60/media/en-us/ProPlus2019Retail.img

متشكر جدا مستر عماد انت من القلائل ال بتعطي المعلومة كاملة

الكود الخاص بالهايبر لينك محتاج عمود لوحده لأنك كل ما تزود عدد الشيتات بيزداد العدد فى الهايبر لينك علشان كدا ادخل على الكود هتلاقى r=3 ,c=2 غير ال c وخلى بدل ال 2 فى c رقم 18 هتللاقى الهايبر ظهرلك فى العمود R

تفضل تم التعديل Entharat.rar

زيادة مدى.xlsm

السلام عليكم ورحمة الله هذا حل آخر باستعمال الدالة SUMPRODUCT (أو SOMMEPROD) في الملف المرفق.. تم بعض التعديل على الملف (جدول الحروف والقيم المرفقة بها)... بن علية حاجي 6 A B C D E F.xlsx

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

مازال الوضع كما هو استاذى الكريم لاحظ حضرتك بنفسك فما هو الحل فى التصطيب

حاضر ان شاء الله قريباً .. احببت ان اجزء الموضوع لكي يسهل فهم الاكواد

السلام عليكم اخي العزيز توجد هنالك طريقتان للتسعير 1- الطريقة المحاسبية ( وهي تقسم الى ثلاث اقسام ) 2- الطريقة اللوجستية ( وهي طريقة معقدة نوعاً ما ) الطريقة الاولى : المحاسبية طريقة الوارد اولاً صادر اولاً (FIFO) : وهي باختصار بسيط جدا ان ما دخل الى المخزن اولاً يصرف اولاً عند الطلب (في حالة توريد الى المخزن متعدد) طريقة الوارد اولاً صادر اخيراً (LIFO) : وهي باختصار شديد ان ما دخل الى المخزن اولاً يصرف اخيراً عند الطلب (في حالة توريد الى المخزن متعدد + اختلاف اسعار التوريد) يعتمد على السعر الاخير طريقة المتوسط الحسابي المرجح : وهي باختصار شديد مجموع الواردات للمخزن مقسوم على مجموع الاسعار خلال فترة زمنية محددة كان تكون شهر واحد الطريقة الوجستية : وهي باختصار شديد ان تضع معيار الى مبلغ الاستثمار كان يكون ان تودع مبلغ الاستثمار في مصرف (بنك) وتحسب الفوائد المترتبة او الارباح الناتجة من الايداع خلال فترة زمنية محددة مثلا سنة ثم تعتبر راس المال مساوي للمبلغ المودع + الفوائد ثم تقارن بين راس المال الجديد مع مقدار ما يتحقق من ارباح من المشروع فاذا كان متساوي فاحسن ايداع المال في المصرف وتحصل على نفس الارباح دون عناء اما اذا كان الفارق كبير فالاستثمار افضل ثم تقول بحساب التفاصيل كل على حده مقسمة اما على ربع سنة او نصف سنة او سنة كاملة او .... حسب مبلغ ومدة الاستثمار مثال للتوضيح : لو استثمرت مبلغ 1000000 دولار لشراء كمية من اجهزة الموبايل فماذا تعمل 1- نضع المعيار ( ايداع في مصرف ) الفوائد المترتبة للسنة الواحدة في المصارف الحكومية 6% اما في المصارف الاهلية يصل الى 13% . لناخذ على سبيل المثال 10% لسهولة الحساب فيكون راس المال المتحقق خلال سنة 100000 خلال سنة 2- يكون راس المال المعياري 1100000 3- حساب التفاصيل ( على سبيل المثال لا الحصر ) لانها كما اشرت طريقة معقدة تتطلب خبرة عالية أ- ما هي المدة الزمنية لتصريف كافة البضاعة ب- ما هي التكاليف المترتبة على خزن البضاعة لهذه المدة ج- ما مقدار الجهد المبذول خلال هذه المدة عند المقارنة بعمل اخر او بدون عمل كما في حالة الايداع د- ماهي التكاليف المترتبة على التقادم والاستهلالك : مثلا الكسر او التلف او الارجاع ه- ماهي التكاليف المترتبة من تغيير الاسعار او سعر الصرف و- ماهي التكاليف المترتبة على التقدم التكنلوجي خلال هذه الفترة : مثلا شركة هاواوي قامت بطرح اكثر من 8 نماذج من الموبيل للفئة المتوسطة ونموذجين للفئة المتقدمة وهذا اثر بشكل كبير في الاسعار بين اول المدة واخر المدة ز- ماهي تكاليف القيمة المضافة ح- ما هي تكاليف المترتبة على وجود المنافسين في السوق ط- ما هي التكاليف لتغير اذواق المستهلكين *** اسف على الاطالة لكن هذا مع الاسف هو المختصر الشديد جداً اقول قولي هذا واستغفر الله لي ولكم . وله المنه والحمد ومنه التوفيق

وعليكم السلام تفضل 2.xlsm

تفضل هذا مثال طبق عليه انسخ المديول وانسخ البيانات الفورم السعر.accdb

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

السلام عليكم بالاضافة الى ما قاله اخي ابوعلي ، هناك اشياء اخرى يجب النظر فيها ، مثل: و جعفر

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

شرح البرنامج: 1- يتعامل البرنامج مع الرجستري في حماية النسخة ( الريجستري عباره عن قاعدة بيانات في نظام التشغيل Windows .و يحتوي على معلومات أجهزة النظام و البرامج المثبتة والإعدادات، و بيانات حسابات المستخدمين على الكمبيوتر. و أي عملية تقوم بها على الجهاز تخزن بالريجستري . ) 2- عند أول تشغيل للبرنامج يقوم بحفظ تاريخ أول يوم للاستخدام و عدد أيام النسخة التجريبية و خوارزمية التفعيل كلها في الرجستري و يحذف الجدول الذي يحمل جميع البيانات بعد نقلها و حفظها بالرجستري. 3- للإطلاع على الجدول tbl الذي يشتمل المعلومات المهمة يجب عليك فتح البرنامج في وضع التصميم دون تشغيله لأنه عند أي تشغيل للبرنامج سوف يحذف الجدول و في حال لم تجد الجدول حمل نسخة أخرى من البرنامج. 4- اسم الحقل الذي يحدد مدة الفترة التجريبية هو nemberday 5- كل مرة تقوم بتشغيل البرنامج يقوم بحفظ التاريخ و الوقت الحاليين في الرجستري لمنع التلاعب بالتاريخ. 6- لحفظ قيمة بالرجستري نستخدم الكود التالي: SaveSetting AppName , Section, Key ,Setting appName اسم المجلد الرئيسي Section القسم KEY المفتاح Setting القيمة المراد تخزينها 7- لاستعادة القيمة من الرجستري نستخدم الكود التالي: dim X X = GetSetting(AppName , Section, Key) X هو الذي سوف يأخذ القيمة التي سوف نستدعيها 8- لحذف القيمة من الرجستري نستعمل الكود التالي: DeleteSetting AppName , Section, Key 9- و هذه هي الوحدة النمطية التي إستعملتها في البرنامج: Function salah(frm1 As String, frm2 As String, frm3 As String) 'On Error Resume Next Dim firstdate As Date Dim lastdate As Date Dim lasttime As Date Dim expdate As Date Dim nameschool As String Dim numschool As Double Dim khawarezmia As String Dim nember_days As Integer '-------------------------------------------------------------------- firstdate = GetSetting("aa", "bb", "firstdate", Nz(firstdate)) If firstdate = Empty Then SaveSetting "aa", "bb", "firstdate", Date End If firstdate = GetSetting("aa", "bb", "firstdate", Nz(firstdate)) '--------------------------------------------------------------------- lastdate = GetSetting("ss", "tt", "lastdate", Nz(lastdate)) If lastdate = Empty Then SaveSetting "cc", "dd", "lastdate", Date End If lastdate = GetSetting("ss", "tt", "lastdate", Nz(lastdate)) '--------------------------------------------------------------------- lasttime = GetSetting("zz", "hh", "lasttime", Nz(lasttime)) If lasttime = Empty Then SaveSetting "ee", "ff", "lasttime", Now End If lasttime = GetSetting("zz", "hh", "lasttime", Nz(lasttime)) '--------------------------------------------------------------------- nember_days = GetSetting("mm", "nn", "nember_days", Nz(nember_days)) If nember_days = Empty Then nember_days = 1 End If expdate = DateAdd("d", nember_days, firstdate) '--------------------------------------------------------------------- khawarezmia = GetSetting("gg", "pp", "khawarezmia", Nz(khawarezmia)) If khawarezmia = Empty Then numschool = DLookup("numscho", "tbl") SaveSetting "ii", "jj", "numschool", numschool khawarezmia = DLookup("khawr", "tbl") khawarezmia = Replace(khawarezmia, "numschool", numschool) SaveSetting "gg", "pp", "khawarezmia", khawarezmia nameschool = DLookup("namescho", "tbl") SaveSetting "kk", "ll", "nameschool", nameschool nember_days = DLookup("nemberday", "tbl") SaveSetting "mm", "nn", "nember_days", nember_days End If For Each ttable In CurrentData.AllTables If ttable.Name = "tbl" Then DoCmd.DeleteObject acTable, ttable.Name End If Next If Date < lastdate Then MsgBox "تاريخ الجهاز خاطئ" DoCmd.Quit Else If Date = lastdate And lasttime > Now Then MsgBox "ساعة الجهاز خاطئة" DoCmd.Quit End If If Date >= expdate Then MsgBox "إنتهاء مدة التفعيل عليك الإتصال بالمبرمج " SaveSetting "mm", "nn", "nember_days", 1 DoCmd.OpenForm frm3 DoCmd.Close acForm, frm1 Else SaveSetting "zz", "hh", "lasttime", Now SaveSetting "ss", "tt", "lastdate", Date nt = DateDiff("d", Date, expdate) MsgBox "بقي لك " & nt & " يوم على إنتهاء التفعيل" DoCmd.OpenForm frm2 DoCmd.Close acForm, frm1 End If End If End Function 10- و هذا الكود الخاص بإعادة التفعيل: numschool = GetSetting("ii", "jj", "numschool", Nz(numschool)) '--------------------------------------------------------------------- khawarezmia = GetSetting("gg", "pp", "khawarezmia", Nz(khawarezmia)) '--------------------------------------------------------------------- nameschool = GetSetting("kk", "ll", "nameschool", Nz(nameschool)) '--------------------------------------------------------------------- nember_days = GetSetting("mm", "nn", "nember_days", Nz(nember_days)) '--------------------------------------------------------------------- If Me.numero_act = Eval(khawarezmia) Then SaveSetting "mm", "nn", "nember_days", 140 nember_days = GetSetting("mm", "nn", "nember_days", Nz(nember_days)) DeleteSetting "aa", "bb", "firstdate" DeleteSetting "ss", "tt", "lastdate" DeleteSetting "zz", "hh", "lasttime" MsgBox "لقد تم تفعيل برنامجك لمدة" & nember_days & " يوما" salah Me.Name, "drm", "نموذج1" Else MsgBox "رقم التفعيل خاطئ" End If و هذا هو البرنامج مفتوح المصدر بصيغة 2010 و 2003 فترة تجريبية.rar فترة تجريبية2003.rar

وعليكم السلام هذه بعض الاشياء التي يجب النظر فيها: يجب ان يكون البرنامج مقسما الى الجداول BE (وهذا الذي تضعه في الشبكة) ، والواجهة FE وفيه بقية الكائنات (ويكون على كمبيوترات المستخدمين) ، يجب ان تكون بعض الحقول مفهرسة في الجدول ، وهذه الحقول هي التي تستخدمها كمعيار في الاستعلام مثلا ، يجب ان تتأكد من الاستعلامات بالذات معمولة بطريقة لا تبطئ البرنامج والاكسس هنا يساعدك فيخبرك اين مكان المشكلة في برنامجك يجب ان تستخدم اسلاك بسرعة 1000 مثل cat 6 ، و Switch او Router بسرعة 1000 (Giga) . جعفر

وعليكم السلام فهرسة الحقول في الجداول تجعل البرنامج اسرع ، حيث يقوم الاكسس بحفظ بيانات هذه الحقول المفهرسة في ذاكرته ويقرأها من هنا ، بدل قرأتها من الجداول والفهرسة يجب ان تكون للحقول التالية ، اذا اردت تسريع البرنامج: 1. حقل الترقيم التلقائي ، هذه سهلة وما يحتاج لها شرح 2. الحقول التي تستخدم لها معايير في استخلاص معلومات السجل: في الاستعلام (سواء استعلام عادي او في الكود) ، اذا عملت معيار/تصفية لحقل/حقول ، في الاستعلام (سواء استعلام عادي او في الكود) ، اذا عملت فرز لحقل/حقول ، في النموذج / التقرير ، اذا عملنا تصفية عن طريق me.Filter او فرز عن طريق me.Orderby ، في النموذج / التقرير ، اذا عملنا كود/ وحدة نمطية فيه تصفة / فرز ، في النموذج / التقرير ، اذا عملنا كود/ وحدة نمطية فيه اوامر Dcount , Dmax, Dlookup , Dlast, Dfirst ، وفيها اسم حقل تصفية مثل (حقل C هنا): A = DLookup("[B]", "FromThisTable", "[C]= " & C) . وأحد الطرق الجداً مهمة ، هي عمل استعلام لأي شئ تريد البحث فيه او تفرزه ، ولا اعني استعلام في الكود ، وانما استعلام منفصل ، والمهم ايضا ، عندما تعمل الاستعلام ، انه بين الفترة والاخرى تستخدم "الضغط والاصلاح" ، لأنه يعيد فهرست البرنامج ، وينظم عمل الاستعلام ويجعله اسرع جعفر

وبه نستعين والصلاة والسلام على اشرف المرسلين سيدنا محمد الصادق الامين ومن سار على سنته الى يوم الدين.. وبعد في موضوع قاعدة بيانات خاصة بمختبر تحاليل طبية بالاكسل أحببت أن أوضح لأخواني بالمنتدي ان التجربة والخطأ هي افضل الطرق للتحصيل والتعلم والمنتدي ذاخر بالمادة العلمية ومساهمات الاعضاء المختلفة وكلها مفتوحة المصدر بالاضافة الي التعاون المستمر من جميع اخواني بالمنتدي في الرد علي الاستفسارات المختلفة والتي تحتوي بين طياتها علي الكثير والكثير من المعرفة والافكار ولاحظت في الفترة الاخيرة تكرار الطلب مع انه موجود بصورة او باخري وليس شرطا ان يكون بنفس فكرة الاخ الطالب لكن موجودة افكار كثيرة يمكن تطويعها لاعمالنا او تكون مدخلا لافكار اخري قابلة للتطوير كنت من فترة طرحت موضوع برنامج الشيكات مع التقارير مفتوح ويصلح لاعمال عديدة بتطويعه واليوم نفس البرنامج لم اقم الا بتغيير مسميات الاعمدة وتغير مظهر الفورم ليتناسب مع طلب الاخ السائل في موضوع مختبر التحاليل الطبية ويكون دعوة للجميع بالمنتدي ان نبحث ونجرب ونخطيء ونتعلم ونسأل ونستفسر ويصبح لنا بصمة لاعمالنا وذلك افضل من طرحنا سؤال او طلب لبرنامج كامل حتي ان وجدنا من يجيب او يصمم ذلك البرنامج ستكون افادتنا ليست الا مستخدمين لذلك البرنامج فدعونا جمعيا نشارك بايجابية ونبحث قبل طرحنا السؤال اسف للاطالة شرح البرنامج 1- الشاشة الرئيسية وبها وظيفتي ادخال جديد والبحث وطباعة ايصال استلام النقدية عند اختيار جديد نلاحظ ان المسلسل تلقائي وايضا يتم ادراج اليوم تلقائيا والتفقيط ايضا 2- البحث برقم مسلسل العميل من خلال شاشة البحث يظهر معنا خيار طباعة ايصال استلام النقدية كالتالي 4- من خلال الوظائف اسفل الفورم يمكنك الانتقال شاشة التقارير 5- شاشة التقارير والتي تتيح لك خيارات تقرير باسم مريض معين لحصر معاملاته خلال فترة معينة ويمكنك من خلالها عمل تقرير يومي لمعرفة الايراد او تقرير لفترة محددة بين تاريخين ومن خلال شاشة التقارير يمكنك طباعة التقرير كالتالي شاشة المساعدة وبها شرح مبسط للبرنامج عند اختيارك اغلاق للفورم للدخول علي الملف يطلب منك كلمة مرور كالتالي في شيت Info يمكنك اضافة اسماء التحاليل الطبيبة المستخدمة وسوف تظهر في الفورم عند اختيارك لادخال جديد فاللهم تقبل منا عملنا هذا خالصا لوجهك الكريم اسأل الله العلي القدير أن يوفقني وإياكم لما فيه الخير الملف بالمرفقات ويسعدني اي استفسارات حول البرنامج اوفيسنا للتحاليل الطبية.rar

اخى ابراهيم السلام عليكم ورحمة الله وبركاته لقد قمت برفع الاسطوانة على ميديا فاير للاستفاده وبارك الله فيكم وعذرا على تاخرى فى رفع الملفات وهذه هى الملفات الجزء الاول http://www.mediafire.com/?thmb4c3mi5zxxw8 الجزء الثانى http://www.mediafire.com/?re1rattu7r0t9n6 الجزء الثالث http://www.mediafire.com/?5w2obwe1xezkwgc الرابع http://www.mediafire.com/?0dmdfmsgm3ba555 اخيك جمال الفار

السلام عليكم =========== بالمرفق كود لترحيل البيانات كما طلب الاخ ابو محمد وفى نفس المرفق ورقة( شرح ) بها شرح لطريقة عمل الكود والتى بها يمكن وضع الكود فى اى ملف ترحيل.rar