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

أخي الكريم جرب الكود التالي Sub SUMSpecificSheets() Dim I As Long, Counter1 As Double, Counter2 As Double Dim lStart As Long, lEnd As Long If Not IsNumeric(Range("F2")) Or Not IsNumeric(Range("H2")) Or IsEmpty(Range("F2")) Or IsEmpty(Range("H2")) Then MsgBox "Invalid Input", 64: Exit Sub Application.ScreenUpdating = False With Sheets("total") .Range("A2:B2").ClearContents lStart = Application.Min(.Range("F2"), .Range("H2")) lEnd = Application.Max(.Range("F2"), .Range("H2")) For I = lStart To lEnd If Evaluate("=ISREF('" & I & "'!A1)") Then Counter1 = Application.Sum(Counter1, Sheets(I).Range("A2")) Counter2 = Application.Sum(Counter2, Sheets(I).Range("B2")) .Range("A2") = Counter1: .Range("B2") = Counter2 Else MsgBox "The Sheet " & I & " Is Not Existed", 64 End If Next I End With Application.ScreenUpdating = True End Sub

السلام عليكم استاذى احمد زمان جزاك الله خيراً اسمح لى بالمشاركة اثراءً للموضوع اخى الكريم بدون عمود مساعد ضع هذه المعادلة فى الخلية I6 ثم قم بالسحب الافقى كما تريد ملحوظه هامة جداً هذه معادلة صفيف بعد كتابتها يتم الضغط على CTRL+SHIFT+ENTER =IFERROR(SMALL(IF($A$6:$A$100=$H$6;ROW($A$6:$A$100));COLUMN(A1));"") تحديد موقع الصفة.rar

جرب هذا الملف مجموغ صفحات.zip

وعليكم السلام و رحمة الله وبركاته اخي خالد الرشيدي ابداع و حل رائع جزاك الله خيرا

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

السلام عليكم تفقيط محدث بدالتي جديدتين واحدة للعربي ArbNum2Text وأخرى للإنجليزي EngNum2Text وتم الفصل بينهما بعد إن كانتا في دالة واحدة وذلك لوجود فرق في عدد المدخلات تصل إلى 4 مدخلات . والتحديث الآن تركز على تسهيل استخدام الدوال وخصوصا العربي مع استخدام المدخلات الإختيارية والتي كانت سابقا كلها مدخلات مطلوبة . لي ملاحظة واحدة فقط وتحتاج إلى آرائكم وهي تفقيط الكسر للدالة الإنجليزي وخصوصا أن الدالة تبدأ بالعملة أولا ثم تحويل الأرقام إلى حروف وعند الكسر يكون العكس ، الشيء الذي لا يروق لي .. فمن له دراية بالموضوع أرجو التكرم بتقديم مالديه من معلومات ولكم جزيل الشكر سلفا . الكود معمول لللأكسس والأكسل معا . تحياتي . الملفات المرفقة Num2Text20030725.zip ( 74.73ك ) عدد مرات التنزيل: 626

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

