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

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

بعد إذن أستاذنا محمد نجار أ/ محمد 7172 : العلاقات مهمة جدا طبعا ولا خلاف على ذلك إلا عندنا في القرية فشباب القرية من المبرمجين ذوي الخبرات الواسعة التي تتعدى ثلاثة أو أربعة أشهر في البرمجة اللحظية دايماً بيعملوا برامجهم بدون أي علاقات بين الجداول وفشلنا في اقناعهم ، وكل ما نحفظهم ازاي يعملوا علاقة : One to many ويرسموا نموذج ERD نلاقيهم يكتبوها ( ون تو ميني ) لكن بدون ما يعملوها بالفعل زي المثال ده واللي ترجم بياناتك لمطلوب يشبه مطلوبك persony.rar

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

وعليكم السلام أخي محمد عفوا ما فهمت القصد من الموضوع!! رجاء التوضيح جعفر

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

اتفضل اليك هذا فانكشن Public Function ClearAllData() As Boolean Dim tdf As DAO.TableDef Dim dbs as DAO.Database Set dbs = CurrentDB For Each tdf in dbs.TableDefs If Left(tdf.Name, 4) <> "MSys" Then dbs.Execute "DELETE * FROM " & tdf.Name End IF Next tdf Set dbs = Nothing End Function وفي خلف الزر الحذف اكتب Call ClearAllData راح يحذف كل البيانات من كل الجداول عدا جداول السيستم تقبل تحياتي

وعليكم السلام لم يكن ممكنا ان نحل الموضوع بدون المرفق ، والمرفق لم يكن موجودا ، واذا به موجود جعفر تفضلي هذا التغيير في كود زر البحث: Private Sub amr4_Click() انت هنا تطلبين طلب البيانات الجديدة للنموذج الرئيسي ، وهذا ليس المطلوب 'DoCmd.Requery الحقل Research_ID هو حقل تسمية label فالمعادلة ليس لها معنى 'If [Research_ID] = [A] Then يجب ان نتحقق من وجود كلمة في الحقل A If Len(Me.A & "") <> 0 Then Q2.Visible = True وهنا نطلب بيانات جديدة للنموذج الفرعي Me.Q2.Requery Else Q2.Visible = False MsgBox "please note that you should follow up with finaicial affairs(Mr.Mohammed siamek) to fill tou start using the system!! " End If End Sub جعفر

بسم الله الرحمن الرحيم اولاً الشكر كل الشكر الى اساتذتى الكرام الذى بفضلهم وصل المشروع الى هذا الحد وبالاخص : استاذ : جعفر لك جزيل الشكر استاذ : ابو عبدالله لك جزيل الشكر استاذ : شيفان لك جزيل الشكر استاذ : ابو خليل لك جزيل الشكر شرح العمل ببساطة يقوم المستخدم باختيار الالوان التى يريدها من نموذج color وتطبق على جميع البرنامج فقط قم باستدعاء هذه الداله فى حدث عند التحميل Call Color_V(Me) وسوف تقوم هى بضبط الاعدادات قم بستدعاء الوحدات النمطية والجدول الخاص بالتخزين الاكواد و النموذج الى برنامجك دون تعديل ويتوفر بالاصدارين لـ2010 و لـ2003 ونتمنى من اساتذنا ان يقوموا بتعديله حتى يصبح برنامج كبرنامج مسقط التقارير او القلعة ولا اسألكم سوي الدعاء Color 2010.zip Color2003.zip

السلام عليكم اهدي هذا البرنامج مفتوح السورس الي المنتدى واعضاءه الاعزاء كلمة المرور في كل البرنامج 1234 - البرنامج به كل ما يطلبه المحاسب بداية من ادخال الحسابات كما يحب المحاسب وايضا ادخالها كما هي في دفتر اليومية الخاصة به اي بنفس الترقيم المستخدم بشركته او مؤسسته وذلك من مميزات البرنامج لان كل البرامج التي في السوق تجد انها تفرض على المحاسب حسابات البرنامج والتي تكون ارقامها و ترتيبها مخالف لما هو معمول به عند المحاسب . - سند قيد يوميه - سند قبض - سند صرف - ترحيل تلقائي الى الاستاذ العام و الاستاذ المساعد و اليومية العامة و ميزان المراجعة و الحسابات الختامية - طباعة جميع التقارير التي يحتاجها المحاسب - عرض شجرة الحسابات وبه مميزات كثيرة ومفيدة للمحاسب الملف المرفق على اكسيس 2003 وان شاء الله سوف اقوم بتطويره على Vb.Net لي طلب وانا سوف اعتبره امانه لمن يعمل على البرنامج انه لا يلغي صورة ابني فهد من البرنامج تحت اي ظرف الرجاء من الادارة تثبيت الموضوع لاهميته ارجو ان يفيدكم ولا تنسونا بالدعاء اخوكم ابو فهد Acc2003.zip

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

