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

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

بعد إذن أستاذنا محمد نجار أ/ محمد 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

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

السادة الزملاء تم تخديث الفيديوهات على اليوتيوب ورفعها على المنتدى كل فيديو فى مكانه أسئلة كثيرة تتردد على مسامعي منها على سبيل المثال : 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 - حماية الصيغ والمعادلات - صلاحيات المستخدمين - حماية بنية المصنف - حماية الدخول برجاء مشاركة الجميع (زكاة العلم نشره) ولاتنسى الاشتراك فى القناه

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

::: اعمل زر Delete Record بواسطة المعالج .

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

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

جرب .. ضع الحدث زي ماهو ثم ضع زر به امر حفظ وشوف هل تم الحفظ ام ان المشاركة لما تريد بالتمام ... انت جرب اولا ؟ وهذا تعدسيل بسيط وبعد اذن ابو عبدالله 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 بالتوفيق

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

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

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

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

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

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

الف شكر لك اخي خالد وجعله الله في ميزان حسناتك

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

والله يا أخي ياسر خجلتني نسأل الله أن يبارك فيك ويزيدك من علمه متشكرك كثيرا والله

تفضل اخي الكريم المثال يبين الفكرة حاول ان يزيد مجموع الارقام في الفرعي عن الرقم الموجود في النموذج الرئيسي 2003UP.rar

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

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

السلام عليكم Private Sub Form_BeforeUpdate(Cancel As Integer) On Error Resume Next DoCmd.SetWarnings False If MsgBox("هل تريد حفظ التغييرات ؟", vbYesNo, "تأكيد الحفظ") = vbNo Then Me.Undo End If DoCmd.SetWarnings True End Sub تحياتي

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

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

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

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

استأذن من الاستاذنا @jjafferr , @أمير2008 رغم من كثرة الاجابات اليك هذا Private Sub Form_Load() Dim sql As String sql = "UPDATE tbTable SET tbTable.[check] = True WHERE (((tbTable.dateend)<Date()));" DoCmd.SetWarnings False DoCmd.RunSQL (sql) DoCmd.SetWarnings True End Sub

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

السلام عليكم أ / خالد التعامل مع اتمام الموظف ل 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 ابو نظره القي نظرتا الى المنتدى راح تشوف ما تريد واذا ما شفت افتح موضوع جديد وشرح ماتريد بالتفصيل تقبل تحياتي

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

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

::: افضل اقتران للحقول ان تكون ضمن سجل واحد ... وهنا حصل الاقتران بين الشركة والموقع والموظف.. لا اعرف هل لديك عمليات او نشاطات اخرى ؟! ::: جرب ووافني بالنتيجة او اية اضافات او تصفيات ..... بالتوفيق Company_up.rar

استأذن من استاذنا @أبو عبدالله الحلوانى اتفضل خذا هذا Private Sub المبلغ_AfterUpdate() Forms![نموذج1]![الشهر الحالي2].SetFocus Forms![نموذج1]![الشهر الحالي2].Requery End Sub

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

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

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

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

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

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