السلام عليكم ورحمة الله وبركاته إخواني وأحبابي في الله مع التحديث الجديد .. للأسف لم أجد التوجيهات التي تم وضعها من قبل ، وهذه القواعد والأسس هامة جداً ليدرك الأعضاء كيفية التعامل مع المنتدى طبعاً الموضوع سيكون متجدد .. سيتم وضع القواعد مرة أخرى فالرجاء الرجاء أن تساعدوني في اتمام الأمر .. كل عضو يذكرني بتوجيه من هذه التوجيهات ليتم إرساء القواعد ، إذ أن نجاح أي مؤسسة يعتمد في المقام الأول على قواعد ومنهج ثابت للسير على دربه التوجيهات والقواعد التي يجب مراعاتها التوجيه الأول : قبل طرح موضوع جديد يتعلق بطلب محدد يرجى استخدام خاصية البحث أولاً ، فإذا لم يجد طارح الموضوع بغيته ، فعليه أن يقوم بطرح موضوع جديد ، وفي هذه الحالة على طارح الموضوع أن يعلم أن حسن السؤال شطر الإجابة ، فاللباقة واللياقة والكياسة من الصفات التي يجب أن يتحلى بها طالب العلم. التوجيه الثاني : عند طرح موضوع جديد ، يتم وضع عنوان مناسب للطلب بحيث يفهم الطلب قبل الإطلاع عليه ، وعلى طارح الموضوع أن يبتعد عن العناوين الغير مجدية مثل : ( طلب مساعدة - الرجاء المساعدة - ساعدوني من فضلكم - عاجل وهام - الحقوني - نداء للعباقرة - نداء للعمالقة - إلى آخر تلك العناوين ...) ، وأمر آخر ألا يكون العنوان على شكل سؤال أو طلب .. نبتعد عن كلمة "طلب" مثال تطبيقي : نفترض أنني أريد معادلة تجمع القيم في عمودين العنوان المناسب للطلب يكون بهذا الشكل : معادلة جمع القيم في عمودين والنتائج في عمود آخر التوجيه الثالث : أن يتم توضيح المطلوب بالموضوع بشكل يزال معه أي لبس ، وفي نفس الوقت يراعى الإجمال في الطلب ، فأقصر الخطوط هو الخط المستقيم ، بمعنى "لا إطالة مملة ولا اختصار مخل" ، أي لا يكون طرح الموضوع مختصر للغاية بل يجب أن يستوفي جميع العناصر المطلوبة ، ومن ضمنها أن يحدد طارح الموضوع هل الحل المطلوب بالمعادلات أم بالأكواد أم بكلاهما لتكون الأمور واضحة بالنسبة لمن يريد تقديم المساعدة ، وأن يقوم صاحب الموضوع بإرفاق ملف به بيانات وهمية لتوضيح طلبه وللوصول إلى حل سريع ودقيق ، وإذا صعب على طارح الموضوع شرح المطلوب يمكنه إرفاق بعض النتائج المتوقعة كي يسهل الوصول لحل. التوجيه الرابع : نلاحظ أن شكل المنتدى لا يعجب معظم الأعضاء ، فلما لا نغير بأيدينا الشكل العام للمشاركات ، فيفضل على سبيل المثال استخدام حجم خط كبير 22 على سبيل المثال وجعل الخط عريض Bold مما يجعل المشاركة واضحة ومقروءة بشكل جيد ، كما يمكن استخدام الألوان أي قم بتنسيق المشاركة بشكل جذاب يجعل القاريء لا ينفر منها. التوجيه الخامس : بعد الانتهاء من الموضوع والوصول لحل يرضي صاحب الموضوع ، يرجى أن يتم تحديد أفضل إجابة من خلال النقر على علامة الصح الموجودة بجانب كل مشاركة ، وأن يسجل صاحب الموضوع إعجابه من خلال النقر على "سجل اعجاب بهذا" كنوع من رد الجميل لمن قدم المساعدة ، ويمكن أيضاً أن يقوم بتقييم المشاركة تقييم إيجابي كنوع من التقدير ، وأن تشكر من قدم المساعدة فمن لم يشكر الناس لا يشكر الله. فيما يخص لو كان هناك أكثر من إجابة للموضوع ، يمكن لصاحب الموضوع عمل مشاركة جديدة يجمع فيها كل الحلول ويختار هذه المشاركة كأفضل إجابة التوجيه السادس : لا تكن لحوحاً ، يكفي أن أعضاء المنتدى يقدمون وقتهم و خبرتهم مقابل لا شيء وعندهم أعمال أخرى (مشاغلهم الخاصة) يقومون بها ، و إذا تأخر الرد ، فمن الممكن أن يكون أحد الأعضاء يقوم بمحاولة الإجابة ، وهذا يستغرق بعض الوقت خاصةً إذا كان الموضوع صعباً. التوجيه السابع : حمل الملف المرفق دون زركشات (ألوان و تنسيقات مختلفة) مما يزيد من حجم الملف و أحياناً تكون الألوان مقززة بشكل ينفر منها المساعد (خاصةً إذا كانت ألوان الخلايا غير متناسقة مع لون الخط) التوجيه الثامن : تأكد أن الملف المرفوع غير مصاب بفيروس و غير محمي بكلمة سر ، وإلا لن تجد المساعدة من قبل الأعضاء. التوجيه التاسع : متابعة صاحب الموضوع لموضوعه والتفاعل معه ، فلا يعقل أن يطرح أحدهم موضوع ولا يتابعه إلا بعد مرور وقت طويل ، فهذا يعد من اللامبالاة الغير مرغوب فيها ، والتي تنفر الجميع من العضو. التوجيه العاشر : عدم التسجيل في المنتدى بأكثر من حساب ، وأن يكون اسم الظهور باللغة العربية ومعبر عن الاسم الحقيقي أي (تعريب اسم العضو) ، فلا يجوز أن يكون اسم الظهور اسم واحد وفقط بل أن يكون ثنائي على الأقل أو أن يكون اسم ولقب ، ولذا يرجى عدم استخدام الأسماء المستعارة أو الأسماء باللغة الأجنبية ، فاللغة العربية هي هويتنا ولابد من الحافظ عليها. ** يتم تغيير اسم الظهور أو اسم المستخدم من خلال إعدادات الحساب ثم التبويب اسم المستخدم ، قم بتغيير الاسم ثم انقر كلمة حفظ التوجيه الحادي عشر : عدم طرح أكثر من موضوع لنفس الطلب من نفس العضو ، فهذا يعد مخالفة صريحة ، وليعلم العضو الذي يقوم بذلك أن تكرار الموضوع لن يجدي نفعاً في حالة عدم توضيحه للمطلوب. وفي حالة أن قام العضو بذلك عن طريق الخطأ يقوم العضو بالتنويه في الموضوع وطلب حذف الموضوع نظراً لتكراره. التوجيه الثاني عشر : على من يقدم المساعدة أن يكون مثالاً يحتذى به في العطاء والصبر والحلم وكرم الأخلاق وحسن الإجابة ، يجتذب بتلك الصفات عقول الآخرين وأفئدتهم التوجيه الثالث عشر : عند طرح موضوع يفضل أن يكون هناك طلب واحد فقط إذ أن الموضوع الذي تكثر فيه الطلبات ينفر الأعضاء الذين يريدون تقديم يد المساعدة ، وعلى رأي المثل (من يطارد عصفورين يفقدهما) فما بالك لو طاردت أكثر من طلبين أقصد أكثر من عصفورين ، يمكنك أن تتعامل بذكاء بأن تطرح الموضوع بطلب واحد حتى إذا تم على خير قم على الفور بطرح موضع جديد بطلب جديد وهكذا إلى أن يتم الأمر التوجيه الرابع عشر : يرجلا عدم إرسال رسائل خاصة للأعضاء لطلب المساعدة بشكل شخصي ، لأن هذا الأمر يضايق الكثير من الأعضاء ، وتأكد أن العضو إذا كان لديه معلومة أو يستطيع أن يفيد بشيء ووقته يسمح بذلك فلن يتأخر عنك ، يكفي أن تكتب كلمة "للرفع" في موضوعك ، ليشاهده أكبر عدد من الأعضاء. ** كيفية رفع الصور في المشاركات : ******************************* دمتم على طاعة الله