السادة الزملاء تم تخديث الفيديوهات على اليوتيوب ورفعها على المنتدى كل فيديو فى مكانه أسئلة كثيرة تتردد على مسامعي منها على سبيل المثال : http://magdiyonis54.blogspot.com.eg/ كيفية تصميم شيت اكسل كيفية عمل جدول تنسيق الجدول كيفية إدخال البيانات إضافة الألوان وضبط النصوص دمج الخلايا أبجدة الأسماء التنسيق الشرطي الجمع ومستوى الطالب ( ممتاز جيد ......) وضع السري عمل التسلسل إظهار الصفوف وإخفائها هذه الأسئلة سأجيب عنها وبطريقة بسيطة وبعيد عن المعادلات للهواة أو لطالبى كيفية عمل شيت للامتحانات عنوان المنتدى http://magdiyonis1.forumegypt.net عنوان المدونة الخطوة الاولى.rar

كنترول شيت إعدادي ..الدورين معا ..اصدار4 كلمة سر الدخول : 1111 كلمة سر محرر الاكواد : 11223344 كلمة سر صفحة الصلاحيات :6666 كلمة سر تصفير الشيت: 6666 رابط التحميل كنترول شيت اعدادى 2017 و كنترول شيت ابتدائى..الدورين معا ..اصدار4 كلمة سر الدخول : 1111 كنترول شيت ابتدائى 2017

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

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

السلام عليكم ورحمة الله وبركاته كلنا نحتاج الى حماية الاكسيل اليكم 5 مقاطع فيديو تبين لكم طرق الحماية باختصار وبسهولة - حماية ال sheet - حماية الصيغ والمعادلات - صلاحيات المستخدمين - حماية بنية المصنف - حماية الدخول برجاء مشاركة الجميع (زكاة العلم نشره) ولاتنسى الاشتراك فى القناه

شكرا على سرعة ردك

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

حياك الله واسال الله العظيم الكريم ان يشفي ابنك وهو سميع قريب كريم مجيب

جرب .. ضع الحدث زي ماهو ثم ضع زر به امر حفظ وشوف هل تم الحفظ ام ان المشاركة لما تريد بالتمام ... انت جرب اولا ؟ وهذا تعدسيل بسيط وبعد اذن ابو عبدالله Private Sub Form_BeforeUpdate(Cancel As Integer) On Error Resume Next DoCmd.SetWarnings False If MsgBox("هل تريد حفظ التغييرات ؟", vbYesNo, "تأكيد الحفظ") = vbNo Then cancel=-1 Me.Undo End If DoCmd.SetWarnings True End Sub بالتوفيق

جزاك الله خيرا

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

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

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

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

كلامك ممتاز و أكيد طبعاً بس دايماً أحب تعدد الحلول لنفس المشكلة

نعم لكن منع حدوث ذلك من البداية لا شك أنه أفضل شكرا

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

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

وانا عملت هذا كذلك في أحد مشاركاتي اعلاه

السلام عليكم النموذج اول ما يُفتح ، فإنه تلقائيا يعمل الرقم ، اي يعمل سجل جديد ، وبعدين انت تستفسر عن المدرسة موجودة او لا في اعتقادي عندك طريقتين لحل الموضوع: 1. وكما قال أخوي ابوخليل: 2. او في الجدول ، في اعدادات اسم المدرسة ، اجعل وجود الاسم شرطا في حفظ السجل جعفر

وعليكم السلام انتي لم تطلبي هذا مسبقا تفضلي الكود وبه هذه الخاصية: If DCount("*", "Q2") <> 0 Then Q2.Visible = True Me.Q2.Requery Else Q2.Visible = False MsgBox "please note that you should follow up with finaicial affairs(Mr.Mohammed siamek) to fill tou start using the system!! " End If جعفر

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

حبث انك حملت صورة ولا احد بتعامل مع الصور بالمعادلات ارفق لك مثالاً كيف تجد ما تريده Salim_Search.rar

السلام عليكم ورحمة الله اخى الكريم الاستاذ سليم تعليقك رائع وفعلا فى محله بارك الله فيك

تفضل أخي الكريم الكود في ملف مرفق .. Test.rar

