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

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

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

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

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

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

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

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

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

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

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

الآن نفذت الآتى و أود التأكد من أن هذه أفضل طريقة - الحقلان مطلوبان رقم و اسم المنطقة كل الكود فى حدث قبل التحديث للنموذج - إلغاء أزرار التنقل فلا يبقى أمام المستخدم إلا زر إغلاق أو إغلاق النموذج من أعلى "×" الكود التالى 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

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

السلام عليكم النموذج اول ما يُفتح ، فإنه تلقائيا يعمل الرقم ، اي يعمل سجل جديد ، وبعدين انت تستفسر عن المدرسة موجودة او لا في اعتقادي عندك طريقتين لحل الموضوع: 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 جعفر

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

تفضل اخي الكريم المثال يبين الفكرة حاول ان يزيد مجموع الارقام في الفرعي عن الرقم الموجود في النموذج الرئيسي 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 وإلا فلن تحصل على جميع السجلات كل الشكر والتقدير وبارك الله قيكم جميعا وجزاكم الله عنا خير الجزاء ،،،

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

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

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

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

استأذن من استاذنا @أبو عبدالله الحلوانى اتفضل خذا هذا 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 & "\" جعفر

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

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

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

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