خالد ------------------ الرشيدي شكرا لك --------------على الإهتمام

جرب السطر التالي Sub Test() Sheet2.Range("G2") = Application.Match(Sheet2.Range("A1"), Sheet1.Range("A1:A" & Sheet1.Cells(Rows.Count, "A").End(xlUp).Row), 0) End Sub

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

حاضر سوف أقوم بطرح موضع مستقل عند إضافة أى تغيرات أخى الحبيب ياسر أدام عليك الله الصحة والعافية

أخي العزيز / طائع إليك المطلوب إن شاء الله قفل خلايا بشروط 22.rar

الحمد لله أن تم المطلوب على خير أخي الغالي ياسر ويرجى عند وجود طلب جديد يختلف عن الأول أن تقوم بطرح موضوع جديد ، فلن يكون الأمر مرهق على الإطلاق هذا أيسر وأفضل على الدوام في وجهة نظري

اعتفد انى قمت بحل هذه المشكلة فى احد المرفقات السابقة ويوجد فى برنامجك امثلة على هذا فمثلا مع ان حقل الدورة فى جدول التسجيلات رقمى يظهر اسم الدورة وذلك عن طريق جعله كومبوبوكس ثم نجعل خاصية column count=2 وخاصية column width=0 وهذا ما طبقته تماما ونقوم بعمل ذلك بدلا من اضهار الاسماء مباشرة للحفاظ على نوع الحقل رقمى وبالتالى الحفاظ على العلاقة a8.rar

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

لايمكنني فتح المرفق لاني حاليا اعمل على اصدار اقدم اليك مثالا يوضح المسألة وفيه : التاريخ والوقت يثبت افتراضيا وبدون تدخل من المستخدم وغير قابل للتعديل او العبث z2.rar

