عبدالرحمن هاشم

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

ممكن ترفق طلبك بتنسيق 2003

اخي الفاضل أعذرني لم أفهم طبيعة مرفقك لربما بعض الجداول قمت بتقسيمها ولم ترفق مع برنامجك عموما أقترح أن تجعل الترقيم في استعلام النموذج باستخدام هذا المعيار.. أتمنى تفي بالغرض New_Num: Format(DCount("stu_code";"amal_alsanaنصف";"stu_code <=" & [stu_code]);"0") لتجهيز الانجاز 2015 .rar

أعذرني أخي الكريم حاولت أن أفهم طلبك ولم استطع.. نرجو التوضيح اكثر

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

جرب أخي الفاضل هذا التعديل حسب طلبك بالتصفية بـ(الفصل) الملف الخاص بي.rar

بادئ زي بدء يجب عليّ أولا أن أستأذن معلمينا الأفاضل عن طرح هذا الشرح طبقا لطلب الأخ (بدوي) فأنا لست بمعلم وتلميذ لديكم أخي الفاضل مبدئيا هو بحث مبني على الاستعلام مثل أي طرق بحث أخرى تنفذ بالاستعلامات ، وسأبدا من الشرح على القاعدة المرفقة من عند إنشاء نموذج البحث المطلوب على جدول لديك ولنفترض لعملاء tbl_cust والذي يحتوي على ID_cust وNamCust وAdrs... إلخ والمطلوب هو البحث عن (اسم العميل NamCust).. 1- أولا سنضع الدالة المرفقة (من عمل معلمنا الفاضل أكسسنا) في القاعدة التي تريد العمل عليها.. والتي مهمتها أن تتجاهل الحروف المهمة وتشكيلات الحروف 2- تبدأ بتصميم مبدئي لنموذج البحث بوضع مربع نص غير منضم والذي سيتم الكتابة بداخله عن المطلوب البحث عنه وسنسميه مثلا txtSearch ونحفظ النموذج مثلا باسم SrchCust 3- تبدأ بتنفيذ الاستعلام مبني على الجدول tbl_cust ومهمته هو جلب النص الذي ستكتبه في مربع البحث txtSearch بالنموذج SrchCust ◘ وسنأتي في الاستعلام على صف (الحقول) ونكتب هذا السطر ClrText([NamCust]) ومعنى ClrText هو عمل الدالة التي وضعناها مسبقاً بأن تعمل مع حقل اسم العميل NamCust ◘ وتنتقل أسفله في صف (المعيار) وتضع هذا المعيار: Like "*" & ClrText([forms]![SrchCust]![txtSearch]) & "*" ومعناه جلب البحث بعمل الدالة التي وضعناها سابقا (ClrText) طبقا لحقل البحث txtSearch الموجود بالنموذج SrchCust... ثم نحفظ الاستعلام مثلا باسم Qry ونغلقه ◘ نذهب الآن للنموذج SrchCust لإنشاء القائمة التي ستظهر فيها نتائج البحث ونختار (مربع قائمة) وعند وضعها بالنموذج سيخبرك الأكسس باختيارك لوصلها بالجداول أو الاستعلام... وستختار الاستعلام الذي فعلناه منذ قليل Qry.. أي تجعل مربع القائمة مصدره الاستعلام... ونسمي مثلا مربع القائمة SearchList ◘ أصبحت الآن على وشك الإنتهاء ولا ينقصك سوى وضع الأكواد في مربع نص البحث txtSearch لينفذ أمر البحث.. مفهومه أن يقوم بجلب ما ستكتبه في حقل البحث ليجلبه في مربع القائمة SearchList ستختار خصائص الحقل + حدث + (عند مفتاح لأعلى) ونضع هذا الكود: Select Case KeyCode Case Is = vbKeySpace Exit Sub Case Else Me.Refresh If Me.SearchList.ListCount = 0 Then Me.txtSearch.SetFocus End If Me.SearchList.SetFocus Me.txtSearch.SetFocus End Select أصبح الآن النموذج جاهز للبحث ولكن ينقصك كود في النموذج في حدث (عند الفتح) و(عند الإغلاق) ولذلك لتجنب الأخطاء عند الكتابة في مربع نص البحث txtSearch من أجل أن يكتب الكلمة كاملة • كود عند فتح النموذج Application.SetOption "Behavior entering field", 2 • كود عند إغلاق النموذج Application.SetOption "Behavior entering field", 0 وبهذا فقط انتهيت من إعداد النموذج بالبحث عن أسماء العملاء.. ------------------------------------------------------------------------------------------------------------------------- ولو أردت أن تضغط مثلا على سجل معين تريد الدخول على بياناته بالكامل لتستعرضها أو تعدل عليها في نموذج آخر وليكن اسمه مثلا FrmCust فستحتاج بوضع هذا الكود في حدث عند النقر مرتان في مربع القائمة SearchList Dim stDocName As String Dim stLinkCriteria As String stDocName = "FrmCust" stLinkCriteria = "[ID_cust]=" & Me![SearchList] DoCmd.OpenForm stDocName, , , stLinkCriteria DoCmd.Close acForm, "SrchCust", acSaveYes ومفهومه هو فتح النموذج FrmCust بعد النقر المزدوج على السجل المطلوب ويجلبه عن طريق الرابط الذي يربط بينه وبين المنقور عليه في مربع القائمة SearchList عن طريق كود العميل ID_cust ثم سيقوم بإغلاق نموذج البحث SrchCust.. ويمكنك حذف هذا السطر لو أردت أن لا يغلق النموذج أتمنى أن أكون وفقت في الشرح.. نسألكم الدعاء والسلام عليكم نموذج بحث.rar

