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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

القيمة الافتراضية للحقل يجب أن تكون بهذا النسق Me.TelID.DefaultValue = DMax("[eqamaid]", "tbleqama") + 1 ثانيا.. يجب أن تكون العبارة السابقة السابقة في حدث السجل الحالي للنموذج Form_Current event مع وضعها ضمن جملة شرطية Private Sub Form_Current() If NewRecord Then Me.eqamaid.DefaultValue = DMax("[eqamaid]", "tbleqama") + 1 End If End Sub ثالثا أن يكون حدث التحقق على مستوى الحقل وليس على مستوى النموذج Private Sub eqama_BeforeUpdate(Cancel As Integer) If DCount("eqama", "[tbleqama]", "[eqama]= '" & Me.eqama & "'") > 0 Then MsgBox "محل إقامة موجود مسبقا....", , "تنبيه" Cancel = True Me.Undo End If End Sub إليكم التطبيق منع التكرار.zip

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

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

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

الآن نفذت الآتى و أود التأكد من أن هذه أفضل طريقة - الحقلان مطلوبان رقم و اسم المنطقة كل الكود فى حدث قبل التحديث للنموذج - إلغاء أزرار التنقل فلا يبقى أمام المستخدم إلا زر إغلاق أو إغلاق النموذج من أعلى "×" الكود التالى Private Sub Form_BeforeUpdate(Cancel As Integer) If DCount("eqama", "[tbleqama]", "[eqama]= '" & Me.TelName.Text & "'") > 0 Then MsgBox "محل إقامة موجود مسبقا....", , "تنبيه" Me.Undo Cancel = -1 Else 'الترقيم Me.TelID = DMax("[eqamaid]", "tbleqama") + 1 End If End Sub أخيرا المرفق و شكرا لتوجيهاتكم منع التكرار.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

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

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

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

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

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

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