الحمد لله على سلامتك اخي محمد عصام وعودا حميدا .. وجزاك الله خير اخي ابو خليل ...

تقصد باستخدام التنسيق اما الارقام فهي موجودة في لسان التبويب تنسيق القيمة اسمها : اشكال رقمية وفيها قائمة : النظام ، الدولي ، اللغة العربية وعندما نختار اللغة العربية تظهر الارقام التي نسميها انجليزية ( والانجليز يسمونها العربية ) لان الارقام ارقامنا واختطفوها الانجليز مننا وعندما نختار دولي تظهر الارقام الهندية التي نستخدمها نحن العرب انظر الصورة

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

جزاك الله خيرا اخى تفضل تم اضافة زر يفتح فورم يشبه ورقة بيانات a7b.rar

اخى الكريم استخدم المعادلة التالية لاحتساب اجمالى الكمية =SUMPRODUCT(SUM(INDIRECT("'"&$F$2:$H$2&"'!A2"))) ولاجمالى المبيعات =SUMPRODUCT(SUM(INDIRECT("'"&$F$2:$H$2&"'!B2"))) sum el rashedy.zip

شكرا لكم

اخى السبب انه لا يعمل ان المعيار فى الايتعلام ياخذ الدورات من القائمة والمعينة فى الفورم firstfrm اذهب الى التقرير فى عرض التصميم واختر من قائمة الخصائص report ومن تبويب data اختر control source واضغط على المربع الذى يحتوى على ... وفى حقل dwId فى الاستعلام تجد هذا المعيار [forms]![firstfrm]![combo6] غير [firstfrm] الى اسم النموذج الجديد الذى ستضع فيه الاداة

عزيزي :للعلم لم نستخدم قناع الادخال .. مجرد كود قبل التحديث ! بالتوفيق

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

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

اخي على اي اساس يتم الترحيل عدم وجود اساس للترحيل يتم ترحيل كافة البيانات

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

اخي الفاضل يمكنك ذلك عن طريق حماية ورقة العمل هل تريد حماية عمود واحد في الصفحة

‏الثلاثاء‏، 1‏/9‏/2015م الموافق ‏18‏/11‏/1436هـ السلام عليكم و رحمة الله وبركاته تحياتي وتقديري الى جميع اخواني و اساتذتي بالمنتدى و اعتذر عن طوول الغياب اخي الكريم في هذه الحاله اضفنا عمود يقوم بوضع ارقام متسلسله للخلايا التي تحقق شرط البحث باستخدام الداله SAERCH ثم من هذا العمود نقوم لارجاع قيمة الأرقام الى رقم الصف مع MATCH كما في المرفق تحديدصف الصفة.rar

طيب

أخي الغالي ياسر فتحي جرب الكود التالي جيداً Sub PullUniques() Dim clnMyUniqueList As New Collection Dim lngMyCol As Long Dim lngMyRow As Long Application.ScreenUpdating = False For lngMyCol = 2 To 25 Step 2 For lngMyRow = 5 To Cells(Rows.Count, lngMyCol).End(xlUp).Row On Error Resume Next clnMyUniqueList.Add Item:=Cells(lngMyRow, lngMyCol).Value, Key:=CStr(Cells(lngMyRow, lngMyCol).Value) If Err.Number = 0 Then Cells(Rows.Count, lngMyCol + 25).End(xlUp).Offset(1, 0).Value = Cells(lngMyRow, lngMyCol).Value Cells(Rows.Count, lngMyCol + 26).End(xlUp).Offset(1, 0).Value = Cells(lngMyRow, lngMyCol + 1).Value End If On Error GoTo 0 Next lngMyRow Next lngMyCol Set clnMyUniqueList = Nothing Application.ScreenUpdating = True End Sub Customers New Only End.rar

مشاركة مع اعزائي واثراء للموضوع ضع التعبيرين التالين للعنصر كل على حده لتصبح خاصية مصدر عنصر التحكم هكذا: =-DSum("[مجاز]";"tab1") =-DSum("[غير مجاز]";"tab1") بالتوفيق

حياك الله اخي الكريم ..... اطلع على المرفق .. في استعلام student_in_dwra تم وضع هذا السطر تحت حقل dw_id forms!form1!dw_id قم بفتح نموذج form1 وستتضح لك بقية التفاصيل ... بالتوفيق ... a7.rar