تسلم أخي الكريم جزاك الله كل خير

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

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

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

التواريخ بالفعل يمكن ادراجها للمطعم الواحد اكثر من مرة اعذرني لم أفهم بالضبط طلبك

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

وهذه طريقة أخرى عبر الدالة والاستعلام (للإستزادة) تحسب حسب العام والشهر واليوم في نموذج QryDate _ارشيف المهام.rar

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

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

جرب هذا التعديل ووافني بالنتيجة وعند ادراج بلاغ جديد يظهر التاريخ الحالي pro---edit.rar

من الذي فهمته من ملفك بأنه هناك أكثر من مطعم ولكل مجموعة مطاعم أكثر مدير area manager ويبدو أن الذي يضيف التقييمات مسئول لكل مطعم manger فعدلت الجداول على هذا الأساس وتم الربط بينهم وقمت بعمل نموذج رئيسي FrmEVN لاستعراض المطعم ومديره والمسئول عن التقييمات ونموذج فرعي مرتبط بالرئيسي SUBevlton لادراج التقييمات حسب سجل المطعم في النموذج الرئيسي ملحوظة.. قد يكون هناك خطأ لانني عملته على عجالة فعليك بتجربته

اخي الكريم انا اتلخبطت.. أي قاعدة تريد التعديل عليها ؟؟ بالنسبة لآخر تعديل انا قمت بعمل ما طلبته من اختيار الرقم الوظيفي يظهر اسم الموظف في clos_id وبالنسبة لزر تأكيد فتح البلاغ لم أفعل به شيء

تفضل أخي الكريم هذا التعديل أتمنى يكون المطلوب تحياتي evaluation.rar

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

أخي الكريم مبدئيا طبقا لما تعلمناه من الإخوة الخبراء بأن الفواتير عبارة عن جدول رئيسي به رقم الفاتورة وتاريخها وجدول آخر لتفاصيل الفاتورة ومن الأفضل أخي الكريم أن تجعل المسميات في الحقول بدون مسافات حتى لا تعيقك في كتابة الأكواد عموما تفضل هذا التعديل جربه وبإذن الله سأقدم العون ما دام أتيح لي مما تعلمته من الخبراء جزاهم الله عنا كل خير سؤال.. هل توجد مثلا (أصناف) سيتم إدراجها ليتم عليها تطبيق الحسابات الضريبية؟؟ role-edit.rar

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

وعليكم السلام أقوم الآن أخي الكريم بإعداد المطلوب بإذن الله وسأرفقه اليوم إن شاء الله

إحذف Forms!p1!am = am والأفضل أخي الكريم أن تجعل مسميات الحقول في الجداول بالإنجليزية لتجنب الأخطاء ويمكنك في خصائص الحقل بالجدول (تسمية توضيحية) بأن تكتبه بها بالعربي