يا سلام بارك الله فيكم جميعا وزادكم الله من فضلة وعلمه استاذنا القدير @jjafferr تسلم ايدك تماااااام استاذي الحبيب @Shivan Rekany تسلم ايدك تمااااااااااااااام اخي الكريم @أمير2008 بارك الله فيك ولكن مثل ما قال استاذنا جعفر يجب ان تبدأ بـ rs.movelast قبل rs.MoveFirst وإلا فلن تحصل على جميع السجلات كل الشكر والتقدير وبارك الله قيكم جميعا وجزاكم الله عنا خير الجزاء ،،،

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

السلام عليكم أ / خالد التعامل مع اتمام الموظف ل 5 سنوات او 10 سنوات بالتمام يختلف بين الحالات الثلاثة ( aa,bb.cc ) تم المطلوب .. وقم بمراجعة كافة الحالات ( aa bb cc ) بأمثلة مختلفة ..اقل من سنتين - سنتين - اكثر من سنتين - خمس سنوات - اكثر من خمس سنوات - عشر سنوات - اكثر من عشر سنوات .. وعند التأكد من كافة النتائج يمكنك الاعتماد على المعادلة هي طويلة لكثرة الشروط والحالات وربما سأجد طريقة لجعلها ابسط من ذلك وعندها سأضعها هنا لحضرتك =CHOOSE(MATCH(L14,{10000,3599,1799,719},-1),IF(AND(G15=10,E15=0,C15=0),(((5*O14*0.5)+((G15-5)*O14)+(O14*(E15/12))+(O14*(C15/365)))*2/3),(5*O14*0.5)+((G15-5)*O14)+(O14*(E15/12))+(O14*(C15/365))),IF(L13<>"bb",(5*O14*0.5)+((G15-5)*O14)+(O14*(E15/12))+(O14*(C15/365)),IF(AND(E15=0,C15=0,G15=5),((5*O14*0.5)+((G15-5)*O14)+(O14*(E15/12))+(O14*(C15/365)))*1/3,((5*O14*0.5)+((G15-5)*O14)+(O14*(E15/12))+(O14*(C15/365)))*2/3)),IF(L13<>"bb",(O14*G15*0.5)+(O14*(E15/12)*0.5)+(O14*(C15/365)*0.5),((O14*G15*0.5)+(O14*(E15/12)*0.5)+(O14*(C15/365)*0.5))*1/3),IF(L13<>"bb",(O14*0.5)+(O14*(E15/12)*0.5)+(O14*(C15/365)*0.5),"لا يستحق العامل مكافأة نهاية خدمة" )) MUHAMMAD SULAIMAN MUJAHID GUL_2_2.rar

إجابة نظرية مثل السؤال ممكن يكون السبب فواصل الصفحات أو ممكن ترفق ملفك لفحصه أو مثال منه

السلام عليكم اخي الكريم ابو نظره اذا تريد ان يقبل بوينتات يجب ان تتغير نوع الخصائص الرقم للحقل في الجدول من Long Integer الى Double ابو نظره القي نظرتا الى المنتدى راح تشوف ما تريد واذا ما شفت افتح موضوع جديد وشرح ماتريد بالتفصيل تقبل تحياتي

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

وعليكم السلام أخي حمدي البرنامج في المرفق يعطيك المطلوب وبحيث تستخدم مصدر النموذج ، والذي يجب ان يكون استعلام جعفر

السلام عليكم جرب هذا ووافنا بالنتائج ملاحظة : ان ظهر خطأ بالعملية الحسابية استبدل الفاصلة "," بالفاصلة المنقوطة ";" الحساب التراكمي1.zip

الحمد لله توصلت الى نتيجة جيدة ومرضيه حتى الان ولكن لو يمكن تبسيط الكود كون افضل حتى يستوعب الجداول جميعها مهما كان عددها Delete.zip

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

ضع نجمه قبل الاسم المراد البحث عنه

موجود في الكود غيّر المسار في السطر الاول ، واحذف السطر الثاني: 'File_Path="C:\Temp" File_Path = Application.CurrentProject.Path & "\" جعفر

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

أخى الحبيب الغالى / ضاحى " أبو عمرو" السلام عليكم ورحمته وبركاته هههههههه أعمل إيه بحايل عمو كود من أجل الوصول لفهم الاكواد ودراستها فالموضوع شيق وأصبح جزء لايتجزأ ولكن كل يوم معركة بينى وبينه وطول الليل عمالين نكلم مع بعض شوية يقلب عليه ... وشويه يقولى خليك فى معادلاتك فمن هنا جاءت التسمية بعمو

بارك الله فيك أبا خليل جزاك الله عنا خير الجزاء دمت في رعاية الرحمان