اخى الكريم الالتزام بتوجيهات المنتدى هدفه الوصول الى افضل طريقة ممكنة فى التعامل وطرح الموضوعات بداخل المنتدى وتزكير استاذنا ومشرفنا الحبيب ياسر خليل حضرتك بها امر لا يضايقك فى شئ ..عموماً بالمرفق ستجد شرح الكود .. ولاستخدام الحلقات بالكود اليك تزكير بها كشف حساب جديد2.rar خالص تحياتى

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

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

حياك الله اخي الكريم .. تفضل الشرح والمثال للأستاذ علي العتيبي ... والمنتدى ملئ بالأمثلة المشابهه . بالتوفيق .... Search_On_Change.rar

استخدم الكود التالى وابدى ملاحظاتك Sub Button2_Click() Dim lr As Long, cl As Range, n As Integer lr = ورقة2.Cells(Rows.Count, "B").End(xlUp).Row For Each cl In ورقة2.Range("B2:B" & lr) For n = 1 To ورقة1.Cells(Rows.Count, "B").End(xlUp).Row If cl.Value = ورقة1.Cells(n, 2) Then With cl.Offset(0, 2) .FormulaR1C1 = "=VLOOKUP(RC[-2],ورقة1!R2C2:R1762C3,2,0)" .Value = .Value End With End If Next Next End Sub

وعليكم السلام :-) و سلامي لأخي ابوخليل :-) السبب هو: - في احد نماذجك ، عندك حدث On Timer ، - وهذا النموذج مفتوح ، وليس في وضع تصميم. الحل هو أن: - أما أن تجعل النموذج هذا في وضع تصميم ، أو أن تغلقه أثناء عملك في الكود :-) جعفر

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

لتطبيق دالة Int على النموذج يمكنك الدخول على تصميم النموذج وفي خاصية record source مصدر السجل عدّل الاستعلام ليصبح حقل x x: Int([dnr]/[s2r]) وإذا لم يكن الحقل المطلوب هو x يمكنك عمل نفس التعديل على أي حقل تريده ثم احفظ التغييرات في الاستعلام وفي تصميم النموذج

السلام عليكم تفضل اعتقد هذا ما تريد بالتوفيق arab.rar

السلام عليكم استفسر مني صديق عن اداة يمكنها نسخ هيكل المجلدات و المجلدات الفرعية دون الملفات من مكان الي اخر ووجدت اني احتاج ذلك ايضا فى بعض الاحيان و بالتالي قد تكون اداة مفيدة للجميع ، لم اجدها جاهزة من البحث السريع ، فاعددت الملف المرفع لعمل ذلك بطريقة مبسطة بناء على الكود المنشور هنا فى موقع أجنبي و صراحة أعجبتني طريقة كتابة الكود الاداة تمكنك من نسخ المجلدات و المجلدات الفرعية دون الملفات ، و بالمرة اضفت زر اخر للنسخ مع الملفات من الممكن تحسينها باضافات كثيرة و لكن اراها تؤدي الغرض المطلوب مرفق الملف CopyFolderStructure.zip

اشكرك على المجهود

تابع الشرح انتهى الشرح ارجو ان يكون هذا العمل خالصا لوجه الله تعالى وَقُلْ رَبِّ زِدْنِي عِلْمًا

الف شكر ياباشا اشتغلت اظاهر الجهاز كان عاوز يتعمله ريستارت

بعد أذن أخي الحبيب / محمود حل مجرب و نجح يا أخي / وائل و إن شاء الله ينجح معك أيضا و لكن رجاء إتباع التالي للأهمية 1- حمل الملف المرفق 2- استخرج محتويات الملف المضغوط في مجلد اسمه IE-associations (نفس الاسم بالضبط) (لازم تفك ضغط الملفات والا لن يعمل الباتش) 3- اذا تستخدم ويندوز 7 او فستا اضغط باليمين على ملف الباتش واختر Run as Administrator اما اذا تستخدم XP مجرد نقر مزدوج يكفي IE-associations.zip

بسم الله الرحمن الرحيم السلام عليكم ورحمة الله وبركاته اشكر الجميع واتمنى من الله ان تكون مشاركتي فعالة تخدم كل من له علاقة بالمجال بالطبع عزيزي ابوعبدالله اوافقك تماما على هذه الفكرة فلو علمت ان تكلفة مثل هذا البرنامج قد تصل الى مئات الالوف لما ترددت في اكماله. وارجو ان يوافقني الجميع على البدء في تنفيذه لنبدا على بركة الله خطوة بخطوة اولا : كتصور مبدئي لشكل البرنامج فكبداية يجب عمل ال Chart سواء اكان للاصناف او للحسابات المالية وبنفس فكرة برنامج القدير ابو عبدالله مشروع 2 سيتم تسجيل الشجرة ثانيا يجب ان تكون هناك نافذة لادخال ارصدة افتتاحية اصناف وحسابات مالية كمرة واحدة لاتتكرر ولكن يمكن التعديل فيها بكلمة مرور من المستوى المتقدم ثالثا يجب التعرف على الدورة المستندية(المستندات التي سيتم تسجيل بياناتها التي سيتم بناء البرنامج على اساسها رابعا يجب تحديد صلاحيات لكل مستخدم سوف اطرحها في وقتها خامسا معرفة مخرجات عملية تسجيل البيانات وساقوم برفع شكل التقارير المطلوبة بشكل يومي او بشكل شهري او سنوي ولتكن البداية مع المخزون والذي سبق وان اوضحت اركانه الرئيسية والمستندات الرئيسية المستخدمة ستكون (بدون توسيع نطاق المستندات) هي فواتير الشراء (سواء اكانت نقدية او آجلة )وفواتير الارجاع للمورد واذون استلام البضاعة و( سندات صرف البضاعةو سندات تحويل داخلي ) Debits To Cost و(شيكات البيع في كل Area او Outlet (وشيكات الاوفيسر وشيكات الضيافة ومستند اتلاف او اهلاك بضاعة) Credits to Cost الاخ الجليل ابو عبدالله الموضوع اعلم انه ليس بالسهل ولكن عندي الثقة الكاملة في قدرتك ان شاء الله على اكماله على احسن صورة بفضل خبرتك الواسعة في مجال البرمجة. وفيما يخص Recipe الاصناف ففكرته تقوم على تحديد مبدئي ولكن محسوب جيداً لمكونات صنف سيتم بيعه من خلال تصنيعه بمكونات مأخوذة من Chart الاصناف ثم اضافة نسبة تجهيز تتراوح بين 4 و 5 % من اجمالي تكلفة المكونات .وهذه النسبة متروكة لرؤية محاسب التكاليف فمثلا الصنف س يستمر على النار لمدة 10 دقائق وغيره قد تستمر لمدة 30 دقيقة وهكذا ..... وبناء عليه يمكن تحديد سعر بيع المنتج وتحديد نسبة التكلفة له ومفهوم التكلفة هنا يعني بالبلدي (احنا بندي الطباخ بضاعة 40 جنيه يبيعها ب 100 جنيه يبقى تكلفة المنتج 40 % ندخل في تفاصيل هامة : دورة المستندات ستكون بالشكل التالي فاتورة شراء يتم تسجيل بياناتها لتكون عندي تكلفة الاصناف المشتراة وباذن الاستلام سيكون لدي رصيد البضائع داخل المخازن ( 4) التي تم تحديدها وعند عمل سند صرف من المخازن يجب معرفة المكان الذي سيتم الصرف اليه وكذلك تكلفة الاذن بالكامل وهنا يجب الاشارة على ان غالبية الفنادق تعمل بنظام متوسط حركي للمخزون صنف مثل الطماطم دخل المخازن يوم 3 في الشهر 50 كيلو بسعر 4 جنيه للكيلو وفي يوم 6 دخل كمان 50 كيلو ولكن بسعر 5 جنيه للكيلو فلو تم صرف بضاعة يوم 5 فالسعر هيبقى 4 جنيه للكيلو اما اذا تم الصرف يوم سبعة فسيكون السعر 4.5 جنيه. وحتى لااطيل عليكم فساقوم برفع ملف قديم عندي كنت قد صممته من فترة بعيدة وهو يؤدي الغرض ولكن بعد ان نرى الردود والمساهمات وسامحوني جميعا فالوقت ليس معي بحكم وظيفتي التي تستهلك مني اكثر من 14 ساعة عمل ولكن ارجو ان تتقبلوا عذري ولتكن هناك مساهمات من الاخوة المهتمين بالموضوع هاني بدر